DLLs erstellen und in Programm einbauen

[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;