Server Socket - sendText

[bububox]

Hallo,

genau das gleiche Problem habe ich auch... wollte auch gerade einen Thread erstellen...

Der Client zeigt in einem Memo an, was der Server sendet, zur Verdeutlichung die "<<<":

Code:

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('<<< '+Socket.ReceiveText);
end;

Wenn der Client "C000" sendet... schickt der Server 3 SendText's, die der Client aber leider als ein ganzes ClientRead ansieht....

Code:

procedure TForm1.ServerClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
receivedshit : string;
sUser : string;
sCName : string;
sLang : string;
begin
sUser := GetUser();
sCName := CurrentComputerName();
sLang := GetOSLanguage();
receivedshit := Socket.ReceiveText;

if Copy(receivedshit,1,4) = 'C000' then
begin
Server.Socket.Connections[0].SendText('S000 '+sUser+#13+#10);
Server.Socket.Connections[0].SendText('S001 '+sCName+#13+#10);
Server.Socket.Connections[0].SendText('S002 '+sLang+#13+#10);
end

end;

Auf dem Memo sieht es dann folgendermaßen aus:

Zitat:

>>> C000
<<< S000 Mein Name halt
S001 Computername
S002 Deutsch (Deutschland)

Mit dem Memo arbeite ich nur provisorisch... wenn es nur um die Darstellung auf dem Memo gehen würde wäre es nicht so schlimm... aber ich möchte jedes SendText vom Server im Client später seperat bearbeiten etc.

Ich hoffe mir/uns kann jemand helfen...