Ich habe jetzt mal getestet ob die function überhaupt ausgeführt wird
Delphi-Quellcode:
function EnCode(Str:Pchar):Pchar; stdcall;
Var
Temp1,Temp2,
Temp3,Temp4:String;
begin
// Mit showmessage()
Showmessage(Str);
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;
Doch wie es scheint wird die
DLL erst garnicht aufgerufen, aber wieso was ist falsch?
so rufe ich die
DLL unter Button1Click auf in der TForm1 aus einer
Pas Datei
Edit1.Text:=LDynDll_Encode(Pchar(ExtractFilePath(Paramstr(0))+'cryptemp.dll'),Pchar(Edit1.Text))