Thema: FreePascal Problem mit LoadLibrary

Einzelnen Beitrag anzeigen

iphi

Registriert seit: 13. Feb 2009
262 Beiträge
 
Delphi 7 Personal
 
#1

Problem mit LoadLibrary

  Alt 4. Jun 2021, 22:11
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?

Geändert von iphi ( 4. Jun 2021 um 22:18 Uhr)
  Mit Zitat antworten Zitat