Как соеденить два модема между собой

← →
bomberman (2003-02-24 02:29) [0]

Уважаемые Мастера, подскажите пожалуйста как соединить два модема между собой и потом обмениваться информацией. Если можно то киньте пару примеров или ссылок по сабжу.

← →
jack128 (2003-02-24 04:28) [1]

см tapi

← →
Lego (2003-02-25 10:38) [2]

Если компы рядом(например метров 5) то проще купить нульмодэмный кабель... и настроить сеть...

← →
bomberman (2003-02-25 11:56) [3]

2 jack128, а где смотреть TAPI?
2 Lego, нет компы не рядом, их надо соеденить по телефоной сети...

← →
aspen (2003-02-25 13:07) [4]

Пакет Async Professional
там есть все, и даже больше

← →
Карелин Артем (2003-02-25 15:13) [5]

На компах включаешь сервер удаленного доступа. Используя RAS соединяешься. Ты можешь пересылать данные по IP.
Есть вопросы - стучи в асю.

← →
bomberman (2003-02-26 00:19) [6]

2 aspen, где взять пакет Async Professional

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

← →
Lego (2003-02-26 04:35) [7]

Тебе нужно программу самому написать или может проще воспользоватся готовой?
Если самому то Карелин Артем © (25.02.03 15:13) и учись пользоватся поисковыми системами...
Если готовыми то Карелин Артем © (25.02.03 15:13)

← →
bomberman (2003-03-01 00:02) [8]

2 Lego, програму то я САМ ХОЧУ написать, до Карелин Артем © - всю неделю не могу достучаться... А поисковики выдают кучу бесполезных ссылок.
Хоть кто-нить мне поможет с моим траблом...

← →
bomberman (2003-03-03 23:47) [9]

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

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.

← →
Карелин Артем (2003-03-04 12:33) [10]

Меня действительно не было неделю: болел.

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

← →
Карелин Артем (2003-03-04 13:19) [11]

Если все-таки интересует TAPI, то это может и пригодится http://delphi.mtu-net.ru/zip/tapi.zip

← →
bomberman (2003-03-05 22:06) [12]

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

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

← →
Карелин Артем (2003-03-06 08:22) [13]

http://www.delphikingdom.com/helloworld/rasapi.htm
http://torry.net/ras.htm

← →
Яков Чебунин (2003-03-07 05:28) [14]

Очень советую использовать Async Professional. Последняя версия лежит здесь: http://umn.dl.sourceforge.net/sourceforge/tpapro/tpapro_4_06.zip.
К архиву прилагается куча примеров, надеюсь разберешься. Если нет, напиши - кину ссылку на Help файлы.

← →
bomberman (2003-03-08 15:44) [15]

2 Яков Чебунин - ссылка-то не работает...

← →
Яков Чебунин (2003-03-10 02:57) [16]

На самом деле ссылка работоспособная. Просто надо убрать точку в конце :).
Вот: http://umn.dl.sourceforge.net/sourceforge/tpapro/tpapro_4_06.zip

Как соеденить два модема между собой Найти похожие ветки