[gelöst]Probleme beim dynamischen Laden einer DLL

[kirchfritz]

Hallo,

ich möchte in einem Konsolenprogramm eine DLL mit LoadLibrary() dynamisch laden, erhalte aber immer nur den Handle=0.

Code: Alles auswählen

 
program project1;
 
{$mode objfpc}{$H+}
 
uses
  windows, Classes,sysutils;
 
Const
  LibName = 'LibRfc32.dll';
var
  LibHandle : THandle;
begin
  if FileExists(LibName) then
  begin
    // Ermittelt den Handle der zuverwendenden Library
    LibHandle := Windows.LoadLibrary(PChar(LibName));
 
    // Prüft, ob das Laden der DLL erfolgreich war
    if LibHandle <> 0 then
      Writeln(Format('Laden der DLL war erfolgreich! LibHandle=%d',[LibHandle]))
    else
      Writeln(Format('Laden der DLL gescheitert! LibHandle=%d',[LibHandle]));
 
    // Freigabe des Arbeitsspeichers
    Windows.FreeLibrary(LibHandle);
  end
  else
    Writeln(Format('DLL %s im Dateisystem nicht gefunden',[LibName]));
  Readln;
 
end.
 

Projektdatei und DLL habe ich beigelegt.
Irgendwie glaube ich, es liegt an der DLL selbst. Andere DLLs funktionieren tadellos.
Kann mir jemand sagen, was hier falsch läuft?
Kann jemand mein Problem nachvollziehen?

Viele Grüße
Fritz
Aktuelle Entwicklungsumgebung: WIN10 64Bit, Lazarus 2.0.0, FPC 3.0.4

[theo]

Ohne deinen Code genauer angeschaut zu haben, tippe ich mal dass "LibRfc32.dll" aufgrund des "32" eine 32-bit DLL ist und du ein 64 bit Lazarus hast.

[Socke]

Hallo Fritz,

ich empfehl dir das SAP RFC SDK direkt aus dem Support Portal herunterzuladen. In deinen Programmen solltest du soweit möglich auf UnicodeString setzen; falls das angesprochene SAP-System noch kein Unicode versteht, übersetzt die librfc automatisch in die entsprechende Codepage.

Grüße
Socke

[kirchfritz]

Theo hatte recht. Mein 64-Bit Lazarus hat die 32-Bit-DLL nicht richtig verarbeitet. Es wurde zwar anstandslos kompiliert, doch beim Programmstart kams dann zum Programmabsturz. Mein 32-Bit Lazarus hat aber alle Probleme gelöst. Vielen Dank nochmal für Eure Hilfe.

@socke: Vielen Dank für Deinen Sourcecode.