DLL Dynamisch laden (Problem)

[danu1104]

Hallo, es geht darum eine DLL Dynamisch zu laden, ich habe mir auch bereits Tutorials angeschaut und hier im Forum nachgeguckgt, jedoch bin ich nicht fündig geworden.


Das laden der DLL sieht bei mir wie Folgt aus:

Delphi-Quellcode:

type


  TDLLFuncEncode = function(Str:String):PChar;

  Function LDynDll_Encode(Filename,Str:String):PChar;


var Http:TidHttp;


implementation


function LDynDll_Encode(Filename, Str:String):PChar;
var
  Func : TDllFuncEncode;
  DLLHandle : THandle;

begin
  DLLHandle := LoadLibrary (PChar(Filename));
  @Func := GetProcAddress (DLLHandle, 'Encode');
if DLLHandle <> 0 then
  begin
 if @Func <> nil then
  begin
    result := Func(str);
   end;
  end;
end;

Folgender code liegt in der DLL:

Delphi-Quellcode:

function EnCode(Str:String):Pchar; stdcall;
Var
   Temp1,Temp2,
   Temp3,Temp4:String;
begin
 If Str = '' then Exit else
  try
   Temp1:=dwReverseStr(Str);
   Temp2:=Base64Encode(Temp1);
   Temp3:=Base64Encode(Temp2);
   Temp4:=Base64Encode(Temp3);
  finally
   result:=Pchar(Base64Encode(Temp4));
  end;
end;

Ich habe 5 Stunden alles mögliche versucht, ich bekomme aber keine verschlüssslung raus sondern irgendwelche Binar Zeichen bzw Symbole. Wenn ich die DLL Fest einbinde functioniert es wunderbar, aber genau das möchte ich nicht.

Würde mich auf schnelle Antworten freuen

MFG Danu