Client Server Befehle funktionieren nicht ???

[Vader]

hab da so einen code ein bißchen umgeschrieben aber der server führt
die Befehle nicht aus , warum ???

client code

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Clientsocket1.Active := True; 

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Clientsocket1.Active := False; 
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
   errorcode := 0;
  StatusBar1.SimpleText := 'Error'; 

end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   StatusBar1.SimpleText := 'Disconnect'; 
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
   StatusBar1.SimpleText := Clientsocket1.Address; 
end;

procedure TForm1.Button3Click(Sender: TObject);
var 
  ukaz : string; 
  orders : string; 
  Text : string; 
  box : string; 
begin
  ukaz := edit1.Text;
  Clientsocket1.Socket.SendText(ukaz);
  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;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Clientsocket1.Active := False;

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   
  Clientsocket1.Active := False; 

end;

end.

server code

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Serversocket1.Active := False;

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   Serversocket1.Active := False;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Serversocket1.Active := True; 

end;

procedure TForm1.ServerSocket1ClientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  errorcode := 0; 

end;

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var 
  ukaz : string; 
  orders : string; 
  Text : string;
  box : string; 
begin 
  ukaz := socket.ReceiveText;
  label1.Caption := 'reciving...'; 
  ShellExecute(Handle, 'open', PChar(ukaz), PChar(''), nil, sw_show);
  Text := socket.ReceiveText; 
  orders := socket.ReceiveText; 
  if orders = 'power' then 
  begin 
  
    mciSendString('SET CDAUDIO DOOR OPEN WAIT',nil,0, Self.Handle); //Öffnen
    Form1.Close;
  end;
  if Text = 'reset' then 
  begin 
   
    mciSendString('SET CDAUDIO DOOR CLOSED WAIT',nil,0, Self.Handle); //Schließen
    Serversocket1.Active := False;
    Form1.Close; 
  end; 


end;

end.

mfg vader

[edit=r_kerber]Code- durch Delphi-Tags ersetzt. Mfg, r_kerber[/edit]