Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

TIdTCPServer - узнать IP или имя кто к нему приконнектился...   Найти похожие ветки 

 
Layner ©   (2006-11-17 11:43) [0]

В примере "IdTCPDemo" у них видимо ошибка, вместо имени клиента возвращается имя сервера... как следствие, не понятно, кто законнектился...

procedure TServerFrmMain.ServerConnect(AThread: TIdPeerThread);
var
 NewClient: PClient;
begin
 GetMem(NewClient, SizeOf(TClient));

{! в сл. строке не точность...}
 NewClient.DNS         := AThread.Connection.LocalName; {! возвращает имя сервера, а не клиента!}
 NewClient.Connected   := Now;
 NewClient.LastAction  := NewClient.Connected;
 NewClient.Thread      :=AThread;

 AThread.Data:=TObject(NewClient);

 try
   Clients.LockList.Add(NewClient);
 finally
   Clients.UnlockList;
 end;
 Protocol.Lines.Add(TimeToStr(Time)+" Connection from ""+NewClient.DNS+""");
end;


 
Layner ©   (2006-11-17 11:56) [1]

Дошло :)
AThread.Connection.Socket.Binding.PeerIP


 
Сергей М. ©   (2006-11-17 11:57) [2]

Клиент не обязан фигурировать в DNS, так что затея вряд ли оправдана.
Гораздо полезней знать IP-адрес клиента, нежели имя его хоста, которого может и не быть.

А вот это

Protocol.Lines.Add

делать в дан.контексте не допустимо - обработчик иполняется в контексте потока AThread, а не в основном потоке


 
Reindeer Moss Eater ©   (2006-11-17 11:57) [3]

AThread.Connection.LocalName; {! возвращает имя сервера, а не клиента!}

А с какого перепугу локалнэйм серверного треда должно быть клиентом?


 
Layner ©   (2006-11-17 13:08) [4]

Reindeer Moss Eater ©   (17.11.06 11:57)
Может я что не понял, но если у меня логинятся 3 клиента, а в СЕРВЕРЕ пишется 3 раза

10:35:59 Connection from "Vasia" (Это конект с машины 192.168.0.51)
10:36:59 Connection from "Vasia" (Это конект с машины 192.168.0.52)
10:37:59 Connection from "Vasia" (Это конект с машины 192.168.0.53)

Или пример такой... в общем не удобно, переделал :)



Страницы: 1 вся ветка

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
6-1163059228
Kr_H|6apa6aH
2006-11-09 11:00
2007.05.27
MAC адрес в offline


2-1178595303
Konus
2007-05-08 07:35
2007.05.27
formatfloat


15-1178104787
ShadowMan
2007-05-02 15:19
2007.05.27
Метка перехода на определенное место в файле


3-1173768325
lightix
2007-03-13 09:45
2007.05.27
Изменить LANGDRIVER для DBase


2-1178640144
DeadTeachers
2007-05-08 20:02
2007.05.27
COM - порт