AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Funktionsaufrufe mit Parameterbelegung als Parameter?
Thema durchsuchen
Ansicht
Themen-Optionen

Funktionsaufrufe mit Parameterbelegung als Parameter?

Ein Thema von Der schöne Günther · begonnen am 11. Mär 2013 · letzter Beitrag vom 12. Mär 2013
 
Der schöne Günther

Registriert seit: 6. Mär 2013
6.196 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

Funktionsaufrufe mit Parameterbelegung als Parameter?

  Alt 11. Mär 2013, 16:02
Delphi-Version: XE2
Mal eine ganz dumme Frage-

Ich habe eine Klasse die im Endeffekt nur ein Wrapper für eine dll ist. Die Dll wird zur Laufzeit bestimmt, dementsprechend beim Einbinden z.B. auch sorgfältig überprüft, ob die dll denn auch alles exportiert was man denn gerne haben möchte.

Da ich von Natur aus ein sehr vorsichtiger Mensch bin, überprüfen die Methoden der Klasse auch noch einmal, ob die Einsprungspunkte der Dll-Routine die sie aufrufen sollen, auch wirklich existiert. Beispiel:

Delphi-Quellcode:
type TMeineKlasse = class
   [...]
   class var type
      TFNLustigeMethodeProc = procedure(parameter1, parameter2: IrgendeinTyp); stdcall;
 
   [...]
   lustigeMethodeProc : TFNLustigeMethodeProc;
end;

[...]


constructor TMeineKlasse.Create(...);
begin
   [...]
   @lustigeMethodeProc := GetProcAddress(dllHandle, 'lustigeMethodeDerDll');
   if @lustigeMethodeProc = nil then raise EOSError.Create([...]);
   [...]
end;

procedure TMeineKlasse.lustigeMethode();
begin
   if @lustigeMethodeProc <> nil then
      lustigeMethodeProc(parameter1, parameter2)
   else
      [Seriöse Fehlerbehandlung]
   ;
 end;
Hat meine TMeineKlasse nun bsp. ein Dutzend Methoden, habe ich in meinem Quelltext auch genauso oft ständig das gleiche "if @prozedurPointer <> nil ... werfe Exception ...".

Kann ich mir nicht einmal eine Methode basteln, der ich die Prozedur inkl. ihrer Parameterbelegung übergebe? Diese Methode schaut dann, ob es nicht nil ist und wirft entsprechend Exceptions nach oben sollte es der Fall sein?

Geändert von Der schöne Günther (11. Mär 2013 um 16:05 Uhr)
  Mit Zitat antworten Zitat
 

 

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz