Discussion :

[Anonymous]

J'ai développé une DLL en C++ qui doit être utilisée avec Delphi 5.0

Cell-ci fonctionne très bien avec un programme C++, mais je n'arrive pas à l'utiliser avec Delphi.

Ma DLL est 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
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
51
//--------------------------------------------------------------------------- 
#include <vcl.h> 
#include "FloatDLL.h" 
#pragma hdrstop 
//--------------------------------------------------------------------------- 
extern __declspec&#40;dllexport&#41; void Float&#40;char ,float&#41;; 
 
void Float&#40;char mnemonic&#91;4&#93;,float *Reponse&#41; 
&#123; 
*Reponse = *&#40;float *&#41; mnemonic; 
&#125; 
//--------------------------------------------------------------------------- 
int WINAPI DllEntryPoint&#40;HINSTANCE hinst, unsigned long reason, void*&#41; 
&#123; 
return 1; 
&#125; 
//--------------------------------------------------------------------------- 
 
Cette fonction utilise *&#40;float*&#41; pour convertir une valeur binaire en point flottant, ça fonctionne. 
 
 
Le programme en C++ qui la fait fonctionner est comme suit&#58; 
 
//--------------------------------------------------------------------------- 
#include <vcl.h> 
#pragma hdrstop 
 
#include "FloatDLL.h" 
#include "Conv_FloatUnit.h" 
//--------------------------------------------------------------------------- 
#pragma package&#40;smart_init&#41; 
#pragma resource "*.dfm" 
TForm1 *Form1; 
//--------------------------------------------------------------------------- 
__fastcall TForm1&#58;&#58;TForm1&#40;TComponent* Owner&#41; 
&#58; TForm&#40;Owner&#41; 
&#123; 
&#125; 
//--------------------------------------------------------------------------- 
void __fastcall TForm1&#58;&#58;Button1Click&#40;TObject *Sender&#41; 
&#123; 
char mnemonic&#91;4&#93; = "00“B"; 
float Reponse =-999.9; 
Float&#40;mnemonic,&Reponse&#41;; 
&#125; 
//--------------------------------------------------------------------------- 
void __fastcall TForm1&#58;&#58;Button2Click&#40;TObject *Sender&#41; 
&#123; 
Close&#40;&#41;; 
&#125; 
//---------------------------------------------------------------------------

Pour appeler cette fonction en Delphi j'utilise le code suivant:

Code :

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

1
2
3
Procedure Float(mnemonic: Str4; ReponsePtr: Pointer); external 'FloatDLL.DLL'; 
 
Float(DataStr[II],ReponsePtr);

Ça ne fonctionne pas !

J'ai aussi aluoté à la fonction d'appel stdcall

Procedure Float(mnemonic: Str4; ReponsePtr: Pointer); stdcall external 'FloatDLL.DLL';

Ça ne fonctionne pas plus !


J'apprécierais avoie de l'aide pour résoudre mon problême

[Balise [code] rajoutée par gRRosminet]
[Pensez-y vous-même à l'avenir. Merci.]

[Anonymous]

Salut,
l'entête de la déclaration de la fonction doit être la suivante
extern "C" __declspec(dllexport) __stdcall void Float(char * mnemonic,float *Reponse);

la fonction exportée devient alors Float et non _Float

en outre en delphi avec une DLL "C" il est préférable d'utiliser les PChar,
-- > Appel delphi

Procedure Float(mnemonic: Pchar; totorSingle);stdcall ;external 'FloatDLL.DLL';


var
ReponsePtr: Single;
totorChar;
begin
totor:='00“B';
Float(totor,@ReponsePtr);
Label2.Caption:=FloatToStr(ReponsePtr);
end;

Salutations

[Anonymous]

J'ai fait exactement ce selon tes recommandations et ça fonctionne très bien. Je te remercie infiniment de ton aide.

Jacquelin Rouleau