Probelme mit DLL Programmierung

[Digielm]

Hallo ich nutze Delphi 7 und hab bei Delphitreff eine Anleitung gefunden für eine DLL zu erstellen.

Soweit klappt auch alles bis auf dieser aufruf

Delphi-Quellcode:

function einfachso : String;
var
  einfachso: Teinfachso;
  Handle : THandle;
begin
    Handle := LoadLibrary(PChar(ExtractFilePath(application.name)+'phoenix.dll'));
    @einfachso := GetProcAddress(Handle, 'einfachso');
    if @einfachso <> nil then
    begin
      result := einfachso;
    end;
    freelibrary(Handle);
end;

bei dem Aufruf freelibrary(Handle);
bekomme ich grundsätzlich eine exception. Kann mir jemand helfen und sagen warum ??

[Bernhard Geyer]

Du hast in deiner DLL einen Fehler gemacht!

Ohne Quellcode der DLL sowie der Definition von Teinfachso wird das ein munderes Glaskugel-Raten.

[Digielm]

ok hier der Code der DLL

Delphi-Quellcode:

library Phoenix;

{ Wichtiger Hinweis zur DLL-Speicherverwaltung: ShareMem muss 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. Das gilt für alle
  Strings, die von oder an die DLL übergeben werden -- sogar für diejenigen, die
  sich in Records und Klassen befinden. Sharemem ist die Schnittstellen-Unit zur
  Verwaltungs-DLL für gemeinsame Speicherzugriffe, BORLNDMM.DLL.
  Um die Verwendung von BORLNDMM.DLL zu vermeiden, können Sie String-
  Informationen als PChar- oder ShortString-Parameter übergeben. }


uses
  SysUtils,
  SDL_cpuid;

{$R *.res}
function CalcStrChecksum(s: string): Longint;
var
  i: integer;
  L: integer;
begin
  Result := 0;
  l := Length(s);
  if l > 0 then
  begin
    for i := 1 to l do
      Inc(Result, Ord(s[i])*i);
  end;
end;

function einfachso : String;  stdcall;
begin
//  result := GenerateCPUID +'-'+ inttostr(CalcStrChecksum(GenerateCPUID));
  result := GenerateCPUID;
end;


exports einfachso;
begin
end.

[Bernhard Geyer]

Lies mal den Kommentar durch den dir Delphi angelegt hat. Ist ab und zu auch mal hilfreich.

[Luckie]

Bitte hier lesen: http://www.michael-puff.de/Artikel/2...String_DLL.php

[Digielm]

Sorry hatte ich übersehen klappt alles.

Danke euch