Hallo zusammen!

Ich stehe vor einem kleinen Problem. Ich habe eine DLL, in der lt. Header-Datei folgende Function beschrieben wird:
THIRDDLL bool ThirdOpenRS232Mode(unsigned char ComPort, unsigned int Speed, unsigned char DataMode, int* Obj); Meine Implementierung in Delphi sieht folgendermaßen aus:

markieren

Delphi-Quellcode:

function ThirdOpenRS232Mode (ComPort: byte; Speed: word; DataMode: byte;
                                       Obj : Pointer): boolean; stdcall; external '3rd_DLL2.dll';

Aufgerufen wird die Funktion folgedermaßen:

markieren

Delphi-Quellcode:

var obj : integer;

procedure TForm1.Button1Click(Sender: TObject);
var freeports : integer;
begin
  try
     ThirdOpenRS232Mode(1,9600,0,@obj);
  except
  end;
end;

Leider gibt es eine Schutzverletzung. Ich denke, die Deklarationi ist richtig! Kann mir jemand eine Lösung bzw. einen Lösungsansatz anbieten?

Gruß

Nils

Ich habe da keine große Erfahrung, aber müsste es nicht so heißen?

markieren

Delphi-Quellcode:

function ThirdOpenRS232Mode (ComPort: byte; Speed: Cardinal; DataMode: byte;
                                       var Obj: integer): boolean; stdcall; external '3rd_DLL2.dll';

Roter Kasten kam dazwischen, das noch ergänzend zu DeddyHs Beitrag:
Du solltest einmal nachschauen, ob THIRDDLL wirklich __stdcall enthält. Eventuell ist der C++-bool nicht 1:1 kompatibel mit Delphi-Boolean, aber das weiß ich ehrlich gesagt nicht.

Danke für die schnellen Antworten. Leider haben mir beide Tipps nicht weitergeholfen. Noch jemand eine Idee?

Noch ein Versuch:

markieren

Delphi-Quellcode:

function ThirdOpenRS232Mode (ComPort: byte; Speed: Cardinal; DataMode: byte;
                                       var Obj: integer): bool; cdecl; external '3rd_DLL2.dll';

Aber wie gesagt: ich kann da auch nur raten.

Danke DeddyH!

Die Funktion funktioniert jetzt jetzt - true wird zurückgegeben und die Schutzverletzung ist auch weg!

Gruß

Nils