Hallo Leute, mit diesem Code versende ich eine Nachricht übers Netzwerk..
Nämlich alles was in memo1 drinsteht...

markieren

Delphi-Quellcode:

  try
    if TcpClient1.Connect then
      for I := 0 to memo1.Lines.Count - 1 do
      TcpClient1.Sendln(memo1.Lines[I]);
  finally
    TcpClient1.Disconnect;
  end;

Wie muss ich diesen Code ändern um als Variable nen Nickname mit zu übertragen..

In Edit1 steht der Nickname...

Empfänger:

markieren

Delphi-Quellcode:

begin
  DataThread:= TClientDataThread.Create(true);
  DataThread.TargetList := memRecv.lines;
  DataThread.ListBuffer.Add('Nickname, '+ ClientSocket.RemoteHost + ':> ');
  s := ClientSocket.Receiveln;
  while s <> '' do
  begin
    DataThread.ListBuffer.Add(s);
    s := ClientSocket.Receiveln;
  end;

markieren

Delphi-Quellcode:

TcpClient.Sendln(Edit1.Text)
for i:= 0 to memo1.Lines.Count - 1 do ...

und

markieren

Delphi-Quellcode:

DataThread.ListBuffer.Add('Nickname, '+ ClientSocket.RemoteHost + ':> ');
nick := ClientSocket.Receiveln;
//Nickname ausgeben o. ä.
s := ClientSocket.Receiveln;

Ne so geht es nicht das Problem ist bei der Sache woher soll der Empfänger wissen das das der String des Nicknames ist...

Jetzt geht es Danke... War falsch eingetragen...

Hi!

Also du meinst, wie du den Nickname vom Nachrichtentext unterscheiden kannst?


Ciao Frederic

Ja genau so in etwa...

Woher soll der Empfänger (Server) wissen das vom Client gesendete
      TcpClient1.Sendln(edit1.Text); = der String := Nick ist...



Ps. ich hab es so gemacht...

markieren

Delphi-Quellcode:

nick := ClientSocket.Receiveln;
  DataThread.ListBuffer.Add( nick + ', ' + ClientSocket.RemoteHost + ':> ');

Entweder durch Magic Number / Char oder durch die Position in den Daten (1. Zeile oder so)