@ 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.
SummenFunktion := GetProcAddress(Handle, 'addieren');
beim Auslesen ist es aber wichtig
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 ...)
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;