Discussion :

[810mcu]

Bonjour a tous,
En voulant écrire cette procédure, je suis resté bloqué
Comment faire pour me débloquer SVP...
Je suis en Delphi6 Enterprise

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure Tf_Valider.FormCreate(Sender: TObject);
var
  atom: Integer;
begin
  if GlobalFindAtom('MINHA STRING') = 0 then
    atom := GlobalAddAtom('MINHA STRING')
  else
    begin
      MessageDlg('L''application MADEIRAS est déjà en EXECUTION !!', mtWarning, [mbOK], 0);
      Halt;
    end;
end ;

Et

Code :

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

1
2
3
4
5
6
7
8
procedure Tf_Valider.dxb_quitterClick(Sender: TObject);
var
  atom: Integer;
begin
  GlobalDeleteAtom(atom);
 
  Application.Terminate;
end;

Là je n’arrive plus a démarrer mon application, il donne ça !!!!
===> Opération annulée

Merci de votre aide a tous.
LF

[Cl@udius]

Salut

atom est une variable locale. Tu perds donc sa valeur en quittant le Create.

Utilise une variable globale.

@+ Claudius

[810mcu]

OUI,

Mais mon problème c est que je suis bloqué,
Comment faire pour me débloquer maintenant
(Opération annulée)
Je n’est aucune idée comment procéder, quelqu’un peut m’aider SVP

LF

[810mcu]

Des que j essaie de lancer l’application, j’obtient
Operation annulée….

[Andnotor]

Tu n'as plus qu'à rebooter et faire la modif à Claudius .

Sinon, utilise plutôt un mutex qui ne vivra que pendant la durée de l'application.

[Cl@udius]

Re,

Pour le mutex tu as un exemple dans la Faq: Comment n'instancier qu'une seule fois un programme ?

@+

[810mcu]

SVP

Quelqu'un sait me dire comment je delete ce fichu ATOM

[Cl@udius]

As-tu rebooter ta machine, comme te la conseillé Andnotor ?

Mais également supprimer le FindAtom, puisque tu passes par un Mutex maintenant ?

[810mcu]

Oui, meme apres reboote toujour

Opération annulée et il bloque là

Cl@udius,
quand tu dis (supprimer le FindAtom)
Est-ce que ce code est correcte? si non merci de ton aide,
Parce que là je rame...

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
18
19
{$R *.res}
var
   H : THandle;
   Erreur: Integer;
   atom: Integer;
begin
  GlobalDeleteAtom(atom);

  SetLastError(NO_ERROR);
  H := CreateMutex (nil, False, 'Mad');
  Erreur := GetLastError;
  if ( Erreur = ERROR_ALREADY_EXISTS ) or ( Erreur = ERROR_ACCESS_DENIED )
    then Exit;

  Application.Initialize;
  Application.CreateForm(Tf_Valider, f_Valider);
  Application.Run;
  CloseHandle(H);
end.

merci de ton aide.
LF

[Eric Boisvert]

opération annulée vient d'ailleur...
rien à voir avec l'atom
Écrire ceci n'a aucun sens puisque atom n'est pas initialisé

Code :

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

1
2
3
4
5
6
7
 
var
   H : THandle;
   Erreur: Integer;
   atom: Integer;
begin
  GlobalDeleteAtom(atom);

Fait afficher les break-points du projet CTRL+ALT+B
et efface tout les point d'arrêt du programme.

Est-ce que l'application démarre si Delphi est fermé?

[810mcu]

Bonjour Eric,

Ne démarre pas NON plus même avec Delphi fermer,
Tiens ça je n’avait pas pensée, de fermer Delphi, mais bon je suis toujours au même point.
Mais par contre que ça pouvait ne pas être de l’Atom j’ai commencé à douter de ça, ou serait l’erreur ??? P-c-q là je bloque…

Je vérifie les break-points...

@+
LF

[810mcu]

Il n’existe pas de break-points, la liste est vide !!!!

[810mcu]

Bonjour à tous,
Le week-end a été bon….

Il n’y a pas une âme qui pourrait m’aider sur ce problème
Là je galère sérieusement…
C’est ce msg (Opération annulée) qui bloque mon Application

LF

[810mcu]

Voici le msg qui apparaît...
(Madeiras) est le nom de l’application

[Eric Boisvert]

Est-ce qu'on peut voir toutes les lignes de code entre
Program Madeiras
et
{$R *.RES}

[Eric Boisvert]

En faite, je viens de retrouver un problème que j'ai expérimenté ici.

C'était un peu louintain dans ma tête et je vous le soumet ici.
(ça n'a peut-être aucun lien avec ton problème)

Avec mon delphi 5 ici, impossible de changer Application.Title dans
une fonction et/ou procedure.

Le compilateur refuse de compiler.

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
18
19
20
21
 
Program Test
 
use
  ....
 
{$R *.RES}
 
//procedure PeutImporteLeNom(PeutImporteLeNomICIAUSSI:string);
//le compilateur refuse de compiler (D5)
procedure ChangeTitle(s:string);
begin
    Application.Title:=s; // Si on met cette ligne en commentaire, pas de probleme!?!
end;
 
Begin
 Application.Initialize;
 ChangeTitle('TESTBidon');
 Application.CreateForm(TfrmMain, frmMain);
 Application.Run;
End.

Que ce passe-t-il avec une autre version Delphi avec ce code?
Est-ce qu'on obtient le Opération Annulée de 810mcu?
si quelqu'un peu expliquer pourquoi Delphi refuse de le faire...

Comme je dis, peut-être aucun lien avec le problème de 810mcu....

[810mcu]

Bonjour a tous,

Pour qui ça peut aider,

J’ai trouvé une astuce qui a fonctionné, peut être pas trop catholique mais
Ça due être comme ça, au final j’ai résolu mon problème.

1. Restaurer le system a une date précédant l’exécution
2. Facultatif, effacer l’EXE
3. re-compiler avec Delphi

Voila ce que j’ai fait, est ça marche

Merci a vous tous.
LF

[Jipété]

Yop !

Que ce passe-t-il avec une autre version Delphi avec ce code ?

D7 PE :Compile impec, mais impossible d'exécuter (Menu "Exécuter", "Exécuter F9" est grisé...) Avec ta ligne à souci en commentaire, ça s'exécute.

Est-ce qu'on obtient le Opération Annulée de 810mcu ?

Non, rien à voir, àmha.

si quelqu'un peu expliquer pourquoi Delphi refuse de le faire...

Il doit s'embrouiller qqpart, car si je veux "enregistrer le projet sous...", je gagne :

Erreur dans le module Project1 : L'appel à Application.CreateForm est manquant ou incorrect.

Solution :

1. mettre la ligne en commentaires ;
2. "enregistrer le projet sous..." ;
3. décommenter la ligne ;
4. compiler ;
5. aller dans le dossier d'enregistrement, où l'on va trouver un magnifique .exe qui fonctionne as expected, ie, Application.Title est bien changé !

Valà,

[Eric Boisvert]

Merci pour les tests Jipété!
Mon but était de faire quelque chose du genre

Code :

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

1
2
 
Application.Tilte:='NomDuPrg.EXE V' + GetFileVers(Application.ExeName);

Disons que j'avais chercher longtemps pourquoi mon projet de compilait plus.
C'est domage...