Discussion :

[Lung]

Voici mon problème.

J'avais une DLL, avec une fonction exporté :

Code :

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

1
2
3
4
   procedure InitColisageDLL(HandleApp: HWND; pSession: Pointer; const sCodeSociete, sCodeSite, sCodeAtelier, sUtilisateur: PChar; const bAdministrateur: LongBool);   stdcall;
 
exports
   InitColisageDLL name 'InitColisageDLL';

Fonction que j'appelais comme ça depuis un exe :

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
var
   InitColisageDLL: procedure(HandleApp: HWND; pSession: Pointer; const sCodeSociete, sCodeSite, sCodeAtelier, sUtilisateur: PChar; const bAdministrateur: LongBool);   stdcall;
...
      HandleDLLColisage := LoadLibrary('C:\DLL\Colisage.dll');
      if HandleDLLColisage = 0 then
         Application.MessageBox('.Erreur :  ...')
      else
      begin
         try
            @InitColisageDLL := GetProcAddress(HandleDLLColisage, 'InitColisageDLL');
            if @InitColisageDLL = nil then
               Application.MessageBox(PChar('.Erreur :  ...')
            else
            begin
               try
                  try
                     InitColisageDLL(Application.Handle, @Session, PChar('HE'), PChar('HM'), PChar('15'), PChar(szUtilisateur), bDroitAdmin);

Jusque là, tout allait bien.

Maintenant, je veux rajouter un paramètre.
Dans ma DLL :

Code :

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

procedure InitColisageDLL(HandleApp: HWND; pSession: Pointer; const sCodeSociete, sCodeSite, sCodeAtelier, sCodeZone, sUtilisateur: PChar; const bAdministrateur: LongBool);   stdcall;

Dans mon exe :

Code :

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

InitColisageDLL(Application.Handle, @Session, PChar('HE'), PChar('HM'), PChar('15'), PChar('1'), PChar(szUtilisateur), bDroitAdmin);

Si j'essai de récupérer la valeur de ce nouveau paramètre (sCodeZone), j'ai une splendide erreur (violation d'accès), comme s'il n'existait pas.

Code :

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

1
2
3
4
      _szCodeSociete := sCodeSociete;
      _szCodeSite := sCodeSite;
      _szCodeAtelier := sCodeAtelier;
      _szCodeZone := sCodeZone;    <-- ERREUR ICI.

Qu'est ce que j'ai oublié ?

[ShaiLeTroll]

Juste une remarque, tu passes des PChar en const, ... euh cela donne donc un Pointeur sur PChar en réalité ... en fait qui est en const c'est le pointeur, par contre, le contenu de la mémoire doit être modifiable ...

Tu devrais peut-être pour simplifier l'ajout de champ pour le futur, mettre tes données dans un "record", ...

PS : Colisage, ah ça me rappelle, un vieux programme avec le doux nom de P5, dans un chaine logistique automatisée, j'étais un apprenti sur un projet vendu à 500KFrs alors que cela en valait bien 2MFrs ... j'aimerais bien en refaire ...

[Lung]

Juste une remarque, tu passes des PChar en const, ... euh cela donne donc un Pointeur sur PChar en réalité ... en fait qui est en const c'est le pointeur, par contre, le contenu de la mémoire doit être modifiable ...

Ah ok.
Je mets des const par habitude. Bon, je l'ai enlevé (et l'erreur est toujours là).

Tu devrais peut-être pour simplifier l'ajout de champ pour le futur, mettre tes données dans un "record", ...

Je l'ai déjà fait pour une autre DLL, où il y avait beaucoup de paramètres, mais ça complique pas mal (je trouve) le code.

Pour un malheureux caractère en plus, j'aimerais bien faire simple.

[ShaiLeTroll]

As-tu fait un "Tout Constuire" dans la DLL et dans l'Exe ?
Lance-tu la DLL avec la bonne version de l'exe (voir répertoire de l'exe dans les options de projet, et celui configurer comme l'application Hote de la DLL...)

[Lung]

As-tu fait un "Tout Constuire" dans la DLL et dans l'Exe ?

Oui. J'ai même supprimé la DLL et l'exe, pour être bien sûr de les voir ré-apparaître quand je re-compile.

Lance-tu la DLL avec la bonne version de l'exe (voir répertoire de l'exe dans les options de projet, et celui configurer comme l'application Hote de la DLL...)

J'ai vérifié aussi.
La DLL est bien reliée à son hôte, et elle va se placer dans le bon répertoire, dans lequel l'exe va la chercher dynamiquement avec un LoadLibrary.

[Lung]

Pas d'autres idées ?

[ShaiLeTroll]

Essaye de mettre '01' au lieu de '1', une éventuelle différence Char et String ?

[Lung]

Essaye de mettre '01' au lieu de '1', une éventuelle différence Char et String ?

Ca marche !!



Cette astuce me serait pas venu à l'idée.



Par contre, je ne comprend pas bien, pourquoi avec un char, ça ne fonctionne pas.

[ShaiLeTroll]

le char c'est un seul octet en D6, alors qu'une chaine contenant un seul char, c'est deux octets, le char et le zéro terminal ... d'où la violation d'accès, il essaye de lire la chaine mais tombe sur de la mémoire non accessible

Code :

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

1
2
3
4
5
6
var
  Mon1: string;
begin
  Mon1 := '1';
  InitColisageDLL(Application.Handle, @Session, PChar('HE'), PChar('HM'), PChar('15'), PChar(Mon1), PChar(szUtilisateur), bDroitAdmin);
  ...