Einzelnen Beitrag anzeigen

ebber

Registriert seit: 31. Okt 2006
243 Beiträge
 
#1

Integer aus Dll übergeben

  Alt 22. Apr 2007, 19:45
Hallo

ich habe eine Dll gemacht mit diesem Inhalt :

Delphi-Quellcode:

function GetName : Integer ;
begin
Result:=123456789;
end;
Jetzt will ich das ganze in Meinem Programm aufrufen. Dynamisch.

Delphi-Quellcode:

type

 TGetN = function: Integer; stdcall;
 function GetName: Integer;





function GetName: Integer;
var GetN: TGetN;
    Handle: THandle;
begin
  Handle:=LoadLibrary(PChar('E:\TestPlugin.dll'));
  if Handle <> 0 then begin
    @GetN := GetProcAddress(Handle, 'GetName');
    if @GetN <> nil then begin
      result:=GetN;
    end;
    FreeLibrary(Handle);
  end;
end;
Wenn in der Dll 123456789 steht geht das ganz wunderbar. Wenn ich aber irgenwo eine 0 reinmache kommt eine ganz andere Zahl raus?? Mit String geht das ganze auch nicht, wie mache ich das ?

MfG
  Mit Zitat antworten Zitat