Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Индексированные свойства в OLE объектах / 3 сообщений из 3, страница 1 из 1
26.11.2021, 12:23
    #40115199
vdix
vdix
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Индексированные свойства в OLE объектах
Приветствую, коллеги! Подскажите пожалуйста, верно ли я понимаю, что тип свойства "Read | Write | Write By Ref" должен позволять настроить индексированное свойство а-ля TString.Items[] ? Когда добавляется свойство такого вида, в дизайнере появляется сразу 3 свойства: "Read Only", "Write Only", "Read | Write", но с имплементацией какая-то беда. По идее для того же Items[] нужно сделать как-то так:

read property:
Index: long [in]
Value: BSTR* [out,retval]

write property:
Index: long [in]
Value: BSTR* [in]

read/write property:
Index: long [in]
Value: BSTR* [in,out]

Но когда в дизайнере настраиваешь write property она дублирует свои настройки на read/write и наоборот. Как-то так. Вот и вопрос: а можно ли вообще добиться индексированного свойства в делфовом OLE объекте, или тип "Read | Write | Write By Ref" предназначен для чего-то иного?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 12:59
    #40115222
_Vasilisk_
_Vasilisk_
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Индексированные свойства в OLE объектах
Я делфевый редактор давно запросил, потому какие кнопки нажимать не скажу. В idl должно получится так

Код: plaintext
1.
2.
3.
4.
[propget]
HRESULT _stdcall Items([in] long AIndex, [out, retval] BSTR * AVal);
[propput]
HRESULT _stdcall Items([in] long AIndex, [in] BSTR AVal);

Тип первого параметра может быть любым. По нему и будет индекс. Более того, этих параметров может быть несколько, тогда индекс будет составной.

В _TLB.pas получатся такие строки
Код: pascal
1.
2.
3.
function Get_Items(AIndex: Integer): WideString; safecall;
procedure Set_Items(AIndex: Integer; const AVal: WideString); safecall;
property Items[AIndex: Integer]: WideString read Get_Items write Set_Items;

И в реализации нужно будет реализовать два метода Get_Items и Set_Items.

Чтобы свойство было default, т.е. можно было обращаться как
Код: pascal
1.
Obj[2] := 'ABC';

нужно этому свойству установить dispid = 0
Код: plaintext
1.
2.
3.
4.
[propget, id(0)]
HRESULT _stdcall Items([in] long AIndex, [out, retval] BSTR * AVal);
[propput, id(0)]
HRESULT _stdcall Items([in] long AIndex, [in] BSTR AVal);


По идее, в редакторе ван нужно добавить одно Read | Write свойство
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.11.2021, 14:45
    #40115273
vdix
vdix
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Индексированные свойства в OLE объектах
Благодарю, буду пробовать! :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Индексированные свойства в OLE объектах / 3 сообщений из 3, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 406ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2036833]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 70ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 2ms
others: 245ms
total:  406ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]