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