Discussion :

[MonPc]

Bonjour a tous et a toute ,
je suis vraiment devant une probleme bizar ,
a la fin d'une procedure de traitement j'ai mi un message :

Code :

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

Showmessage('Terminer') ;

mais ce message n'apparait qu'apres l'appel du gestionnaire de tache (c-a-d j'enfonce sur les touche Ctrl + alt + supp de mo, clavier)
et voila mon message apparait.
c'est vraiment bizar mais je ne connait pas la source du probleme .
avez vous une idée SVP

[zemeilleurofgreg]

ne serait-ce pas les symptômes d'une boucle infinie ?

[MonPc]

Merci baucoup zemeilleurofgreg pour ta reponse , mais il n'y a pas une boocle infini , j'uste il y a des requette (Interbase) de mise a jour de la base de donné.

[zemeilleurofgreg]

je ne peux que te conseiller le "pas à pas " à ce stade de la discussion.

pas à pas = F5 au début de la procédure et F7 pour avancer pas à pas.

[zemeilleurofgreg]

tu peux essayer de mettre un

Code :

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

Application.ProcessMessage

avant ton showmessage

mais j'ai des doutes !

[zemeilleurofgreg]

ou alors tu peux aussi nous donner le code de ta procédure afin d'y voir plus clair.

[MonPc]

je vais essayé , merci encore

[Paul TOTH]

Bonjour a tous et a toute ,
je suis vraiment devant une probleme bizar ,
a la fin d'une procedure de traitement j'ai mi un message :

Code :

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

Showmessage('Terminer') ;

mais ce message n'apparait qu'apres l'appel du gestionnaire de tache (c-a-d j'enfonce sur les touche Ctrl + alt + supp de mo, clavier)
et voila mon message apparait.
c'est vraiment bizar mais je ne connait pas la source du probleme .
avez vous une idée SVP

cette ligne est-elle dans un Thread secondaire ?

[MonPc]

Bonjour ,
Merci a tous pour vos reponse utils meme si j'ai pas encore eu une solution a mon probleme, sauf j'ai oublier que j'ai mis

Code :

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

sleep(1000) ;

avant le showmessage , pourque j'oblige mon programme de m'afficher mon message , mais pas de chance.
mais la prochene fois je vous envoie mon code entier.
merci a vous.
et avec vous en progress.

[zemeilleurofgreg]

sans le code, nous allons avoir difficile de t'aider !

[MonPc]

Bonjour a tous,
voici tous simplement mon code

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
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 
       // Destination est un composant de type IBDataBase
       Destination.Close;
       Destination.DatabaseName := ChemainBase.Text+'\'+Edit1.Text;
       Destination.Params.Clear;
       Destination.Params.Add('user_name='+IbUserName);
       Destination.Params.Add('password='+IbPassword);
       Destination.Open;
 
 
       IBScript1.Script.LoadFromFile('C:\MonFichier.txt');
       IBScript1.ExecuteScript;
 
 
       ShowMessage('La Mise a jour est terminée');
 
end;

Merci pour vos reponses et vos aides.

[cincap]

@ MonPc, peut être ajouter une condition :

Code :

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

1
2
 
if  IBScript1.ExecuteScript then ShowMessage('La Mise a jour est terminée');

@+,

Cincap