🚀 go-pugleaf

���� �� �����, Catalog1->CubeDefs->get_Item(I) ���������� CubeDef25. �
��������, ����� �������� ��������� �� IDispatch (��� IUnknown), � �� ����
QueryInterface �� CubeDef - ��� � ������ �������� as �  Catalog1.CubeDefs[I]
as CubeDef.

IDispatch * disp = NULL;
disp = Catalog1->CubeDefs->get_Item(I);
disp->QueryInterface(IID_CubeDef, (void**)&CubeDef1);
disp->Release();

�������� �.�.

"Sorokoletov Gregory" <gsorokoletov@sovintel.net> �������/�������� �
�������� ���������: news:3ca052df$1_2@dnews...
>
> How can I retrieve "CudeDef" object from "CubeDefs" collection?
>
> I Delphi it is possible in the following way:
>
> var
>   Catalog1: ICatalog;
>   CudeDef1: CubeDef;
>   I: Integer;
>
> Catalog1 := CoCatalog.Create;
> Catalog1._Set_ActiveConnection(OleVariant(DataSource)); // DataSource -
> connection string
> for I:= 0 to Catalog1.CubeDefs.Count- 1 do
> begin
>   CudeDef1= Catalog1.CubeDefs[I] as CubeDef;
>
>   // here we use the CubeDef object;
>   TreeView1.Items.AddChild(RootNode, CubeDef1.Name);
> end;
>
> But when in C++ Builder I wrote:
>
>   WideString DataSource= "Provider=MSOLAP.2;
>                                              Integrated Security=SSPI;
>                                              Persist Security Info=False;
>                                              Data Source=ARISXXXXX;
>                                              Initial Catalog=FoodMart
2000;
>                                              Client Cache Size=25";
>   Catalog1->set_ActiveConnection(DataSource);
>   TCOMCubeDefs CubeDefs1= Catalog1->CubeDefs;
>   TCOMCubeDef25 CubeDef1;
>   //CubeDefs *CubeDefs1= Catalog1->CubeDefs;
>   //CubeDef *CubeDef1;
>   for(I= 0; I < CubeDefs1->Count; I++)
>   {
>     CubeDef1= Catalog1->CubeDefs->get_Item(I);  // here will be error!
>     // CubeDef1= Catalog1->CubeDefs[I];
>     TreeView1->Items->AddChild(RootNode, CubeDef1->Name);
>   }
>
> I get error: access violation :((((((((((((((((((!!!
>
>  Please explain my where is my error!
>
>