Discussion :

[yupa]

Bonjour

J'ai un souci avec le passage d'un PChar à une DLL :

Voici le code de la fonction DLL que je veux appeler (elle me renseigne sur le numéro de version de la DLL):

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
type
  Tcodereturn = longint;
  TSZ         = pchar;
 
function VMK_version (SZversion : TSZ): Tcodereturn; stdcall;
var
   str : string;
   status : longint;
begin
str:=ikimal_version;
status:=length(str);
strbufsize(SZversion);
strPcopy(SZversion,str); 
result:=status;
end;

Et voici comment j'y fais appel dans un petit programme de test :

Code :

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

1
2
3
4
5
6
7
8
9
type
  Tcodereturn = longint;
  TSZ         = PChar;
[...]
var
  str : TSZ;
[...]
begin;
  VMK_version(str);

Quand je fais ca, j'ai une erreur d'accès d'adresse mémoire dans la DLL sur

Code :

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

strPcopy(SZversion,str);

J'ai essayé en déclarant ma variable str comme une string et en faisant

Code :

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

VMK_version(pchar(str));

mais j'ai la même erreur.

La DLL est utilisée dans plein d'application, donc je ne pense pas que le problème vienne de la, mais plutôt de la façon dont j'y fais appel.
Petit précision je travaille avec Turbo Delphi sous Vista.

Est ce que qq un a une idée?

[Andnotor]

Il doit te manquer le stdcall du côté de ton application.

[yupa]

Il ne me semble pas, j'ai bien mis :

Code :

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

function VMK_version (SZversion : TSZ): Tcodereturn; STDCALL; external 'ikimal.dll' name 'VMK_version';

au début de mon programme de test...

Mais j'ai peut être oublié qq chose d'autre ?

[Andnotor]

Es-tu sûr que SZversion est assez grand pour recevoir Str ? On ne voit pas où tu alloues ton buffer.

[Cl@udius]

Es-tu sûr que SZversion est assez grand pour recevoir Str ?

+1

De plus l'appel à cette fonction ne sert à rien.

Code :

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

strbufsize(SZversion);

@+

[Paul TOTH]

je te recommande la lecture du chapitre 19 (page 497) du livre "Delphi 7 Studio" aux éditions Eyrolles.

Et comme Eyrolles est vachement sympa, ledit chapitre est disponible en ligne !

[yupa]

Merci beaucoup pour vos réponses.
Le problème c'est bien le pointeur que je passais à la DLL n'avait pas de d'espace mémoire réservé.

Merci pour le lien... j'ai (presque) tout lu

Petite question :
Toutes les fonctions de la DLL qui renseignent un PChar ne font pas l'allocation mémoire nécessaire. C'est au programme appelant de faire l'allocation, ne sachant pas a l'avance la taille nécessaire. Est ce que ca vous parait normal ?

[Paul TOTH]

Merci beaucoup pour vos réponses.
Le problème c'est bien le pointeur que je passais à la DLL n'avait pas de d'espace mémoire réservé.

Merci pour le lien... j'ai (presque) tout lu

Petite question :
Toutes les fonctions de la DLL qui renseignent un PChar ne font pas l'allocation mémoire nécessaire. C'est au programme appelant de faire l'allocation, ne sachant pas a l'avance la taille nécessaire. Est ce que ca vous parait normal ?

tu n'as donc pas "tout" lu notamment les pages 499 et 500