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