Zitat von
Apollonius:
TDllInformation scheint aber ein Record zu sein; dann ist das nicht zu erklären. Hast du ShareMem eingebunden?
Ja das ist ein Record, ich weiss grad nicht was mit ShareMem gemeint ist, ich beles mich morgen mal.
@himitsu
Ja das fLoaded hab ich nur der Bequemlichkeit halber eingeführt, was dann über ein Property Loaded: Boolean von der Klasse abgefragt werden kann, aber eigentlich brauch ich das nicht, da das Laden und Freigeben in der Klasse vor und nach einem Prozeduraufruf gesichert werden soll.
Bei der
Exception hast du Recht, aber ich möchte erstmal kein Fenster zeigen. Das wird dann von Application.OnException in ein Memo geschrieben bzw. beim Funktionsaufruf in einer höheren Klasse mit abgefangen.
Delphi-Quellcode:
function TDll.LoadFunction(
Name:
String): Pointer;
begin
Result := GetProcAddress(fDllHandle, PChar(
Name));
if not Assigned(Result)
then
raise Exception.Create('
"'+fFileName+'
" ist keine gültige Dll für PFControl: '+
Name+'
nicht gefunden.');
end;
Aber das sind ja nur "Schönheitsfehler" und es löst leider mein eigentliches Problem noch nicht.
Gruß
Profiler