hallo,
hab da einen code, der server sollte zwei befehle ausführen,
zb. wenn in d. variable orders: öffnen abgelegt wird, soll er
das cdfach öffnen, wenn er in d. variable text: schließen abgelegt wird, soll er das cdfach schließen.
tut er aber nicht, wenn ich nur eine variable und einen
befehl benutze funktioniert es.
kann sein das beim zweiten aufruf des befehls dann alle beide
variableninhalte wie, öffnenschließen steht ????
wie müßte ich diesen code umschreiben.
Code:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
orders : string;
Text : string;
begin
orders := socket.ReceiveText;
Text := socket.ReceiveText;
if orders = 'öffnen' then
begin
mciSendString('SET CDAUDIO DOOR OPEN WAIT',nil,0, Self.Handle); //Öffnen
end;
if Text = 'schließen' then
begin
mciSendString('SET CDAUDIO DOOR CLOSED WAIT',nil,0, Self.Handle); //Schließen
end;
end;
mfg vader