Hi, ich habe folgendes Problem:
Ich habe einen kleinen Chat programmiert bei dem ich die Komponenten TClientSocket und TServerSocket verwende.
Dieser Chat funktioniert auch soweit gut, mein einziges Problem ist, dass der Client einen Text, der zu lang ist, nicht vollständig sendet.
Er sendet den Text nämlich nur bis einschließlich dem Compputernamen, der ja in der Variable übergeben wird.
Delphi-Quellcode:
if (ClientSocket1.Active) then begin // noch online?
ClientSocket1.Socket.SendText('Observer-Client Online -> '+GetUserName+' am PC: '+ComputerName+' - Am '+DatetoStr(Date)+' um '+TimetoStr(Time)+' Uhr!');
end;
PS: Die beiden Variablen GetUserName und ComputerName funktionieren.