Abstutz nach DLL zugriff

[Harry M.]

Ich muss etwas Code (Compiliert ~150KB) in eine DLL auslagern. Um die restlichen Exen der Projektes kleiner zuhalten bzw um Programm-Teile zur Laufzeit austauschen zukönnen ohne das das Hauptprogramm beendet werden muss. Sowei funtz das Ganze auch nur bei

Delphi-Quellcode:

FreeLibrary(DLLHandle)

schmiert das ganze Programm ab, in der Art das es einfach mit einer AV beendet (Prog hängt sich nicht auf sondern schliesst sich).

Das Hauptprogramm

Delphi-Quellcode:

procedure OpenFile2HashDll(ADllFilename: String; APath: String; AFileList: TStringList);
var
  FileListForHash : TFileListForHash;
  FuncPtr      : TFarProc;
  DLLHandle    : THandle;
begin
  DLLHandle := LoadLibrary( PChar(ADllFilename) );
  FuncPtr   := GetProcAddress(DLLHandle, 'FileListForHash');

  if FuncPtr <> nil then begin
    @FileListForHash := FuncPtr;
    FileListForHash(APath, AFileList);
    FuncPtr := nil;
    end;

  FreeLibrary(DLLHandle); // Hier knalls -> Programm-Ende! Auch ein Try-Except-Block hilft nicht.
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TSTringList.Create;

  OpenFile2HashDll('.\F2H32.dll', ExtractFilePath(ParamStr(0)) + '*.*', sl);

  sl.SaveToFile('.\test.txt'); // hier komme ich schon gar nicht mehr vorbei :-(
  sl.Free;
end;

Die DLL

Delphi-Quellcode:

procedure FileListForHash(APath: String; AFileList: TStringList); Export;
var
  I: Integer;
  slTmp: TStringList;
begin
  slTmp := TStringList.Create;

  GetAllFiles(APath, slTmp); // alle dateien suchen, in slTmp schreiben

  for I := 0 to slTmp.Count-1 do // und alle gefunden hashen
    AFileList.Add( slTmp.Strings[I]  + '|' + IntToStr(GetFileSize(slTmp.Strings[I])) + '|' + GetHash(slTmp.Strings[I])  );

  slTmp.Free;

  // und die AFileList wieder zurück in das Hauptprogramm
end;

exports
    FileListForHash;

Hat jemand eine Idee??

[SirThornberry]

hast du im DLL-Projekt den Text gelesen der ganz oben steht? Wenn du zwischen DLL und Hauptprogramm mit Strings hantierst solltest du dir den Text mal in Ruhe durchlesen.

[Harry M.]

Morgen Sir!

Habe ich gelesen und die ShareMem eingebunden.

[Tonic1024]

Schon mal diesen Konstrukt für dynamischen DLL-Zugriff versucht?

Delphi-Quellcode:

type
  Tfunc = function(Bla: String): Integer;

function CallFunc(sowiso: String):Integer;
var func: Tfunc ;
    Handle: THandle;
    filepath: string;
    DefResult: integer;
begin
  DefResult:=0;
  filepath:=ExtractFilePath(ParamStr(0))+ProgramFiles.Path;
  Handle:=LoadLibrary(@filepath[1]);
  if Handle <> 0 then
  begin
    @func:= GetProcAddress(Handle, 'MyDLLFunc');
    if @func <> nil then
    begin
      DefResult:=func(Gruppen, Fahrer, Abteilung, Modus);
    end;
    FreeLibrary(Handle);
  end;
  Result:=DafResult;
end;

Toni

[Harry M.]

Hat leider auch nicht geklappt.
Habe die DLL etwas umgebaut - Viele Wege führen nach Rom :lol: