| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TCPServer

anton. ©   (2004-06-08 12:07:00) 

Запускаю 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:00) [1]

AThread.Connection.Socket.Binding.PeerIP

---

Наверх