Поинтер на интерфейс

← →
elserpiente (2007-06-13 15:10) [0]

Можно ли переменной-указатель (Pointer) указать поинтер интерфейса? и как с такой переменной можно потом прочитать интерфейс

← →
Сергей М. © (2007-06-13 15:15) [1]

> Можно ли переменной-указатель (Pointer) указать поинтер
> интерфейса?

Можно.

MyPointerVariable := MyInterface;

Но не нужно.

> как с такой переменной можно потом прочитать интерфейс
>

Что значит "прочитать интерфейс" ?

← →
elserpiente (2007-06-13 15:20) [2]

ну что типа этого

var
p: pointer;
i: IMyInt;
...
i := TMyInt.Create;
p:= @i;

IMyInt(p).MyField := 0;

← →
Сергей М. © (2007-06-13 15:23) [3]

А за каким лешим нужны эти хитромудрые преобразования ?

Почему переменную p не сделать типа IInterface ?

← →
elserpiente (2007-06-13 15:28) [4]

это нужно для хранении данных в TTreeView, а именно в TTreeNode.data

← →
jack128 © (2007-06-13 15:33) [5]

elserpiente (13.06.07 15:28) [4]
это нужно для хранении данных в TTreeView, а именно в TTreeNode.Data

Ну тогда лудше так:

var Intf: IUnknown; begin ... TreeView1.Items[0].Data := Pointer(Intf); Intf._AddRef; end; begin ... IUnknown(TreeView1.Items[0].Data)._Release; TreeView1.Items[0].Data := nil; end;

← →
jack128 © (2007-06-13 15:34) [6]

jack128 © (13.06.07 15:33) [5]
begin
...
IUnknown(TreeView1.Items[0].Data)._Release;
TreeView1.Items[0].Data := nil;
end;

точнее
if TreeView1.Items[0].Data <> nil then
begin
IUnknown(TreeView1.Items[0].Data)._Release;
TreeView1.Items[0].Data := nil;
end;

← →
elserpiente (2007-06-13 15:50) [7]

угу, пасибо, разобрались ;)

← →
elserpiente (2007-06-13 15:57) [8]

а вообще може кто то сталкивался с проблемой удаления из TTreeNode данных по ссылке data? можно как-нибудь автоматизироваться этот процес?чтоб при удалении TreeNode данные тоже убивались

А в чем проблема ?

elserpiente (13.06.07 15:57) [8]
а вообще може кто то сталкивался с проблемой удаления из TTreeNode данных по ссылке data? можно как-нибудь автоматизироваться этот процес?чтоб при удалении TreeNode данные тоже убивались

есть событие соответствующее. OnDeleting чтоли.. В нем и освобждай свои данные...

И есть возможность написать свой потомок TTreeNode :)
В D6 и выше - OnCreateNodeClass есть.

Поинтер на интерфейс Найти похожие ветки