IPCOMServer

[Loverman87]

Здравствуйте, уважаемые программисты. Хочу написать программу по типу программы "IPCOMServer", чтобы можно было подключаться к COM порту компьютера через протокол TCP/IP Не подскажете с чего начать какие компоненты использовать? Чтобы к примеру запустить прогу на удаленном компе, и подключиться к COM порту этого компьютера через HiperTerminal через протокол TCP/IP. Заранее спасибо!

[raxp]

COM порт можно и просто API командами readfile(), writefile(), можно и компонентик BCOMport ...с сетью на сокетах или тем же TServerSocket/

[Loverman87]

А можно по подробнее, как именно перенаправить потоки с COM порта в TCP/IP, чтобы можно было подключиться к COM порту удаленного компьютера через TCP/IP с помощью HyperTerminal'a?

[raxp]

гипертерминал не имет такой возможности вы будете работать из своего терминала, но по TCP/IP, либо из браузера, по сути это WEB сервер.

[Loverman87]

Как это не имеет в гипер терминале есть возможность подключения через TCP/IP это все что нужно, а на удаленной машине при помощзи моей программы COM порт должен перенаправляться на протокол TCP/IP ну скажем на порт 2001, тогда при подключении через гипертерминал я указываю ИП удаленной машины и порт 2001 и получаю доступ к ком порту

[Loverman87]

Поставлю вопрос по другому, как расшарить COM-порт по сети, чтобы с ним можно было работать по протоколу TCP/IP. как это сделано в программе IPCOMServer?

[raxp]

...уже сказано, делайте web - сервер, все данные, что приходят с COM порта кидайте на соединение, те что приходят с сети в COM порт ...функи уже подсказал, компонент для работы с RS-232 и создание web сервера тоже или вам лень почитать help как с ними работать?

// отправка на активные соединения
procedure TTSMS.send_tcp(s: string);
var k: integer;
begin
  for k:= 0 to tcp.Socket.ActiveConnections-1 do   
   tcp.Socket.Connections[k].SendText(s)
end;

// прием данных
procedure TTSMS.tcpClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var s: string;
begin
 s:= Socket.ReceiveText;
 packet(s); 
end;