Discussion :

[SubZero2]

Je viens de créer un DLL en VB mais je n'arrive pas a executer la fonction que j'ai créée depuis un autre programme.

Code :

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

1
2
3
4
5
Public Shared Function GetMasse() As Integer
 Dim Poyop as Integer
 Poyop = 999
 Return Poyop 
End Function

Pas trop compliquée la fonction ...

Je pense qu'il faut "exporter" la fonction mais je ne sais pas comment faire .. ?

Pourriez vous m'aider ?

Merci d'avance

[ThierryAIM]

Ta dll est une dll ActiveX
tu dois cocher la référence à ta dll, dans le menu Projet >> Références

[SubZero2]

Merci.

Mais, je charge cette DLL dynamiquement à partir d'un programme Delphi comme suit :

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
procedure TForm1.Button1Click(Sender: TObject);
var
   msg: string;
   HandleDLL: THandle;
   toto: double;
   GetMasse: function: Integer;
begin
   GetMasse := nil;
   toto := 0;
   //Chargement de la DLL
   HandleDLL := LoadLibrary(pAnsiChar('RecupSeInfo.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(GetMasse) then
      toto := GetMasse;
 
   MessageDlg(FloatToStr(toto), mtWarning, [mbOK], 0);
end;

Ma DLL est bien chargée mais mon programme ne tourve pas ma fonction ...