Discussion :

[Sjeuil]

Bonjour,

J'ai besoin d'utiliser une DLL écrite en C++.

Voici la fonction comme déclarée en c++

Code :

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

1
2
//Get version
	void Version(char *version,int len);

Mon appel de fonction en Delphi :

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
procedure TForm1.Appel_fonction_dllClick(Sender: TObject);
var HandleDLL : THandle;
    Version : procedure (var Version_TXT : pAnsiChar;longueur : integer); stdcall;
    Version_TXT : pAnsiChar;
    longueur : integer;
begin
  Version := nil;
  HandleDLL := LoadLibrary(pWideChar('D:\BAPSI source BOSCH\BAPSI\BAPSI\components\4.01.012\dll\BAPSIDLL.dll'));
  if HandleDLL = 0 Then Exit;
  Version := GetProcAddress (HandleDLL, pAnsiChar('?Version@CBAPSIDLL@@QAEXPADH@Z'));
  if Assigned(Version) then
    begin
    ShowMessage('Fonctionne');
    Version(Version_TXT,longueur);
    Edit4.Text := Version_TXT;
    end;
end;

L'assignation semble fonctionner comme l’atteste le message 'fonctionne' mais j'ai ensuite lors de l'utilisation de la fonction un message d'erreur eAccessViolation.

J'ai essayé de l'appeler avec la convention stdcall avec le même résultat.

Merci de votre aide.

[Linkin]

Version_TXT n'est pas initialisé. (avec un StrAlloc(50); par exemple)

[Sjeuil]

En effet je n'ai plus de message d'erreur.

Malheureusement je n'ai pas non plus de retour escompté.

Cette fonction doit me renvoyer la version de la DLL et là chaine est vide et la longueur à 0.

J'ai le même problème de eAccessViolation sur des procédure utilisant des integer.

Il faut aussi les réserver en mémoire ? Si oui comment ?

[Lung]

Version := GetProcAddress (HandleDLL, pAnsiChar('?Version@CBAPSIDLL@@QAEXPADH@Z'));

Je ne comprend pas cette syntaxe : '?Version@CBAPSIDLL@@QAEXPADH@Z'
Je n'ai jamais utilisé ça. Ça veut dire quoi ?
Moi, d'habitude, je mets juste la nom de la procédure / fonction.

[Sjeuil]

C'est le nom 'habillé' par le compilateur C et qui ressort lorsque l'on fait un tdump -ee sur la DLL.

[Andnotor]

Le nom de la procédure est Version et rien d'autre.
Longueur doit certainement être initialisé à la longueur de la chaîne allouée.
A voir ensuite si cette fonction renvoie de l'ANSI ou de l'Unicode.

[guillemouze]

char *version -> var PAnsiChar
je crois qu'il y a une erreur à ce niveau, il me semble que ca devrait plutot etre un PAnsiChar pas en var

Code :

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

Version : procedure (Version_TXT : pAnsiChar;longueur : integer); stdcall;

[Papy214]

...
Longueur doit certainement être initialisé à la longueur de la chaîne allouée.
...

Je n'ai aucune notion de C mais si l'* devant le premier paramètre correspond au var de Delphi, il semble évidemment que ça vienne de là.

[Paul TOTH]

Code :

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

void Version(char *version,int len);

procédure "Version" premier paramètre un pointer sur un char (PChar), second paramètre en entier (Integer).

Code :

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

procedure Version(version: PChar; len: Integer);

il est fort à parier que version doit être alloué et len en donne la longueur

Code :

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

1
2
3
4
5
6
 
var
  ver: array[0..1023] of Char;
begin
  Version(ver, SizeOf(ver));
end;

reste à savoir la convention d'appel utilisée stdcall ou cdecl par exemple.

ensuite, ce n'est pas une simple fonction mais le membre d'une classe objet C++ ! Et là c'est pas la même chose !

Notez au passage que dans le lien, les développeurs C++ eux-mêmes ne trouve pas simple son utilisation ^^