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