Delphi-Quellcode:
procedure TForm1.ServerSocket2ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
order : string;
begin
order := socket.ReceiveText;
if order = 'open' then
begin
richedit1.lines.add('OPEN befehl wurde empfangen');
end;
if order = 'close' then
begin
richedit1.lines.add('CLOSE befehl wurde empfangen');
end;
end;
du hast die if abfragen ineinander verschachtelt gehabt! ob es "close" ist, würde nur geschaut werden, wenn es "open" ist...
ich hoff so gehts!
stefan