DLL einbinden

[CReber]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  LibHandle: THandle;
  bums:integer;
  Addieren: function(eins,zwei:integer):integer; stdcall;
  begin
    LibHandle := LoadLibrary('c:\DLL.dll');
    if LibHandle = 0 then
      raise Exception.Create('Unable to Load DLL...')
    else
    begin
      try @Addieren := GetProcAddress(LibHandle, 'Addieren');
        if @Addieren <> nil then
          bums:=Addieren(2,3);
      except
        on E: Exception do
          ShowMessage('Exception error: ' + E.Message);
      end;
    end;
    FreeLibrary(LibHandle);
end;

Ist daran was falsch? Bei mir kommt immer Zugriffsverletzung ! Ist ne DLL von einem VB projekt

[sakura]

Code:

[color=#ff0009]type
  TAddieren = function(eins,zwei:integer):integer; stdcall;[/color]
procedure TForm1.Button2Click(Sender: TObject);
var
  LibHandle: THandle;
  bums:integer;
[color=#ff0000]  Addieren: TAddieren;[/color]
begin
    LibHandle := LoadLibrary('c:\DLL.dll');
    if LibHandle = 0 then
      raise Exception.Create('Unable to Load DLL...')
    else
    begin
[color=#ec0000]      try Addieren := GetProcAddress(LibHandle, 'Addieren');
        if Assigned(Addieren) then[/color]
          bums:=Addieren(2,3);
      except
        on E: Exception do
          ShowMessage('Exception error: ' + E.Message);
      end;
    end;
    FreeLibrary(LibHandle);
end;

Du musst nicht mit Pointern arbeiten ;)

...:cat:...

[CReber]

Danke ;) Aber da ist ein end; zuviel :))

bums:=Addieren(2,3);

Da kommt bei mir aber ein total utopischer Wert raus ?! Warum? :))