LOGISLEEP : PERMET DE FERMER LA SESSION, D'ÉTEINDRE OU DE REDÉMARRER VOTRE ORDINATEUR DANS UN TEMPS OU UNE HEURE DONNÉE.

Commentaire de JulioDelphi le 15/09/2006 21:42:23 administrateur CS

salut, je regarde vite fait et je vois :
1)
object Form1: TForm1
  Left = -603
dans le .dfm, a quoi ça sert de mettre la form a -603 left ???

2) l'edit sleepmin a une font de couleur clinactivewindow, donc chez moi c'est blanc donc illisible blanc sur blanc, de plus, tu n'as pas limité sa taille (avec maxlength) et mon '9999999999999999999999' c'est pas un entier valide.

3) au lieu de mettre une 20aine de lignes pour mettre les controles en lecture seule, mets en lecture seule leur groupbox plutot.

4) il me semble que "application.Terminate" est un peu trop explosif =) essaie "close"

5) seconde := seconde -1; tu peux mettre "dec(seconde)"; (décrementation, existe avec inc() pour incrémenter=

allez j'arrete la, pas le courage de descendre plus ^^

Commentaire de JulioDelphi le 16/09/2006 12:49:04 administrateur CS

c'est pour ça qu'il existe "Form1.Position" non ? il suffit de le mettre sur "poDesktopCenter" par exemple afin que le prog s'ouvre chez tout le monde correctement. l'ergonomie des fiches est primordiales, m'enfin bon, tout le monde n'a pas lu le chapitre 3, page 65 de http://www.delphifr.com/livre-delphi-studio-lu-approuve-borland-france-46.aspx
^^

Commentaire de sim51 le 16/09/2006 13:48:31

bonjour,
Tout d'abord merci pour vos commentaires surtou à toi JulioDelphi pour ta rapidité.
Cepdendant tes commentaires ne sont pas très constructif sauf le 2 (et voir peut être le 3).
Sinon c'est vrai que j'utilise deux écrans ce qui est très pratique et j'ai mis sur la fiche qu'elle apparaisse au centre d'un écran (comme le dis Cirec). Voilà pour le -603.
Quant au 5, je ne vais pas venir sur la question des origines des programmeurs, c'est à dire les math ou l'info. Moi je veins des math, et donc i+1 me parle plus que inc(i). Mais ceci est du chipotage.
J'ai fais ce petit programme (tout simple) car c'est une fonctionnalité qui n'existe pas sur windows et qu'il y a très peu de programme qui permet de le faire.
Enfin, encore merci pour vos remarques et suggestions, et j'en attend encore !!!

Commentaire de Francky23012301 le 18/09/2006 02:26:25

Salut,

A JulioDelphi : la méthode application.terminate est souvent reprochée et on conseille l'utilisation de close. Je ne suis pas d'accord avec cette remarque. Application.terminate n'est pas utilisable dans des cas extrèmement rares (utilisation des Query). Cependant la méthode close est une méthode sale : en effet elle génére souvent des beugues (perso juste avec une simple form cela m'a déclenché un magnifique plantage) et de plus si tu as une boucle en cours tu l'as dans l'os : close en définitif est encore plus crade a utilisé que application.terminate. Perso je conseille l'utilisation de halt(...) qui permet d'imposer un temps d'attente et qui ne génére aucune erreur.

@+

Commentaire de Francky23012301 le 18/09/2006 10:08:15

Salut

FJohnny trois questions stp :
-Quel interval de temps à utiliser avec Halt ?
-Quel message d'erreur a tu eu ?
-Avec quelle application as tu tester halt (Non tester avec ce source ^^) ?

Un problème crucial avec Close : si tu as une boucle en cours Close va attendre que la boucle soit finit avant de fermer l'application, ce qui peut poser probleme. Le fait d'etre obligé de forcer la fermeture d'une application est bien plus fréquent que l'utilisation des Query. Voila l'une des raisons pour laquelle je n'aime pas utiliser Close. Une autre raison est que pour utiliser Close proprement il faut vérifier un certain nombre de chose avant de l'utiliser pour éviter un plantage, hors ces vérifications ne sont rarement effectuées ce qui fait que d'une façon générale Close est toujours utilisé salement. Donc je pense qu'il faut mieux forcer (Sur le principe je parle car dans la réalité ...) une fermeture que de mal utilisé une procédure normalement plus propre.

@+

Commentaire de cirec le 18/09/2006 11:06:33 administrateur CS

Attention !!!!

Halt exécute une fin anormale d'un programme.

Unité

System

Catégorie

routines de contrôle de flux

procedure Halt [ ( Exitcode: Integer) ];

Description

La procédure Halt exécute une fin anormale d'un programme et renvoie le contrôle au système d'exploitation. Pour exécuter une fin normale d'une application non console VCL de Delphi, appelez Application.Terminate. Exitcode est une expression facultative qui indique le code de sortie du programme.

Ensuite si tu as dans le OnClose de ta form une sauvegarde de paramètres (par exemple)
en faisant appel à Application.Terminate la sauvegarde ne serat pas executée.

Alors que Close ferme une fiche et si c'est la form principale alors Close ferme l'application.

procedure Close;

Description

Appelez la méthode Close pour fermer une fiche.

Close appelle la méthode CloseQuery pour déterminer si la fiche peut se fermer. Si CloseQuery renvoie False, l'opération de fermeture est abandonnée. Sinon, l'événement OnClose a lieu.

Remarque : Quand la fiche principale de l'application se ferme, l'application se termine.

Close ne demande aucune verification avant son appel ... et fait appel à Application.Terminate

Extrait de TCustomForm.Close;
...
      if CloseAction <> caNone then
        if Application.MainForm = Self then Application.Terminate
...

les erreurs de Delphi lors de la compilation ne sont pas toujours à prendre au mot.

si en développant une application X tu as plusieurs erreurs puis tu passes à l'application Y (nouvelle par exemple) il se peut que le cumule des erreurs de X déclanche une erreur à la compilation de Y.

il semblerait que Delphi ne vide pas, toujours, correctement la mémoire et donc en redémarrant le PC et en recompilant Y tout fonctionne parfaitement.

voilà
@+
Cirec

Commentaire de qoprek le 18/09/2006 14:29:04

A noter que Application.Terminate est appelé par le Close ... et n'est que l'envoi d'un WM_QUIT dans la queue msg windows via PostQuitMessage.

C'est pas la manière standard de quitter mais peut être utile dans certains cas précis.
Son principal défaut est qu'elle n'est pas a action immédiate et donc il faut faire attention a de la réentrance d'évènements durant ce laps de temps.

Le Halt est extrêment efficace mais extrêment générateur d'instabilité car les process fils sont laissé dans l'état courant et les objets crées par les process fils sont toujours en mémoire. A n'utiliser que vraiment si on a pas le choix. A noter que l'ExitCode était utilisé dans les .bat pour détecter des conditions de fin anormale de programme avec le fameux If ErrorLevel=255 Goto ErreurFatale ...

De plus pour éviter tout souci de fuite mémoire il est bon de blinder le .dpr également.
Exemple (l'objet TJustOne32 est l'un de ceux disponibles pour vérifier les multi-instances d'une application, l'objet RetailWebServiceJournal est un objet de trace):

var InstanceApplication : TJustOne32;

procedure DoneApplication;
begin
  with Application do begin
    if Handle <> 0 then ShowOwnedPopups(Handle, False);
    ShowHint := False;
    Destroying;
    DestroyComponents;
  end;
end;

begin
  InstanceApplication := TJustOne32.Create(Application);
  if InstanceApplication.PreviousInstanceAlreadyExists then Exit;
  //............................................................................
  try
    try
      Application.Initialize;
      Application.ShowMainForm := False;
      Application.Title := 'RetailServeurWeb';
      RetailWebServiceJournal:=TRetailWebServiceJournal.CreerAujourdhui(Application,'RetailServeurWeb');
      Application.CreateForm(TFormPrincipale, FormPrincipale);
  Application.CreateForm(TFormParametrage, FormParametrage);
  Application.Run;
    except
      on E : Exception do begin
        if Assigned(RetailWebServiceJournal) then begin
          RetailWebServiceJournal.Ecrire('Exception occured while running application on "%s": "%s"',[E.ClassName,E.Message],0);
        end;
      end;
    end;
  Finally
    Try
      If Assigned(FormParametrage) Then Begin
        FormParametrage.Free;
        FormParametrage:=Nil;
      End;
      // On libère le journal en dernier car c'est lui qui a la responsabilité des traces
      RetailWebServiceJournal.Free;
    Except
      On E : Exception Do Begin
        If Assigned(RetailWebServiceJournal) Then Begin
          RetailWebServiceJournal.Ecrire('Exception occured while ending application: "%s"',[E.Message],0);
        End;
      End;
    End;
    // Maintenant on libère l'application. Cette libération est faite manuellement car il
    // se peut que des exceptions aient laissé l'objet application dans un état instable
    // On encadre donc cette libération par des try... except vides afin d'éviter les runtime error 216
      With Application Do Begin
        DoneApplication;
        //Si DoneApplication génère une exception alors on ne tente même pas le free... tant pis !
      End;
  End;
end.



Aide MSDN sur WM_QUIT:
----------------------

The WM_QUIT message indicates a request to terminate an application and is generated when the application calls the PostQuitMessage function. It causes the GetMessage function to return zero.

Syntax
WM_QUIT
    WPARAM wParam
    LPARAM lParam;
  
Parameters
wParam
Specifies the exit code given in the PostQuitMessage function.
lParam
This parameter is not used.
Return Value

This message does not have a return value because it causes the message loop to terminate before the message is sent to the application's window procedure.

Remarks

The WM_QUIT message is not associated with a window and therefore will never be received through a window's window procedure. It is retrieved only by the GetMessage or PeekMessage functions.

Do not post the WM_QUIT message using the PostMessage function; use PostQuitMessage.

Notification Requirements

Minimum DLL Version None
Header Declared in Winuser.h, include Windows.h
Minimum operating systems Windows 95, Windows NT 3.1

Commentaire de JulioDelphi le 18/09/2006 15:37:13 administrateur CS

@francky : lol =), fichier c:\program files\borland\delphi7\source\vcl\forms.pas, ligne 4608 :
procedure TCustomForm.Close;
var
  CloseAction: TCloseAction;
begin
  if fsModal in FFormState then
    ModalResult := mrCancel
  else
    if CloseQuery then
    begin
      if FormStyle = fsMDIChild then
        if biMinimize in BorderIcons then
          CloseAction := caMinimize else
          CloseAction := caNone
      else
        CloseAction := caHide;
      DoClose(CloseAction);
      if CloseAction <> caNone then
        if Application.MainForm = Self then Application.Terminate
        else if CloseAction = caHide then Hide
        else if CloseAction = caMinimize then WindowState := wsMinimized
        else Release;
    end;
end;

alors bon ... ^^

Commentaire de cirec le 18/09/2006 15:45:03 administrateur CS

ben donc si on ne tiens pas compte de TJustOne32 ni de TRetailWebServiceJournal il ne reste que ton appel à DoneApplication qui est inutile comme je l'explique plus haut !!!

Commentaire de cirec le 18/09/2006 15:47:58 administrateur CS

stp merci ça me permetra de comprendre le but de la manip ... qui m'échappe un peut :-)

Commentaire de JulioDelphi le 18/09/2006 16:19:47 administrateur CS

quelle adresse le FranckyForum ? :D

Commentaire de Francky23012301 le 18/09/2006 18:51:21

@Julio : Le FranckyForum n'a rien avoir avec le developpement donc promis je ne parle pas de Close, Application.terminate ou halt : promis ^^. C'est juste un site de recherche d'emplois dans le dommaine scientifique voili voilou.

Allez zou je dois faire la page d'index en html : que halt(0) soit avec vous .... Aie qui a lancé une tomate ? Arrr c'est Qoprek : attention toi lol