Problème trop bizarre, if, if else ?

Version imprimable

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

Code:

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:

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:

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 ! :mouarf:

19/12/2008, 08h20
cincap

Evite de mettre les accents par défaut !
Bonjour à toutes et à tous,

@ Chyokyka, pour moi j'évite de mettre les accents sur le "é" et autres.

Pour la fin de session, moi je mettrai uniquement :

A tester directement avec le click d'un Tbutton et tu verras que cela fonctionne.
Code:

1 2 ExitWindows(0,0);
@+,

Cincap

à vu de nez ça serait un
Code:

1 2 3 4 5 6 7 8 var s : string; begin s := Socket.ReceiveText; if s='...' then ... else if s='...' then ... ; end;
sinon tu cherches à relire une nouvelle chaine sur chaque IF

Salut, merci pour tous vos conseils mais

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
s : string;
begin
s := Socket.ReceiveText;
if s='Ouvre_CD' then mciSendString('Set cdaudio door open wait', nil, 0, 0) else
if s='Ferme_CD' then mciSendString('Set cdaudio door closed wait', nil, 0, 0) else
if s='Eteindre_ordinateur' then ExitWindowsEx(EWX_POWEROFF  + EWX_FORCE,0) else
if s='Redémarrer_ordinateur' then ExitWindowsEx(EWX_REBOOT + EWX_FORCE,0) else
if s='Fermer_session' then ExitWindows(0,0) else
if s='Bloquer' then
Bloquer.Interval :=  30000;
Bloquer.Enabled  := True;
BlockInput(True);
end;

Ne marche toujours pas, c'est pas normale, je peux seulement ouvrir le lecteur CD :(

Edit : Enfaite, le serveur marche bien mais c'est le client qui a un problème :
La fonction 'Send'. Comment y remédier ?

Remplace le serveur par le NetChat fourni est exemple avec le CD de Delphi, ainsi tu verras mieux tes flux si c'est bien l'envoi qui échoue !

j'ai massivement utilisé ces composants en D5 et D6, je n'ai jamais eu aucun problème d'envoi !

Citation:

j'évite de mettre les accents sur le "é" et autres.

C'est même pire, session n'a jamais eu d'accent ! et ça c'est juste de l'orthographe ...

Enfin, envoyer une chaine pourquoi pas, j'aurais personnellement envoyé un record via Stream ... cela permettrait d'écrire aussi un case !

Code:

1
2
3
4
procedure TForm1.EnvoyerClick(Sender: TObject);
begin
    Send(Liste_Fonctions.ItemIndex );
end;

Code:

1
2
3
4
5
6
7
8
procedure TForm1.Send(CodeOp: Integer);
var i:integer;
begin
  for i:=0 to server.Socket.ActiveConnections-1 do
  begin
    server.Socket.Connections[i].SendText(IntToStr(CodeOp)); // On peut le faire directement en binaire, mais faisons simple d'abord !
  end;
end;

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  case StrToIntDef(Socket.ReceiveText, 0) of
    0: mciSendString('Set cdaudio door open wait', nil, 0, 0);
    1: mciSendString('Set cdaudio door closed wait', nil, 0, 0);
    9: ExitWindowsEx(EWX_POWEROFF  + EWX_FORCE,0);
    10: ExitWindowsEx(EWX_REBOOT + EWX_FORCE,0);
    11: ExitWindowsEx(EWX_LOGOFF + EWX_FORCE,0);
  else
    showmessage('cool');
  end;
end;

Enfin, une explication est nécessaire, il ne faut pas lire plusieurs fois Socket.ReceiveText, une fois lue, c'est fini, le buffer est vidé, c'est pour cela que Paul TOTH est passé par une variable temporaire !

Ensuite pour ExitWindowsEx, il faut obtenir des Privilèges

Voici un petit DPR qui contient un code pour éteindre un ordi (pour une tache planifié par exemple ^_^)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
program ForceShutDown;
 
uses Windows;
 
{$R *.res}
 
procedure ExitWindowsMsg(const PlatformCaption: PChar);
begin
  case MessageBox(0, PChar('Windows '+PlatformCaption+' : ShutDown(Yes) or Reboot(No) ?'), 'Confirmation', MB_YESNOCANCEL) of
    IDYES : if System.DebugHook = 0 then ExitWindowsEx(EWX_SHUTDOWN, 0) else Beep(3000, 1);
    IDNO : if System.DebugHook = 0 then ExitWindowsEx(EWX_REBOOT, 0) else Beep(2000, 1);
    else
      if System.DebugHook = 0 then Exit else Beep(1000, 1);
  end;
end;
 
var
  OSInfo: OSVERSIONINFO;
  TokenHandle, ReturnLength: Cardinal;
  NewState, PreviousState: TTokenPrivileges;
  lpLuid: TLargeInteger;
begin
  OSInfo.dwOSVersionInfoSize := SizeOf(OSVERSIONINFO);
  if GetVersionEx(OSInfo) then
  begin
    if OSInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then
    begin
      if OpenProcessToken(GetCurrentProcess(), TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, TokenHandle) then
      begin
        try
          if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', lpLuid) then
          begin
            NewState.PrivilegeCount := 1;
            NewState.Privileges[0].Luid := lpLuid;
            NewState.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
            if AdjustTokenPrivileges(TokenHandle, False, NewState, SizeOf(NewState), PreviousState, ReturnLength) then
            begin
              ExitWindowsMsg('NT');
            end;
          end;
        finally
          CloseHandle(TokenHandle);
        end;
      end;
    end else
    begin
      ExitWindowsMsg('9x');
    end;
  end;
end.

19/12/2008, 19h57
Chyokyka

Salut,
Merci pour toutes t'es explications !
J'ai tous compris et ça marche bien en plus !
Maintenant, pour les streams, aurait tu un exemple comme euh ... envoyer un son ? Par exemple : C:\son.wav ? Merci :)
20/12/2008, 09h51
Chyokyka

Bon, j'ai sais !
Ou puis-je trouver les composants 'NMUDP' ?
Merci. :)
20/12/2008, 10h19
cincap

Privilèges !

Bonjour à toutes et à tous,

@ ShaiLeTroll, c'est vrai que le mot session ne prend pas d'accent, mais une faute d'ortographe est vite arrivée de nos jours surtout depuis l'apparition des SMS.

Même les membres expérimentés ne sont pas à l'abri.

En ce qui concerne les privilèges, le PC s'éteindra du moment que l'utilisateur possède le privilège en question (ce qui est pratiquement toujours le cas pour un utilisateur loggué localement) et partant de ce principe, la simple commande :

Citation:

ExitWindows(0,0);

Suffit de terminer une session à mon avis.

Maintenant c'est vrai que c'est une autre paire de manches sous Vista, je ne sais pas si quelqu'un a testé cette simple commande.

Pour en revenir à ton DPR bien structuré, je pourrai l'utiliser comment dans le onclik d'un Tbutton ?

Merci d'avance,

Cincap
20/12/2008, 13h21
droggo

Jai,

Citation:

Envoyé par cincap

@ ShaiLeTroll, c'est vrai que le mot session ne prend pas d'accent, mais une faute d'ortographe est vite arrivée de nos jours surtout depuis l'apparition des SMS.

Même les membres expérimentés ne sont pas à l'abri.

Personne n'est à l'abri, c'est clair.

Mais utiliser l'existence des SMS comme excuse, c'est fort. :mouarf:
20/12/2008, 13h52
cincap

Ce n'est certainement pas comme excuse !

@ droggo, je n'ai pas exposé cela comme une excuse mais comme un fait, l'écriture manuelle disparaît de notre vie tout tout doucement.

Avoue que personne ne prend plus la peine d'écrire que par SMS, reçois tu toujours une belle carte de voeux écrite à la main ou bien un SMS.8-)

Mon message n'avait pas le but de reprocher ou d'excuser qui que se soit même moi, je fais des fautes.

Merci pour la réponse à ma question !

@+,

Cincap
20/12/2008, 14h44
droggo

Lei,

Citation:

Envoyé par cincap

@ droggo, je n'ai pas exposé cela comme une excuse mais comme un fait, l'écriture manuelle disparaît de notre vie tout tout doucement.

Avoue que personne ne prend plus la peine d'écrire que par SMS, reçois tu toujours une belle carte de voeux écrite à la main ou bien un SMS.8-)

Mon message n'avait pas le but de reprocher ou d'excuser qui que se soit même moi, je fais des fautes.

Merci pour la réponse à ma question !

@+,

Cincap

Ça, c'est toi qui le dit, et même si par hasard je reçois (ou j'envoie) un mail au lieu d'une belle carte manuscrite, il ne sera pas rédigé en SMS, simple respect du destinataire.
20/12/2008, 18h00
Chyokyka

Auriez vous le composant TNMUDP ? :)
20/12/2008, 20h15
cincap

Voir composants de la suite Indy

@ Chyokika, je pense que cela fait partie de la suite Indy ?

http://delphipage.free.fr/indyinstall.html

sinon il s'agit des composants NetMasters livrés d'origine avec Delphi 6 entreprise.

@+,

Cincap
20/12/2008, 21h29
Chyokyka

Ah !! C'est Indy ?
J'ai déjas ce compo, merci :)
22/12/2008, 15h46
cincap

Réponse correcte = Résolu !

Bonjour à toutes et à tous,

@ Chyokyka, il me semble que l'objet de ta question à été résolu par ShaiLeTroll, donc n'oublies pas de cliquer sur Résolu.

@+,

Cincap