Discussion :

[Tardiff Jean-François]

bonjour,
J'ai une DLL qui me donne quelque soucis.
J'apelle une fonction qui le retourne unPChar. De temps en temps, les 2 ou 3 derniers caractères de la valeur de retour est remplcé par un caractère à prioris au hasard.

Voici comment la Fonction est defini

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
function BrowseTractImage( directory : PChar;
                           ARasterExtensions : Pchar;
                           AVectorExtensions : Pchar;
                           AList : Pchar;
                           ABarBackground : pointer;
                           AXmlName: Pchar;
                           ADllName: PChar;
                           IvBinaryDictionary: Pointer
                         ) : PChar ; stdcall; export;
var
  ABarBackgroundBitmap: ^TBitmap;
  TempList: TStringList;
  Sdirectory : String;
  SAName : String;
  SARasterExtensions : String ;
  SAVectorExtensions : String ;
  SAList : String;
  SAXmlName: String;
  SADllName: String;
  PIvBinaryDictionary : ^TIvBinaryDictionary;
  AIvBinaryDictionary: TIvBinaryDictionary;
begin
 
  Sdirectory             := directory;
  SAName                 := ''       ;
  SARasterExtensions     := ARasterExtensions;
  SAVectorExtensions     := AVectorExtensions;
  SAList                 := AList    ;
  SAXmlName              := AXmlName ;
  SADllName              := ADllName ;
  PIvBinaryDictionary := IvBinaryDictionary;
  AIvBinaryDictionary := PIvBinaryDictionary^;
 
  CoInitialize(nil);
  ABarBackgroundBitmap := ABarBackground;
  TempList := TStringList.create;
  try
    BrowseForImage(nil, directory , SAName, SARasterExtensions, sAVectorExtensions, TempList, ABarBackgroundBitmap^,
      SAXmlName, SADllName, AIvBinaryDictionary);
  GetMem(result, length(sAName) + 5);
  Result:= PAnsiChar(sAName)
 
  finally
   TempList.Free;
  end;
  CoUninitialize;
 
end;

La définition dans le programme de test.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  TBrowseTractImage = function (
    directory : Pchar;
    ARasterExtensions : Pchar;
    AVectorExtensions : Pchar;
    AList : Pchar;
    ABarBackground : pointer;
    IniName: Pchar;
    DllName: Pchar;
    IvBinaryDictionary: Pointer) :  Pchar ; stdcall; // ImageBrowser.dll;

L'apelle de la fonction

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
var
  ParametersBrowser : Pchar;
  ABkgd: TBitmap;
  CloseThemes: TCloseThemes;
  BrowseTractImage: TBrowseTractImage;
  SName: String;
begin
 // name := GetMemory(4096);
 // ParametersBrowser := GetMemory(4096);
  if DllHandle = 0 then
    DllHandle  := LoadLibrary(PAnsiChar('ImageBrowser.dll'));   // LoadLibrary in uses Windows
  try
    if DllHandle <> 0 then begin
      @CloseThemes:= GetProcAddress(DllHandle, 'CloseThemes');
      @BrowseTractImage := GetProcAddress(DllHandle, 'BrowseTractImage');
 
         ABkgd := TBitmap.Create;
        try
 
           ParametersBrowser := '';
          ABkgd.Assign(img1.Picture.Bitmap);
 
          SName := BrowseTractImage(
            '',
            '*.gif;*.bmp;*.jpg;*.jpeg;*.tif;*.Png;*.tga',
            '*.wmf;*.emf;*.eps',
            ParametersBrowser,
            @ABkgd,
            'Essai Ini.xml',
            'TractConfig.Dll',
            @IvBinaryDictionary1
          );
 
          Image1.Visible := False;
          if SName <> '' then  begin
            Label1.Caption := string(Sname);
            Image1.Picture.LoadFromFile(Label1.Caption);
             Image1.Visible := True;
          end;
          ;
        finally
          ABkgd.Free;
        end;
 
      CloseThemes;
    end;
 
  finally
  end;

J'ai fait toutes sorte d'essai suivant mes idées et celle que j'ai pus trouver sur internet, mais la, je séche.

Merci

[Graffito]

Bonjour,

Autant que je me souvienne (j'ai plus fait de DLL depuis longtemps), il faudrait retourner la chaine de caractère dans un buffer dont l'adresse est passée en paramètre d'entrée (type Pchar) et renvoyer simplemment dans l'argument de la fonction un simple code retour (type entier, booléen, char,...) ou rien.

[Eric Boisvert]

Tu fais une grosse bêtise avec ton pointeur dans BrowseTractImage()...
Fais du trace avec ce bout de code et regarde bien
l'adresse de MyResult...
Ici, je travail avec MyResult défini comme un pointeur...
c'est plus facile de voir le probleme...

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
 
procedure TForm1.Button9Click(Sender: TObject);
var
    sAName:string;
    MyResult:pointer;
begin
    MyResult:=NIL;
    sAName:='allo';
    GetMem(MyResult, length(sAName) + 5); //adresse de MyResult: $FC5F28
    MyResult:= PAnsiChar(sAName); // --> pas bon! adresse de MyResult change!
    sAName:='';
    FreeMem(MyResult); //Avec GetMem...Ca prend toujours un Freemem!
                             //Mais là ca plante car MyResult ne pointe plus vers
                             //le même endroit!
end;

tu dois utiliser ton pointer avec strcopy:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.Button9Click(Sender: TObject);
var
    sAName:string;
    MyResult:pointer;
begin
    MyResult:=NIL;
    sAName:='allo';
    GetMem(MyResult, length(sAName) + 5); //adresse de MyResult: $FC5F28
    Strcopy(MyResult,PAnsiChar(sAName)); //adresse de MyResult est toujours: $FC5F28 donc ok
    sAName:='';
    FreeMem(MyResult); //Avec GetMem...Ca prend toujours un Freemem!
end;

Je crois que c'est bien là le problème....

[Tardiff Jean-François]

Dans la version initiale, la valeur était retournée dans un PChar dans les paramètres d'entrés, et l'argument de retour était un booléen. Je ne suis arrivé à la valeur actuelle qu'après énormément d'essais et de recherche. Mes tentatives ont fait varier la forme de l'appelle, mais qui m'ont toujours laissé avec mon erreur.



Je n'ai pas lu la réponse de Eric Boisvert avant d'envoyer se message. J'était ocuppé à passer mon texte au correcteur orthographique. Je répondait à Graffito.

[Tardiff Jean-François]

Je viens de lire le message d'Eric Boisvert. Je vais essayer dès lundi matin.
Merci

[Graffito]

Au cas où, il faut ajouter un #0 à la fin de saName.

[Tardiff Jean-François]

Cela aussi a été essayer.
A vrai dire, je me suis tellement embêté avec ce problème que j'ai eu un moment l'envie d'aller jeter le pc dans l'Oise.
Ceci dit, la sugestion d'Eric Boisvert (utiliser StrPCopy) peut, éventuellement, résoudre mon problème. Je verrais bien Luni.

Merci pour l'aide.

[Tardiff Jean-François]

Bonjour,

Je viens de tester StrPCopy. Cela fonctionne.

Merci infiniment pour l'aide. On ne dira jamais assé comment des détails de ce type peuvent vous pourrir l'existence.