Пересылка строки по сети

← →
Azazzello (2004-04-06 07:32) [0]

Как послать из своего программы строку, на другой компьютер с клиентской версией для приема сообщения.

← →
Digitman © (2004-04-06 08:40) [1]

для начала следует определиться с системным ПО, под управлением которого работает сеть .. с сет.протоколами, задействовать которые для этой задачи есть прямой резон .. только после этого можно выбрать ПО, предоставляющее интерфейс прикладного транспортного уровня, и уже отталкиваясь от выбора рассуждать о "посылке строк"

← →
Azazzello (2004-04-06 10:44) [2]

Как воспользоватся для этой задача

idUDPClient из Delphy 7

← →
Digitman © (2004-04-06 11:04) [3]

idUDPClient.Host := хост_сервера
idUDPClient.Port := порт_сервера
idUDPClient.Active := True;
idUDPClient.Send("строка");

..

idUDPServer.DefaultPort := порт_сервера
idUDPServer.Active := True;
..
procedure TMyClass.UDPServerUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
begin
ShowMessage(String(PChar(TMemoryStream(AData).Memory)));
end;

← →
Грязный Гарри (2004-05-12 15:05) [4]

TIdSocketHandle -- у меня в Д7 на это ошибку выдает.

← →
Digitman © (2004-05-12 15:17) [5]

> Грязный Гарри (12.05.04 15:05) [4]
> TIdSocketHandle -- у меня в Д7 на это ошибку выдает.

ну да, конечно ... прямо так и пишет, мол, "Ошибку выдаю" ..

так что ли ? или все-таки речь в сообщении идет о некоей КОНКРЕТНОЙ ошибке ?

← →
Грязный гарри (2004-05-12 18:37) [6]

procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
idtcpclient1.Connect;
idtcpclient1.WriteLn("строка");
idtcpclient1.Disconnect;
end;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
var
a: string;
begin
AThread.Connection.ReadLn(a);
AThread.Connection.Disconnect;
end;

end.

можно подробней если такой вариант подайдет.

> TIdSocketHandle -- у меня в Д7 на это ошибку выдает.
uses ..., IdSocketHandle;

Пересылка строки по сети Найти похожие ветки