Thema: dll einbinden

Einzelnen Beitrag anzeigen

BAMatze

Registriert seit: 18. Aug 2008
Ort: Berlin
759 Beiträge
 
Turbo Delphi für Win32
 
#11

Re: dll einbinden

  Alt 6. Mär 2009, 10:40
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)));
  Mit Zitat antworten Zitat