IDTCP Client werte fest senden, weis keinen besseren Titel

[Eichhoernchen]

So, ich habe folgende Frage, welche Eigenschaft eines IDTCpClients kann ich ändern und die dann auch direkt vom Server lesen, also in der Form hier:

Im Client:
Client.Bla := 'LALALALALALA';

Im Server:

OnConnect(AThread: TidPeerThread);
Begin
showmessage(AThread.bla);
end;

ich möchte gern einen Benutzernamen direkt im OnConnect ereignis des Servers haben, also direkt im AThread mitschicken, aber wie mache ich das?


Danke schonmal!

[dasdaniel]

ich denke da wirst du nicht herumkommen etwas zu schreiben...


Client;

Code:

procedure TForm1.IdTCPClient1Connected(Sender: TObject);
begin
   IdTCPClient1.WriteLn('MeinName'); 
end;

Server

Code:

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
  var sSeinName:String;
begin
  sSeinName := Athread.Connection.ReadLn;
end;

mfg

#dasdaniel