ich hatte gerade auch ein problem was hier reinpasst da ich wasverwende was ich hier gesehen habe.
volgendes:
Delphi-Quellcode:
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ClientSocket1.Socket.SendText('message '+ Spieler.getSpielername(0) + ' ist dem Spiel Beigetreten');
end;
wird gesendet
Delphi-Quellcode:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var befehl : string;
begin
If Pos('message', Socket.ReceiveText) = 1 then befehl :='message';
if befehl = 'message' then
Memo1.Lines.Add(copy(Socket.ReceiveText,8,length(Socket.ReceiveText)));
end;
ist die abfrage doch dies geschieht nicht beim connecten, bzw der text wird nicht angezeigt kp warum nicht!