Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как соеденить два модема между собой [D6, D7, Win95/98]

bomberman © (2003-02-24 02:29:00)
Уважаемые Мастера, подскажите пожалуйста как соединить два модема между собой и потом обмениваться информацией. Если можно то киньте пару примеров или ссылок по сабжу.

Яков Чебунин (2003-03-10 02:57:00) [1]
На самом деле ссылка работоспособная. Просто надо убрать точку в конце :).
Вот: http://umn.dl.sourceforge.net/sourceforge/tpapro/tpapro_4_06.zip

bomberman (2003-03-08 15:44:00) [2]
2 Яков Чебунин - ссылка-то не работает...

Яков Чебунин (2003-03-07 05:28:00) [3]
Очень советую использовать Async Professional. Последняя версия лежит здесь: http://umn.dl.sourceforge.net/sourceforge/tpapro/tpapro_4_06.zip.
К архиву прилагается куча примеров, надеюсь разберешься. Если нет, напиши - кину ссылку на Help файлы.

Карелин Артем (2003-03-06 08:22:00) [4]
http://www.delphikingdom.com/helloworld/rasapi.htm
http://torry.net/ras.htm

bomberman (2003-03-05 22:06:00) [5]

> Путь работы с модемом напрямую приведет к серьезным проблемам.
> Советую перейти от этого уровня информационной к самым высоким.
> Работа с RAS хорошо описана, обсосана и оформлена.

Вы конечно извините меня за тупость, но я не могу понять как с RAS работать? Если не влом то киньте не большой примерчик...

Карелин Артем (2003-03-04 13:19:00) [6]
Если все-таки интересует TAPI, то это может и пригодится http://delphi.mtu-net.ru/zip/tapi.zip

Карелин Артем (2003-03-04 12:33:00) [7]
Меня действительно не было неделю: болел.

Путь работы с модемом напрямую приведет к серьезным проблемам. Советую перейти от этого уровня информационной к самым высоким. Работа с RAS хорошо описана, обсосана и оформлена.
Делаем связь по удаленному доступу. После установления соединения мы имеем сеть с установленным IP протоколом, что мы и используем. Кстати можно настроить и сжатие передаваемых данных.
Некоторые компоненты позволяют определить адреса клиента и сервера. Если меня попросить, дам ссылку на ф-ю для определения IP сервера. При использовании TCP/IP нет особых проблем с целостностью данных: если пакет пришел, то данные в нем правильные.

bomberman (2003-03-03 23:47:00) [8]
Что, неужели не кто не знает...? Да, вы просто жадные...,
ну хоть кто-нить....
Я умею уже набирать номер, ставить модем в автоответ (но он не отвечает). Научите дурня читать из порта... я делаю примерно следующее:

unit zv;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
e1: TEdit;
m1: TMemo;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

const CommPort :String = "COM1";
var Form1: TForm1;
hCommFile : THandle;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
hCommFile := CreateFile(PChar(CommPort),
GENERIC_WRITE and GENERIC_WRITE,
0,nil,OPEN_EXISTING,
FILE_ATTRIBUTE_NORMAL,0);
if hCommFile=INVALID_HANDLE_VALUE then
begin
ShowMessage("Unable to open "+ CommPort);
exit;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var PhoneNumber : string;
NumberWritten : DWORD;
begin
PhoneNumber := e1.Text + #13 + #10;
NumberWritten:=0;
if WriteFile(hCommFile,
PChar(PhoneNumber)^,
Length(PhoneNumber),
NumberWritten,
nil) = false then
begin
ShowMessage("Unable to write to " + CommPort);
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
{Close the port}
CloseHandle(hCommFile);
end;

procedure TForm1.Button2Click(Sender: TObject);
var P : string;
NumberWritten : DWORD;
begin
NumberWritten:=0;
if ReadFile(hCommFile,P,256,NumberWritten,nil) = false then
begin
ShowMessage("Unable to read from " + CommPort);
end
else
m1.Lines.Add(PChar(P))
end;

end.

bomberman (2003-03-01 00:02:00) [9]
2 Lego, програму то я САМ ХОЧУ написать, до Карелин Артем © - всю неделю не могу достучаться... А поисковики выдают кучу бесполезных ссылок.
Хоть кто-нить мне поможет с моим траблом...

Lego (2003-02-26 04:35:00) [10]
Тебе нужно программу самому написать или может проще воспользоватся готовой?
Если самому то Карелин Артем © (25.02.03 15:13) и учись пользоватся поисковыми системами...
Если готовыми то Карелин Артем © (25.02.03 15:13)

bomberman (2003-02-26 00:19:00) [11]
2 aspen, где взять пакет Async Professional

2 ALL Уважаемые, ну хоть кто-нить помогите мне с траблом... а тут уже совсем за@#%^ся...
Я читал борландовский хелп по TAPI, именуемый как "Windows TAPI Programmers Refference", но там такая паутина, что ничего не пойму(Может я хелпы читать не умею?). ПОЖАЛУЙСТА, научите дурня хотябы звонить и отвечать на звонок(про остальное ПОКА молчу), если можно - спримерами :)

Карелин Артем (2003-02-25 15:13:00) [12]
На компах включаешь сервер удаленного доступа. Используя RAS соединяешься. Ты можешь пересылать данные по IP.
Есть вопросы - стучи в асю.

aspen (2003-02-25 13:07:00) [13]
Пакет Async Professional
там есть все, и даже больше

bomberman (2003-02-25 11:56:00) [14]
2 jack128, а где смотреть TAPI?
2 Lego, нет компы не рядом, их надо соеденить по телефоной сети...

Lego (2003-02-25 10:38:00) [15]
Если компы рядом(например метров 5) то проще купить нульмодэмный кабель... и настроить сеть...

jack128 (2003-02-24 04:28:00) [16]
см tapi

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »