Вопрос про Com+

[velk]

А этот пример у кого нибдь работает?

Пример кода на Delphi:

procedure TForm1.FormCreate(Sender: TObject);
begin
Axapta := CreateCOMObject(StringToGUID('AxaptaCOMConnector.Axapta')) as IAxapta ;
Axapta.Logon('Admin');
AxaptaQuery := Axapta.CreateObject('Query');
AxaptaDataSource := AxaptaQuery.Call('AddDataSource', CustTable); // 77
AxaptaRange := AxaptaDataSource.Call('AddRange', CustTable_Name); // 2
AxaptaRange.Call('Value', '*');
AxaptaQueryRun := Axapta.CreateObject( 'QueryRun', AxaptaQuery);

While (AxaptaQueryRun.Call('Next')) do begin
AxaptaTableBuffer := AxaptaQueryRun.Call('GetNo', 1);
StrList.Add(AxaptaTableBuffer.field['AccountNum']);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AxaptaDataSource := AxaptaQuery.Call('AddDataSource', VendTable); // 505
AxaptaRange := AxaptaDataSource.Call('AddRange', VendTable_Name); // 2
AxaptaRange.Call('Value', '*');
AxaptaQueryRun := Axapta.CreateObject( 'QueryRun', AxaptaQuery);

While (AxaptaQueryRun.Call('Next')) do begin
AxaptaTableBuffer := AxaptaQueryRun.Call('GetNo', 1);
StrList.Add(AxaptaTableBuffer.field['AccountNum']);
end;
end;