Zugriffsfehler DLL

Hey Delphi-Gemeinde,

ich habe ein Problem mit einer function in einer DLL, doch diese gibt mir immer ein Zugriffsfehler zurück.
Ich konnte das Problem zwar eingrenzen dennoch bin ich zu keiner Lösung gekommen.
Und zwar, wenn ich den Rückgabewert als Integer deklariere, dann funzt es einwandfrei, aber bloss als string nicht.

Code:

Deklarationen:

Delphi-Quellcode:

type
  TDLL = Procedure; StdCall;
  TPlugin = function(URL: String): String; StdCall;
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    function DLL(Dateiname, Name: String; URL: String): String;
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

function im Hauptprogramm:

Delphi-Quellcode:

function TForm1.DLL(Dateiname, Name: String; URL: String): String;
var Plugin: TPlugin;
    Handle: THandle;
begin
 Handle := LoadLibrary(PCHAR(ExtractFilePath(ParamStr(0)) + '\dlls\' + Dateiname));
 if Handle <> 0 then
 BEGIN
  @Plugin := GetProcAddress(Handle, PCHAR(Name));
  if @Plugin <> nil then begin
    result := Plugin(URL);
  end;
 END;
  FreeLibrary(Handle);
end;

Aufruf der DLL:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Test: STring;
begin
  Test := DLL('test.dll','Anzeigen','Test');
  ShowMessage(Test);
end;

die DLL:

Delphi-Quellcode:

function Anzeigen(URL: String): String; StdCall;
begin
 if URL = 'Test' then
  Result := 'Funzt';
end;
 exports Anzeigen;

Also wie gesagt, wenn ich den Rückgabewert als Integer definiere und die var URL auch, dann funzt es!

Wo liegt der Fehler, dass er string nicht mag?

Gruss Daniel

[Bernhard Geyer]

Strings in DLL? Wird auch schön ShareMem verwendet so wie auch bei anlegen des DLL-Projektes als Kommentar geschrieben wird?

Zitat:

Strings in DLL? Wird auch schön ShareMem verwendet so wie auch bei anlegen des DLL-Projektes als Kommentar geschrieben wird?

Ja, dort soll eine function ausgeführt werden und als Ergebnis habe ich ein String-Wert, und der soll mit Hilfe der function zurück ins Hauptprogramm. Mit integer-Werten funktioniert es wunderbar.

Vorher hatte ich es über eine ini-Datei gemacht, wo ich den Stringwert dort gespeicher habe und im Hauptprogramm wieder ausgelesen habe. Aber das ständige öffnen / schließen der ini das dauert mir zulange.

Nein, ShareMem wird nicht verwendet, wie kann cih es denn einbinden?

Gruss Daniel

[Bernhard Geyer]

Zitat von finalr:

Nein, ShareMem wird nicht verwendet, wie kann cih es denn einbinden?

Entweder neues DLL-Projekt anlegen und die von Delphi ergänzten Kommentare durchlesen oder Delphi-Hilfe bemühen oder im Forum nach ShareMem suchen.

[Muetze1]

Du solltest auch deine Variable "Handle" in der Form1 Methode umbenennen. Es gibt eine entsprechend gleich benannte Eigenschaft von TForm, welche auch den gleichen Datentyp hat.

Zitat:

Du solltest auch deine Variable "Handle" in der Form1 Methode umbenennen. Es gibt eine entsprechend gleich benannte Eigenschaft von TForm, welche auch den gleichen Datentyp hat.

Danke für den Tip, ich werds berücksichtigen.

Zitat:

Entweder neues DLL-Projekt anlegen und die von Delphi ergänzten Kommentare durchlesen oder Delphi-Hilfe bemühen oder im Forum nach Suche in der Delphi-PRAXiSShareMem suchen.

Hab's jetzt mit ShareMem gelöst...
Vielen Dank für die vorallem schnelle Hilfe!

gruss Daniel

[hoika]

Hallo,

um sharemem zu umgehen,
könntest du auch ShortString benutzten (max 255).


Heiko

[SirThornberry]

oder PChar, eben genau so wie es in der Hilfe bzw. dem Infotext in einem firschen DLL-Projekt vermerkt ist.

[sirius]

fastsharemem wäre noch eine Möglichkeit umd der zusätzlichen DLL zu entgehen.