Discussion :

[lapinoob]

tu peux chercher les occurences de StrErrFIle dans cette unité et les copier , ...

Comme si c'etait fait

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
//declaration de la variable
strErrFile : String;
 
strErrFile:=dlgSave.FileName;
 
DispMsg.DisplayError(' Impossible d''ouvrir le fichier '
                                 +#13+'     '+strErrFile+' ! ', ERR_004);
 
DisplayTextFile('Rapport de vérification d''un fichier d''échange MISTRAL',
                 strErrFile);
 
dlgLoadXls.FileName:=strRefFile;
 
strRefFile:=dlgLoadXls.FileName;
 
exceldoc:=excel.Workbooks.Open(strRefFile);
 
Writeln(txtFile,ExpandFileName(strRefFile));
 
dlgSave.FileName:=ChangeFileExt('Erreurs_'+ExtractFileName(strInfoFile),'.txt');

Mais ce n'est pas qu'avec strErrFile met 2 autres strings font bugué egalement donc j'ai aussi rajouté les autres strings

[Moez.B]

Rien à signaler, j'ai relu tous les messages, il faut mettre un point d'arrêt dans le début du programme source ( la source du projet ) et déboguer jusqu'à arriver au message d'AV ..
Petit précision, tu fais un point d'arrêt après avoir sélectionné le menu projet --> voir la source , juste l'instruction après le begin..

[lapinoob]

Rien à signaler, j'ai relu tous les messages, il faut mettre un point d'arrêt dans le début du programme source ( la source du projet ) et déboguer jusqu'à arriver au message d'AV ..

Mon message d'AV arrive apres quelque secondes (4-5 secondes) apres le end du programme d'où mon probleme

[Moez.B]

Il faut déboguer sinon on ne trouvera jamais où réside l'erreur ... fais comme je t'ai demandé et on va voir ..

[lapinoob]

J'ai retrouvée le DisplayTextFile

Code :

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

1
2
procedure DisplayTextFile (title : String; filename : String);
          {$IFDEF WIN32} stdcall; {$ELSE} far; {$ENDIF}

[Moez.B]

J'ai retrouvée le DisplayTextFile

Code :

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

1
2
procedure DisplayTextFile (title : String; filename : String);
          {$IFDEF WIN32} stdcall; {$ELSE} far; {$ENDIF}

Bon, je crois que c'est une liaison avec une méthode dans une dll, si tu es en WIN32 alors le mode d'appel des paramètre va se faire de droite à gauche en stdcall sinon ( dans le cas des systèmes 16 Bits ) c'est avec le mot clé far ( question de compatibilité ). Béh, là je n'ai pas beaucoup touché aux Dll, mais ce que je sais c'est que dans les appels et en travaillant avec des chaînes de caractères, il faut utiliser des PChar ( pointeur sur une chaîne appelé aussi chaîne à zéro terminal ) , du coup les allocations faites pour les string sont gérées par le système car ça coûte énormément pour les buffers ....
Je te conseille de solliciter ce lien que je vais voir aussi :
http://delphi.developpez.com/faq/?page=systemedll

[lapinoob]

Bon j'ai enfin reussi a trouver la reponse.

Je croit que c'est le programme qui appelé mal le DisplayTextFile donc j'ai reussi a trouvé le .pas du cette fonction et j'ai mis la procedure dans mon main et appeler dans le uses le .pas de la fonction (je sais si j'ai été clair )

Je pense que c'est super mal fait mais sa marche et il me reste plus que 1 semaine de stage.

Et merci a tous le monde de m'avoir inculqué cette sagesse .
Mais c'est grâce a vous qui m'a permis de trouvé les pistes pour réglé le probleme donc Grand Merci

[Moez.B]

Eh bien, c'est bien pour toi, mets résolu à ton sujet et surtout bonne fin de stage..

[lapinoob]

Eh bien, c'est bien pour toi, mets résolu à ton sujet et surtout bonne fin de stage..

Merci