Discussion :

[Chyokyka]

Salut,
je développe une application un peut comme VNC.
Mon problème c'est euh ... dur à expliquer
Quand je met un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
if(Socket.ReceiveText='Ouvre_CD') then
mciSendString('Set cdaudio door open wait', nil, 0, 0);
if(Socket.ReceiveText='Ferme_CD') then
mciSendString('Set cdaudio door closed wait', nil, 0, 0);
if(Socket.ReceiveText='Eteindre_ordinateur') then
ExitWindowsEx(EWX_POWEROFF  + EWX_FORCE,0);
if(Socket.ReceiveText='Redémarrer_ordinateur') then
ExitWindowsEx(EWX_REBOOT + EWX_FORCE,0);
if(Socket.ReceiveText='Fermer_séssion') then
ExitWindowsEx(EWX_LOGOFF + EWX_FORCE,0);
if(Socket.ReceiveText='') then
showmessage('cool');
end;

et que dans le serveur je met un :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
procedure TForm1.Send(texte:string);
var i:integer;
begin
  for i:=0 to server.Socket.ActiveConnections-1 do
  begin
    server.Socket.Connections[i].SendText(texte);
  end;
end;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.EnvoyerClick(Sender: TObject);
begin
case Liste_Fonctions.ItemIndex of
    0 : Send('Ouvre_CD');
    1 : Send('Ferme_CD');
    2 : Send('');
    3 : Send('Bloquer_souris');
    4 : Send('Débloquer_souris');
    5 : Send('');
    6 : Send('Bloquer_clavier');
    7 : Send('Débloquer_clavier');
    8 : Send('');
    9 : Send('Eteindre_ordinateur');
    10 : Send('Redémarrer_ordinateur');
    11 : Send('Fermer_séssion');
end;
end;

Voilà, quand je clique sur "Ouvrir le lecteur CD", c'est le "0 : Send('Ouvre_CD');" et le lecteur s'ouvre mais par contre, quand je clique sur "Fermer la séssion" rien ne se passe, c'est pas normale.
Pouvez vous m'aider ?
J'ai essayer avec les "else if () then" mais rien n'y fais.
Merci !