Hallo,
ich verzweifle gerade, einen simplen Code von Delphi7 nach Lazarus/fpc zu portieren, der eine
dll dynamisch laden soll.
LoadLibrary funktioniert nicht, liefert 0 zurück.
Hier mein Code:
Delphi-Quellcode:
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, Windows;
type
{ TForm1 }
TForm1 =
class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
var
dll_handle: Cardinal=0;
procedure TForm1.Button1Click(Sender: TObject);
begin
dll_handle := LoadLibrary('
d:\test\TestLib.dll');
Label1.Caption:=inttostr(dll_handle);
end;
end.
Derselbe Code in Delphi7 funktioniert einwandfrei. Der Pfad zur
dll stimmt.
Was mache ich falsch?
Kann das was damit zu tun haben, dass Delpi7 32bit code produziert, womit auch die
dll erzeugt wurde, Lazarus aber 64bit code macht? Kann ich auf einer 64bit Maschine mit Lazarus auch 32bit Code erzeugen?