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:
Delphi-Quellcode:
function ThirdOpenRS232Mode (ComPort: byte; Speed: word; DataMode: byte;
Obj : Pointer): boolean; stdcall; external '3rd_DLL2.dll';
Aufgerufen wird die Funktion folgedermaßen:
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