DLL Dynamisch laden (Problem)

[danu1104]

Ne, Funktioniert leider nicht, habe beides versucht!

Delphi-Quellcode:

// Programm Function

function LDynDll_Encode(Filename, Str:Pchar):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;


// DLL Function

function EnCode(Str:Pchar):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;

Edit1= Code hinzugefügt