Einzelnen Beitrag anzeigen

oki

Registriert seit: 30. Dez 2002
Ort: Brandshagen
1.819 Beiträge
 
Delphi 2007 Professional
 
#7

Re: neues Ereignis in TServerSocket

  Alt 30. Nov 2006, 15:58
Jo Man,

da bin ich ja noch gar nicht drauf gekommen. hört sich irgentwie brutal nach direktem Weg an. Die Standardsockets nehmen aber den Umweg über TServerWinSocket.

Codemäßig meinst du das so?

Delphi-Quellcode:
procedure TMyServerSocket.GetSocket(Sender: TObject; Socket: Integer;
  var ClientSocket: TServerClientWinSocket);
begin
  ClientSocket := TGPRSReceiveServerClientWinSocket.Create(Socket, self.socket);
  Clientsocket.OnIdentify := self.OnIdentify;
  ....
end;
OnIdentify ist dann halt mal so 'n neues Ereignis.

Hmmmm.?! Klingt aber erst mal simpel.


Übrigens, wenn, dann sollen sich dort natürlich auch alle melden.

Gruß oki
  Mit Zitat antworten Zitat