Chat nocheinmal versenden von Nickname...

[Knotti2005]

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

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:

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;

[Phistev]

Delphi-Quellcode:

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

und

Delphi-Quellcode:

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

[Knotti2005]

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

[Knotti2005]

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

[fkerber]

Hi!

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


Ciao Frederic

[Knotti2005]

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...

Delphi-Quellcode:

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

[Phistev]

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