hi @ all!
------------------------------------------------------------------
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');
if order = 'close' then
begin
richedit1.lines.add('CLOSE befehl wurde empfangen');
end;
end;
end;
-------------------------------------------------------------------
ich möchte das diese zeile :
if order = 'open' then begin richedit1.lines.add('CLOSE befehl wurde empfangen'); auch ausgeführt wird.
ich möchte mehrere befehle verwenden aber es funktioniert immer nur die erste (close) zeile.
das soll so funktionieren : wenn ich den text "open" sende dann soll er einen befehl ausführen hier zb. gibt er den text : "OPEN befehl wurde empfangen" in ein memo aus. und bei close sollte er dann "CLOSE befehl empfange" in ein memo ausgeben aber es geht nur der eine erste mit OPEN befehl empfangen"
Wer kann mir da weiter helfen??????????
danke im vorraus für jede hilfe Hari
[edit=Luckie]Delphi-Tags gesetzt. Mfg, Luckie[/edit]
[edit=Luckie]Quelltext formatiert. Mfg, Luckie[/edit]