Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi String zu Funktion (https://www.delphipraxis.net/107586-string-zu-funktion.html)

Sämy 30. Jan 2008 10:31


String zu Funktion
 
Hallo

Ich würde gerne den Methodenpointer mittels Namen der Methode erhalten.
Mit obj.MethodAddress('methodName'); sollte dies ja eigentlich funktionieren.

Mein Problem ist nun aber, dass ich mit Interfaces arbeite...
Gibt es da auch eine Möglichkeit, dies zu tun?

Gruss

sirius 30. Jan 2008 11:35

Re: String zu Funktion
 
Du müsstest an das darunterliegende Objekt kommen. Schreib dir doch dazu eine Funktion "getobject" mit dem Inhalt "result:=self".

Sämy 30. Jan 2008 11:37

Re: String zu Funktion
 
gibt es keine externe möglichkeit, aus einem interface das objekt zu erhalten?

Bernhard Geyer 30. Jan 2008 11:47

Re: String zu Funktion
 
Zitat:

Zitat von Sämy
gibt es keine externe möglichkeit, aus einem interface das objekt zu erhalten?

Damit pervertierst du das Konzept der Interfaces. Du sollst eben nicht wissen welche Klasse das Interface implementiert bzw. hinter deinem Interface-Zeiger steht. Bei Interfaces die auf COM-Klassen basieren hast du eh keine Chance.

Was willst du eigentlich machen? Wozu benötigst du diesen Zeiger?

Sämy 30. Jan 2008 11:56

Re: String zu Funktion
 
hmmm... dies ist klar, aber genau hier benötige ich es ;)

Ich will in einem config-file die Spalten einer Liste abspeichern und darin auch wo die Werte gefunden werden.
z.B:
XML-Code:
<col><prop>name</prop></col>
dies repräsentiert die Funktion getName...

Bernhard Geyer 30. Jan 2008 12:30

Re: String zu Funktion
 
Dann müsstest du was ähnliches implementieren was Delphi auch mit der späten Bindung und der Verwendung von (Ole)Variant macht wenn es ein (IDispatch?) Schnittstelle zur verfügung hat.

Sämy 30. Jan 2008 13:57

Re: String zu Funktion
 
Zitat:

Zitat von Bernhard Geyer
Dann müsstest du was ähnliches implementieren was Delphi auch mit der späten Bindung und der Verwendung von (Ole)Variant macht wenn es ein (IDispatch?) Schnittstelle zur verfügung hat.

Ich versteh Bahnhof ;)

Habe jedoch in der Zwischenzeit den Ansatz von sirius weiterverfolgt und im Interface eine Funktion getValue eingebaut:

Delphi-Quellcode:
function TMyObject.getValue(prop: string): Variant;
type
  TGetter = function : Variant of object;
var
  m: TMethod;
  g: TGetter;
begin
  m.Code := MethodAddress('get' + prop);
  if not Assigned(m.Code) then
    raise Exception.Create('No such property! [' + prop + ']');

  g     := TGetter(m);
  Result := g();
end;
Habe nun jedoch das Problem, dass MethodAddress immerzu nur nil zurückgibt... An was kann dies liegen? Welche Sichtbarkeit benötigt eine Funktion, welche so gefunden werden soll? (Ist zur Zeit protected)

Bernhard Geyer 30. Jan 2008 14:01

Re: String zu Funktion
 
Zitat:

Zitat von Sämy
Habe nun jedoch das Problem, dass MethodAddress immerzu nur nil zurückgibt... An was kann dies liegen? Welche Sichtbarkeit benötigt eine Funktion, welche so gefunden werden soll? (Ist zur Zeit protected)


Meine Delphi 6-Hilfe sagt dazu:
Zitat:

Die Methode MethodAddress gibt die Adresse einer als published deklarierten Methode zurück.

SirThornberry 30. Jan 2008 14:01

Re: String zu Funktion
 
um die Funktion nutzen zu können müssen bestimmte Compilerswitches gesetzt sein welche glaub ich erst ab TComponent per Default aktiv sind. Willst du die Infos also auch vorher mit reincompilieren musst du das explizit setzen.
Dir sollte bewusst sein das Variablennamen und Funktionsnamen eigentlich nur beim schreiben des Quelltextes existieren. Beim compilieren gehen diese eigentlich verloren weil ein Funktionsaufruf und ein Variablenzugriff nur ein Zugriff auf eine bestimmte Adresse ist.

[Edit]eine bestimmte Sichtbarkeit muss es auch ahben[/Edit]

sirius 30. Jan 2008 14:12

Re: String zu Funktion
 
Delphi-Quellcode:
{$M+} //Könnte sein, dass dies nicht zwingend notwendig ist
type Ix=interface
       function getobject:TObject
       ...
     end;
     
     Tx=class(TInterfacedObject,Ix)
         function getObject:TObject;
       published
         procedure catchme;
     end;

...
{$M-} 

function Tx.getObject:TObject;
begin
  result:=self;
end;

...

var x:Ix
begin
  x:=Tx.create;
  x.getObject.Methodaddress('catchme');
So habe ich mir das vorgestellt. Damit geht natürlich kein COM-Server etc.
Edit Allerdings kannst du die Methode so nicht aufrufen, dafür brauchst du noch self.


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:38 Uhr.
Seite 1 von 2  1 2      

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 by Thomas Breitkreuz