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:

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