Hallo ! <P><P>
Ich habe eine Delphi-DLL die folgende Funktion enthält: <P><P>
<P>
procedure VCL_Mandant_setzen(Mandant: Integer);
begin
DM.DLL_Mandant := Mandant;
end;
</PRE>
<P><P>Nun rufe ich aus meinem C++-Programm die Funktion folgendermassen auf:
<P><P><P>
typedef VCL_Mandant_setzen(unsigned int);<P>
<P>
void DLL_Mandant_setzen()<P>
{<P>
VCL_Mandant_setzen *pMandant_setzen;<P><P>
if(hdll_DLL_Delphi)<P>
{ <P>
pMandant_setzen = (VCL_Mandant_setzen*)GetProcAddress(hdll_DLL_Delph i, "VCL_Mandant_setzen");
<P><P>
if(pMandant_setzen)<P>
pMandant_setzen(PSystem->Mandant);<P>
}<P>
}</PRE> <P><P>
Wenn meine Variable PSystem->Mandant den Wert 1 hat, kommt aber 44166804 an ?????
<P><P>
Hat das mit den Datentypen zu tun ?
<P><P>
Danke<P>
Gruss<P>
Maik
Ich habe eine Delphi-DLL die folgende Funktion enthält: <P><P>
<P>
procedure VCL_Mandant_setzen(Mandant: Integer);
begin
DM.DLL_Mandant := Mandant;
end;
</PRE>
<P><P>Nun rufe ich aus meinem C++-Programm die Funktion folgendermassen auf:
<P><P><P>
typedef VCL_Mandant_setzen(unsigned int);<P>
<P>
void DLL_Mandant_setzen()<P>
{<P>
VCL_Mandant_setzen *pMandant_setzen;<P><P>
if(hdll_DLL_Delphi)<P>
{ <P>
pMandant_setzen = (VCL_Mandant_setzen*)GetProcAddress(hdll_DLL_Delph i, "VCL_Mandant_setzen");
<P><P>
if(pMandant_setzen)<P>
pMandant_setzen(PSystem->Mandant);<P>
}<P>
}</PRE> <P><P>
Wenn meine Variable PSystem->Mandant den Wert 1 hat, kommt aber 44166804 an ?????
<P><P>
Hat das mit den Datentypen zu tun ?
<P><P>
Danke<P>
Gruss<P>
Maik
Comment