День добрый. Вопрос такой. Каким образом, в Делфи возможно передать клиенту из метода COM некую структуру, используя OleVariant в качестве out параметра?
Заранее спасибо.

А зачем передавать через OleVariant? Можешь попробовать набросать интерфейс за место структуры и передавать указатель на его экземпляр. Недавно что то похожее в книге видел.

Почемуто все ссылаются на книги Дело в том, ято этого требует клиентская программа. Ей нада получить именно вариант.

Напиши как и чего ты хочеш в виде кода. Так тебе быстрее помогут.

Да тут дело оказалось проще, можно структуры и так гонять, нада только описать их в TLB
А вот возникла другая трабла. Как передать вложенные структуры? Например:
TFileInfo = packed record
m_Name: WideString;
m_Size: Integer;
m_AllocSize: Integer;
m_Creation: WideString;
m_Change: WideString;
m_LastAccess: WideString;
m_LastWrite: WideString;
end;

TDir_Entry = packed record
m_Size: Integer;
m_Files: ^TFileInfo;
end;
Дело в том, что изменить этот код я не могу, он всё равно перегенерится делфёй. Я программер С++ и понять не могу как в паскале сделать следующее, вторая структура содержит указатель на первую, потому как в TLB прописанно:
typedef struct tagTDir_Entry
{
long m_Size;
struct tag TFileInfo * m_Files /*Warning: unable to validate structure name: */;
int TDir_Entry_DUMMY;
} TDir_Entry;
Вот, но мне нада этот указатель сделать динамическим массивом. Пример как это в С++ делается:
TFileInfo * m_Files = new TFileInfo[10].

Как такое сделать в паскале?

Код

PFileInfo = ^TFileInfo; TFileInfo = packed record m_Name: WideString; m_Size: Integer; m_AllocSize: Integer; m_Creation: WideString; m_Change: WideString; m_LastAccess: WideString; m_LastWrite: WideString; end; TDir_Entry = packed record m_Size: Integer; m_Files: array of PFileInfo; end;

Добавлено @ 12:22
Задавать размер так

Код

SetLength(DirEntry.m_Files, 10); for i := 0 to 9 do  GetMem(DirEntry.m_files[i], SizeOf(TFileInfo));

Это сообщение отредактировал(а) <Spawn> - 2.7.2004, 12:24