Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
20. Sep 2007
Hier die Lösung:
Function InterfaceSupportsMember (anInterface : IDispatch; Const aMembername : WideString) : Boolean;
Var
iDispID : TDispId;
Res : Integer;
Begin
Res :=anInterface.GetIDsOfNames(GUID_NULL, @aMembername, 1, LOCALE_SYSTEM_DEFAULT, @iDispID);
Result := Res <> Integer(DISP_E_UNKNOWNNAME)
Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
20. Sep 2007
Jupp, große Firma voll mit Deppen.
Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
20. Sep 2007
Hi Hagen,
Ich wusste doch, das es geht... Sieht aber ziemlich pervers aus. Das mit den Parametern ist schon ok, wenn es die Funktion gibt, dann weiss ich auch, wie man sie verwendet.
Es geht um eine neue Version eines Interfaces. Die Autoren haben eine neue Funktion eingebaut, die aber erst demnächst installiert wird. Ich muss aber heute schon den Client entsprechend anpassen. Also muss ich...
Forum: Object-Pascal / Delphi-Language
Delphi
by alzaimar,
20. Sep 2007
Also:
Ich habe einen Interfacezeige X mit 'late binding'. Vielleicht implementiert der eine Methode namens 'Foo', vielleicht aber auch nicht.
Ich will soetwas schreiben:
If InterfaceImplementsMethod (X,'Foo') Then
X.Foo