Hast du denn jetzt schon eine Lösung?
Schreibe mal, wie ich das mache: Also ich habe mehrere
DLL´s für Perepherie-Geräte. Da wird mir z.B. eine Funktion gegeben in der Dokumentation für das Perepherie-Gerät, die lautet:
function MMC_COM_open(portnumber,baudrate:integer):integer;
Um diese in meinem Programm einzubinden habe ich sie wie folgt deklariert:
Delphi-Quellcode:
const ExtLib = 'MMC.DLL'
..
function MMC_COM_open(portnumber,baudrate:integer):integer;
stdcall external ExtLib;
In deiner
Unit kannst du sie dann ganz normal verwenden:
Delphi-Quellcode:
...
procedure Beispiel;
var iWert: integer;
begin
// tue etwas
iWert := function MMC_COM_open(1,9600);
// tue weiteres
end;
gleiche Vorgehensweise nimmst du, wenn es sich nicht um Übergabewerte handelt, die den Typ Integer haben. Wenn du strings übergeben musst, kann es sein, dass du diese in PAnsiChar umcasten musst. Hier noch ein Bsp., wie ich eine Function einer
DLL benutze, bei der ich dieses Umcasten verwenden muss:
MMC_sendCommand(PAnsiChar('SV'+inttostr(iGeschwindigkeit)));