Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.036 c