Текущий архив: 2004.08.08;
Скачать: CL | DM;
Вниз
TCPServer Найти похожие ветки
← →
anton. (2004-06-08 12:07) [0]Запускаю TCPServer на одной машине TCPClient на другой, в момент соеденения определяю кто подключился, проблема в том что сервер все время показывает свое имя, с какой бы машины я не подключался
procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
var
NewClient: TClient;
begin
NewClient:=TClient.Create;
NewClient.Name:= AThread.Connection.LocalName;
lbClients.Items.Add(NewClient.Name);
AThread.Data := NewClient;
end;
← →
Verg © (2004-06-08 21:28) [1]AThread.Connection.Socket.Binding.PeerIP
Страницы: 1 вся ветка
Текущий архив: 2004.08.08;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.092 c
