Интерфейсы под Delphi 5

← →
yaJohn (2006-06-22 17:36) [0]

Есть обьект TMyObj поддерживающий некий интерфейс IMyInt. в Delphi 7 работает следующее:

var MyObj: TMyObj MyInt: IMyInt; begin MyObj := TMyObj.Create; //не важно откуда взялся MyObj, он есть и он типа ТMyObj MyInt := МyObj AS IMyInt;

все работает. Но мне нужно заставить работать это под Delphi5...
Компилятор отказывается принимать конструкцию object AS interface :(

Ктонибудь помнит как это в Д5 делалось?????

Заранее спасибо.

← →
Игорь Шевченко © (2006-06-22 17:57) [1]

"Classes that implement interfaces can use the as operator for dynamic binding on the interface. In the following example:

procedurePaintObjects(P: TInterfacedObject)

var
X: IPaint;

begin

X := P as IPaint;
{ statements }
end;

the variable P of type TInterfacedObject, can be assigned to the variable X, which is an IPaint interface reference. Dynamic binding makes this assignment possible. For this assignment, the compiler generates code to call the QueryInterface method of P’s IUnknown interface since the compiler cannot tell from P’s declared type whether P’s instance actually supports IPaint. At runtime, P either resolves to an IPaint reference or an exception is raised. In either case, assigning P to X will not generate a compile-time error, as it would if P was of a class type that did not implement IUnknown.

When you use the as operator for dynamic binding on an interface, you should be aware of the following requirements:

Explicitly declaring IUnknown: Although all interfaces derive from IUnknown, it is not sufficient, if you want to use the as operator, for a class to simply implement the methods of IUnknown. This is true even if it also implements the interfaces it explicitly declares. The class must explicitly declare IUnknown in its ancestor list.
Using an IID: Interfaces can use an identifier that is based on a GUID (globally unique identifier). GUIDs that are used to identify interfaces are referred to as interface identifiers (IIDs). If you are using the as operator with an interface, it must have an associated IID. To create a new GUID in your source code you can use the Ctrl+Shift+G editor shortcut key."

Ничего, что я справку цитирую ?

← →
yaJohn (2006-06-22 18:06) [2]

Премного благодарен. Тем более за цитату из справки, которую я по какому то недоразумению не нашел :(
Спасибо еще раз.

Интерфейсы под Delphi 5 Найти похожие ветки