Einzelnen Beitrag anzeigen

danu1104

Registriert seit: 4. Dez 2006
75 Beiträge
 
Delphi 2006 Personal
 
#3

Re: DLL Dynamisch laden (Problem)

  Alt 20. Jan 2009, 17:30
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
Daniel
  Mit Zitat antworten Zitat