Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Zugriffsfehler DLL (https://www.delphipraxis.net/108476-zugriffsfehler-dll.html)

14. Feb 2008 12:13


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 14. Feb 2008 12:17

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

14. Feb 2008 12:33

Re: Zugriffsfehler DLL
 
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 14. Feb 2008 12:35

Re: Zugriffsfehler DLL
 
Zitat:

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 Hier im Forum suchenShareMem suchen.

Muetze1 14. Feb 2008 13:09

Re: Zugriffsfehler DLL
 
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.

14. Feb 2008 13:16

Re: Zugriffsfehler DLL
 
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 14. Feb 2008 13:27

Re: Zugriffsfehler DLL
 
Hallo,

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


Heiko

SirThornberry 14. Feb 2008 13:29

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

sirius 14. Feb 2008 13:45

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:14 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz