DLLs erstellen und in Programm einbauen

[Schnittcher]

Hallo,

ich habe eine DLL erstellt und würde diese jetzt gerne in ein Programm einbinden, kann mir jemand helfen und sagen, wie das funktioniert?

Hier der Code meine DLL:

Delphi-Quellcode:

library rechne;

uses
  SysUtils,
  Classes,
  rechnen in 'rechnen.pas';

{$R *.res}

exports addiere;
exports subtrahieren;

begin
end.

rechnen.pas

Delphi-Quellcode:

unit rechnen;

interface

function addiere(zahl1, zahl2: integer): integer; stdcall;

function subtrahieren(zahl1, zahl2: Integer): Integer; stdcall;

implementation

function addiere(zahl1, zahl2: integer): integer; stdcall;
begin
  result := zahl1 + zahl2;
end;

function subtrahieren(zahl1, zahl2: Integer): Integer; stdcall;
begin
  Result := zahl1 - zahl2;
end;

end.

Danke.

Gruß,
Schnittcher

[himitsu]

http://www.delphi-treff.de/tutorials/objectpascal/dlls/
http://www.delphipraxis.net/internal...ct.php?p=70025

[Schnittcher]

Hallo,

vielleicht hätte ich dazu sagen sollen, dass ich nach dem Tutorial http://www.delphi-treff.de/tutorials/objectpascal/dlls/ gearbeitet habe, doch wenn ich ein neues Projekt erstelle, und dort meine DLL einbinden möchte wie mache ich das? Das steht dort nicht.

Gruß,
Schnittcher

[Neutral General]

Doch das steht da:

http://www.delphi-treff.de/tutorials...l/dlls/page/6/

[Schnittcher]

Hallo,

ja das wäre wenn das Programm gestartet wird, ich wollte es aber gerne so haben, das die Datei nur eingebunden wird und geladen wird, wenn sie benötigt wird.

Oder habe ich da etwas falsch verstanden?

Gruß,
Schnittcher

[himitsu]

ich dachte erst du hast hiernach
http://de.wikibooks.org/wiki/Program...Programmierung
gearbeitet, denn dort steht wirklich nichts über das Einbinden :shock:

Zitat:

Zitat von Schnittcher

ja das wäre wenn das Programm gestartet wird, ich wollte es aber gerne so haben, das die Datei nur eingebunden wird und geladen wird, wenn sie benötigt wird.

noch eine/zwei Seite(n) weiterblättern?

[Schnittcher]

Hallo,

ja das habe ich auch gelesen, doch bei "ExtractFilePath" erhalte ich immer einen Fehler, dass er die Funktion nicht kennt.

Ich habe in den uses Bereich windows mit eingebunden und alles so gemacht wie es dort steht.

Gruß,
Schnittcher

[Fridolin Walther]

Wie wäre es damit mal die Hilfe für die Funktion aufzurufen, nachzuschauen in welcher Unit sich die Funktion befindet und die Unit dann einzubinden? Kleiner Tipp: In der Windows Unit befindet sich die Funktion nämlich nicht ;).

[Schnittcher]

Hallo,

okay danke.

Sysutils :)

Ich vergesse öfter einfach zu gucken, wo was liegt. Danke.

Gruß,
Schnittcher

[Schnittcher]

Hallo,

ich habe es jetzt geschafft die Datei einzubinden.

Hier der Code:

Delphi-Quellcode:

unit rechner;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, rechnen;

type
  TForm1 = class(TForm)
    cmdGo: TButton;
    edZahl1: TEdit;
    edZahl2: TEdit;
    lblErgebnis: TLabel;
    procedure cmdGoClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.cmdGoClick(Sender: TObject);
var
  zahl1, zahl2: integer;
begin
  zahl1 := strtoint(edZahl1.Text);
  zahl2 := strtoint(edZahl2.Text);

  lblergebnis.Caption := inttostr(rechnen.addieren(zahl1, zahl2));
end;

end.

Delphi-Quellcode:

unit rechnen;

interface

uses
  windows, sysutils;

type
  TSummenFunktion = function(zahl1, zahl2: integer): integer; stdcall;
//  TDifferenzFunktion = function(zahl1, zahl2: integer): integer; stdcall;
function addieren(zahl1, zahl2: integer): integer;
//function subtrahieren(zahl1, zahl2: integer): integer;

implementation

function addieren(zahl1, zahl2: integer): integer;
var
  SummenFunktion: TSummenFunktion;
  Handle: THandle;
begin
  Handle := LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + 'rechne.dll'));
  if Handle <> 0 then
  begin
    @SummenFunktion := GetProcAddress(Handle, 'addieren');
    if @SummenFunktion <> nil then begin
      result := SummenFunktion(zahl1, zahl2);
    end;
    FreeLibrary(Handle);
  end;
end;

end.

Aber egal welche Zahlen ich zum addieren eingebe, ich bekomme immer: 4475786 als Ergebnis.

Kann mir jemand sagen wieso?

Edit: fehler gefunden.

Delphi-Quellcode:

    @SummenFunktion := GetProcAddress(Handle, 'addieren');

muss so aussehen:

Delphi-Quellcode:

    @SummenFunktion := GetProcAddress(Handle, 'addiere');

Aber kann mir jemand sagen wofür das @ bei "@SummenFunktion" steht?

Gruß,
Schnittcher

[himitsu]

@ sagt, daß du en Zeiger dieser Variable setzen willst, was aber zum Zuweisen nicht nötig ist,
da Delphi dort weiß, daß du den Zeiger setzen willst, weil ja nichts anderes möglich wäre.

Delphi-Quellcode:

SummenFunktion := GetProcAddress(Handle, 'addieren');

beim Auslesen ist es aber wichtig

Delphi-Quellcode:

if @SummenFunktion <> nil then

Folgendes wöllte die Funktion aufrufen und das ergebnis mit NIL vergleichen,
wobei hier natürlich der Kompiler die fehlenden Parameter bemeckert (aber wenn es keine Parameter gäbe ...)

Delphi-Quellcode:

if SummenFunktion <> nil then

Wegen deinem "ich bekomme immer: 4475786" hätte ich Debuggen vorgeschlagen,
dann wäre dir aufgefallen sofort, daß die Funktion nicht ausgeführt wurde.

Und es kann nicht schaden, wenn das Einbinden der DLL und Funktion nicht nur geprüft und behandelt würde.

Delphi-Quellcode:

function addieren(zahl1, zahl2: integer): integer;
var
  SummenFunktion: TSummenFunktion;
  Handle: THandle;
begin
  Handle := LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + 'rechne.dll'));
  if Handle <> 0 then
  begin
    try
      SummenFunktion := GetProcAddress(Handle, 'addiere');
      if Assigned(SummenFunktion) then begin
        result := SummenFunktion(zahl1, zahl2);
      end
      else 
        Result := 0;  // oder besser noch 'ne Fehlermeldung oder Exception auslösen
    finally           // >>> funktion "addiere" wurde nicht gefunden <<<
      FreeLibrary(Handle);
    end;
  end
  else 
    Result := 0;  // oder besser noch 'ne Fehlermeldung oder Exception auslösen
end;              // >>> DLL wurde nicht geladen <<<

Delphi-Quellcode:

function addieren(zahl1, zahl2: integer): integer;
var
  SummenFunktion: TSummenFunktion;
  Handle: THandle;
begin
  Handle := LoadLibrary(PChar(ExtractFilePath(ParamStr(0)) + 'rechne.dll'));
  try
    SummenFunktion := GetProcAddress(Handle, 'addiere');
    if (Handle <> 0) and Assigned(SummenFunktion) then begin
      result := SummenFunktion(zahl1, zahl2);
    end
    else 
      Result := 0;  // oder besser noch 'ne Fehlermeldung oder Exception auslösen
  finally           // >>> funktion "addiere" wurde nicht gefunden <<<
    FreeLibrary(Handle);
  end;
end;