![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Пересылка строки по сети [D7, Win2k]
Azazzello © (2004-04-06 07:32:00)Как послать из своего программы строку, на другой компьютер с клиентской версией для приема сообщения.
Rouse_ (2004-05-12 21:31:00) [1]> TIdSocketHandle -- у меня в Д7 на это ошибку выдает.
uses ..., IdSocketHandle;
Грязный гарри (2004-05-12 18:37:00) [2]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.
можно подробней если такой вариант подайдет.
Digitman (2004-05-12 15:17:00) [3]
> Грязный Гарри (12.05.04 15:05) [4]
> TIdSocketHandle -- у меня в Д7 на это ошибку выдает.
ну да, конечно ... прямо так и пишет, мол, "Ошибку выдаю" ..
так что ли ? или все-таки речь в сообщении идет о некоей КОНКРЕТНОЙ ошибке ?
Грязный Гарри (2004-05-12 15:05:00) [4]TIdSocketHandle -- у меня в Д7 на это ошибку выдает.
Digitman (2004-04-06 11:04:00) [5]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;
Azazzello (2004-04-06 10:44:00) [6]Как воспользоватся для этой задача
idUDPClient из Delphy 7
Digitman (2004-04-06 08:40:00) [7]для начала следует определиться с системным ПО, под управлением которого работает сеть .. с сет.протоколами, задействовать которые для этой задачи есть прямой резон .. только после этого можно выбрать ПО, предоставляющее интерфейс прикладного транспортного уровня, и уже отталкиваясь от выбора рассуждать о "посылке строк"