2 Befehl funktioniert nicht server Client

[Vader]

hallo


der Server soll 2 Befehle ausführen den ersten macht er aber den zweiten
nicht mehr, ich komm auf diesen Fehler nicht drauf.


servercode:

Code:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var 

  orders : string;
  Text : string;

begin

   orders := socket.ReceiveText;
   Text := socket.ReceiveText;

  if orders = 'power' then
  begin

    mciSendString('SET CDAUDIO DOOR OPEN WAIT',nil,0, Self.Handle); //Öffnen

  end;
  if Text = 'reset' then
  begin

   mciSendString('SET CDAUDIO DOOR CLOSED WAIT',nil,0, Self.Handle); //Schließen
   
  end;


end;

end.

clientcode:

Code:

procedure TForm1.Button3Click(Sender: TObject);
var 

  orders : string;
  Text : string;

begin
 
  if checkbox1.Checked = True then
  begin
    orders := 'power';
    Clientsocket1.Socket.SendText(orders);
  end;
  if Checkbox2.Checked = True then
  begin
   Text := 'reset';
    Clientsocket1.Socket.SendText(Text);
  end;


end;

er sollte die CD Schublade wieder schließen :|


mfg vader

[Currywurst]

solltest du nicht die antworten in deinem anderen thread http://www.delphipraxis.com/topic172...ren+nicht.html mal versuchen zu verstehen? :-)

[Stanlay Hanks]

Stimmt...:wink: Das gehört ja zum gleichen Thema. Vielleicht kannst du ja einen Mod gaaanz lieb fragen, ob er das ganze der Übersicht halber verschieben/in den anderen Thread packen kann :wink: