Fehler beim dyn. Laden einer DLL

[bixi400]

Ich habe mal Versucht eine einfache DLL zu laden aber es tritt folgender Fehler auf:
Zugriffsverletzung bei Adresse 00404254 in Modul 'LoadDLL.exe'. Lesen von Adresse 00C00B3C

EXE:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

TMyFunction = function: String;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var MyDLL:HWND;
    MyFunction:TMyFunction;
    MyPointer: TFarProc;
    Text:String;
begin
  MyDLL := LoadLibrary('MyDLL.dll');
  MyPointer := GetProcAddress(MyDLL, 'GetText');
  if @MyPointer <> nil then
   begin
     @MyFunction:=MyPointer;
     Text:=MyFunction;
     ShowMessage(Text);
   end;
  FreeLibrary(MyDLL);
end;

end.

DLL:

Delphi-Quellcode:

library MyDLL;

uses
  SysUtils,
  Classes;

{$R *.res}

function GetText:String;
begin
  Result:='Dieser Text wird aus einer DLL geladen!!!';
end;

exports GetText;


begin
end.

kann mir jemand sagen wo der Fehler ist?

[Bernhard Geyer]

@MyPointer ist immer <> nil

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var MyDLL:HWND;
    MyFunction:TMyFunction;
    Text:String;
begin
  MyDLL := LoadLibrary('MyDLL.dll');
  MyFunction:= TMyFunction(GetProcAddress(MyDLL, 'GetText'));
  if Assigned(MyFunction) then
   begin
     Text:=MyFunction;
     ShowMessage(Text);
   end;
  FreeLibrary(MyDLL);
end;

[bixi400]

Zitat von Bernhard Geyer:

@MyPointer ist immer <> nil...

Das hab ich so aus einem Beispiel.
Aber es war leider nicht der Fehler

[Bernhard Geyer]

Hast Du denn Kommentar des DLL-Experten zur verwendung von Strings als Übergabe/Rückgabeparametern von DLL's gelesen?

Zitat:

ShareMem muß sich in der
ersten Unit der unit-Klausel der Bibliothek und des Projekts befinden (Projekt-
Quelltext anzeigen), falls die DLL Prozeduren oder Funktionen exportiert, die
Strings als Parameter oder Funktionsergebnisse übergeben.

[ste_ett]

Oder man benutzt alternativ PChars.

[Sebastian R.]

Eben, dass ist genau der Fehler, der auftritt, wenn man ShareMem nicht benutzt! Also: PChar benutzen oder halt ShareMem!

[Frank Borland]

Moin!

Um mich an die Vorredner anzuschließen: Wenn VCL- spezifische Parameter verwendet werden (Klassen, Strings etc.) muss die unit sharemem eingebunden werden. Die Verwendung von PChar stellen wir mal hintenan

Deklariere die Funktionen immer eindeutig mit StdCall (oder anders) spätestens wenn Parameter oder Dritte hinzukommen (was der Sinn einer DLL ist)

TFarProc dürfte nur noch als Pointer deklariert sein. Also:

Delphi-Quellcode:

  MyDLL := LoadLibrary('MyDLL.dll');
@MyFunction:= GetProcAddress(MyDLL, 'GetText');
Text:= MyFunction;
ShowMessage(Text);
FreeLibrary(MyDLL);

Gruß


Malte