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;