OLAP CUBE的问题,百思不解,请高手相助!在线等待!

[铁歌]

procedure TForm1.GetOlapCubes(dataSource: widestring);
var

I : Integer;
Catalog1 :ICatalog;
RootNode :TTreeNode;
CubeDef1 :CubeDef25;
CubeDefNode :TTreeNode;
begin

//创建新的Catalog对象

Catalog1 := CoCatalog.Create;

TreeView1.Items.Clear;

RootNode := TreeView1.Items.Add(nil, 'Catalog');

//连接多维数据库
Catalog1.Set_ActiveConnection('Provider=MSOLAP.2;Password=taadmin;Persist Security Info=True;User ID=taadmin;Data Source=SKT057;Initial Catalog=FoodMart 2000;Client Cache Size=25;Auto Synch Period=10000');

//遍历立方并获得对应的名字

for I := 0 to Catalog1.CubeDefs.Count-1 do
begin
CubeDef1 := Catalog1.CubeDefs(i) as CubeDef;
CubeDefNode := TreeView1.Items.AddChild(RootNode, CubeDef1.Name);
end;

end;


上面代码是取得OLAP的CUBE,import adomd_tlb后是在DELPHI 6中编译出现
[error]:class does have not deflaut property
百思不解,请高手相助!

[chengchong1979]

看不懂，帮你UP