String zu Funktion

**Sämy**

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**

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

**Sämy**

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

**Bernhard Geyer**

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**

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:
<col><prop>name</prop></col> dies repräsentiert die Funktion getName...

**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.

**Sämy**

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:

zusammenfalten · markieren

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**

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**

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**

zusammenfalten · markieren

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.

String zu Funktion

String zu Funktion

Re: String zu Funktion

Re: String zu Funktion

Re: String zu Funktion

Re: String zu Funktion

Re: String zu Funktion

Re: String zu Funktion

Re: String zu Funktion

Re: String zu Funktion

Re: String zu Funktion

Forumregeln

sirius Registriert seit: 3. Jan 2007 Ort: Dresden 3.443 Beiträge Delphi 7 Enterprise	#2 Re: String zu Funktion 30. Jan 2008, 10:35 Du müsstest an das darunterliegende Objekt kommen. Schreib dir doch dazu eine Funktion "getobject" mit dem Inhalt "result:=self". Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
	Zitat

Sämy Registriert seit: 4. Nov 2004 Ort: Basel (CH) 76 Beiträge Delphi 2007 Professional	#3 Re: String zu Funktion 30. Jan 2008, 10:37 gibt es keine externe möglichkeit, aus einem interface das objekt zu erhalten? Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it.
	Zitat

Bernhard Geyer Registriert seit: 13. Aug 2002 17.171 Beiträge Delphi 10.4 Sydney	#6 Re: String zu Funktion 30. Jan 2008, 11:30 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. Windows Vista - Eine neue Erfahrung in Fehlern.
	Zitat