Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.047 c
14-1090461164
Soft
2004-07-22 05:52
2004.08.08
Паранойя


1-1090854565
Sergey Kaminski
2004-07-26 19:09
2004.08.08
Drag&Drop наоборот


1-1090484163
bodia
2004-07-22 12:16
2004.08.08
Запуск из доса без переключения в Windows


14-1090704176
Саша
2004-07-25 01:22
2004.08.08
Библия Delphi


14-1090495921
ИМХО
2004-07-22 15:32
2004.08.08
Пару слов о Delphi 8