Discussion :

[SubZero2]

Bonjour,

J'ai développé une DLL en vb avec 1 fonction comme suit :

Code :

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

1
2
3
Function GetMasse(Ext As String) As String
  GetMasse = "OK"
End Function

Et je veux appeler cette fonction depuis mon programme Deplhi et je fais comme ça :

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
procedure TForm1.Button1Click(Sender: TObject);
var
   msg: string;
   HandleDLL: THandle;
   GetMasse : function (Ext: Variant): Variant;  stdcall;
begin
   GetMasse := nil;
   //Chargement de la DLL
   HandleDLL := LoadLibrary(pAnsiChar('DLLSample.dll'));
 
   //Si la DLL n'est pas chargée on ne continue pas
   if HandleDLL = 0 then Exit;
 
   //Récupération de l'adresse de la fonction nommée 'Somme'
   GetMasse := GetProcAddress(HandleDLL, pAnsiChar('GetMasse'));
 
   //Appel de la fonction si on a bien récupéré son adresse
   if Assigned(Fonction) then
       MessageDlg('Youpiiiiii', mtWarning, [mbOK], 0);
 
   msg := GetMasse('.ASM');
   MessageDlg(msg, mtWarning, [mbOK], 0);
end;

Ma fonction VB est bien exportée ( j'ai verfiié avec tdump, elle se charge bien ( j'ai mon MessageDlg qui apparait ) mais dés que je l'appelle, j'ai une violation d'accés dans le module msvbvm60.dll ...

Quelqu'un aurait-il une idée ? Merci d'avance

[rbh]

Salut
je ne suis pas sûr mais j'ai peut-être une piste.
Cela s'applique à l'utilisation de DLL utilisant des chaines de caractères mais pas spécialement VB.

Sous Windows, si une DLL exporte des routines qui transmettent des chaînes longues ou des tableaux dynamiques comme paramètres ou comme résultat de fonction, que ce soit directement ou à l'intérieur d'enregistrements ou d'objets, la DLL et ses applications client (ou DLL) doivent toutes utiliser l'unité ShareMem. Cela s'applique également si une application ou une DLL alloue avec New ou GetMem de la mémoire qui est désallouée par l'appel de Dispose ou FreeMem dans un autre module. Quand elle est utilisée, l'unité ShareMem doit toujours être la première unité énumérée dans la clause uses du programme ou de la bibliothèque l'utilisant.

ShareMem est l'unité d'interface du gestionnaire de mémoire BORLANDMM.DLL qui permet à des modules de partager de la mémoire allouée dynamiquement. BORLANDMM.DLL doit être déployé avec les applications et les DLL qui utilisent l'unité ShareMem. Quand une application ou une DLL utilise ShareMem, son gestionnaire de mémoire est remplacé par celui contenu dans BORLANDMM.DLL..

Mais cela dit, ici il parle de DLLs créer avec Delphi qui doivent avoir "Sharemem" en première clause uses du DPR, tout comme l'application.
Je ne vois pas comment le faire en VB mais il doit y avoir quelque chose à faire.

PS:
En plus je vois que ta fct° VB renvoie une chaine et tu l'utilise dans delphi avec des variants, je ne trouve pas ça très joli.

[SubZero2]

Merci pour votre temps !
Effectivement, les variant sont pas tres jolis, mais ce n'est que le resultat de pultiple test de passage de parametres ...

Je vais fouiller du coté de Sharemem !

Merci !

[smyley]

A mon avis l'utilisation de PChar serait plus judicieuse mais dans ce cas il faudrait que le String de VB soit un TSTR ou variante natives. Vérifie aussi que VB exporte ses fonctions avec la convention stdcall.

[SubZero2]

comment puis-je savoir si VB export ses fonction a la convention stdcall ?

MErci