Взаимодействие с Аксаптой через COM+

[banbery]

Кто знает, подскажите, при подключении к Аксапте через СОМ создаем следующие обьекты, например:
Axapta, AxaptaQuery, AxaptaDataSource, AxaptaRange, AxaptaQueryRun, AxaptaTableBuffer.
Каково время жизни обьектов?
Например, "Axapta" нужен на протяжении всего сеанса (Logon, Logoff).
"AxaptaQuery" и "AxaptaDataSource" уже труднее, нужно ли создавать новые при обращении к другой таблице или достаточно переопределить первые?
Что происходит с переопределенными? Просто остаются в памяти до конца сеанса? Как можно их освободить? (=nil ?)
И еще вопрос, как найти запись в базе? (Метод "Find" в "RecordSortedList" если кто использовал поделитесь).

Пример кода на 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;

[ShadowFromXZone]

Привет ты случайно импорт через коннектор не добил... в Delphi

Можешь поделиться тайными знаниями ?

[Андре]

Хм.... насколько я помню COM, там сделано так. Вместо того, чтобы напрямую захватывать и удалять компонент мы сообщаем ему, что нам нужен некий интерфейс, а также, что мы закончили с этим интерфейсом работать. При этом компонент сам отслеживает, работает ли кто-нибудь с ним или нет, путем "подсчета ссылок".
Посмотри - у IUnknown есть для этого две функции-члена AddRef и Release.

Это я так, общую концепцию описал. Если интересуют детали, рекомендую Роджерсона "Основы COM"/

[ShadowFromXZone]

;-(

[velk]

Поделитесь информацией.... может у кого есть простейший пример?

[Андре]

Простейший пример есть в Руководстве разработчика. В разделе Axapta Business Connector. Там на VB, но передалеть на Дельфи труда не составит.

[Ace of Database]

Я в таких случаях стараюсь минимизировать количество объектов Аксапты, используемых в моих программах и поступаю так:
1. Весь код, который что-то делает в Аксапте, пишу внутри Аксапты
2. В Аксапте создаю класс и статический метод в классе, через который программа, написанная на другом языке будет вызывать аксаптовский код из первого пункта.
3. Вызываю этот статический метод из программы, написанной на другом языке, через AxaptaCOMConnector.Axapta2 :: CallStaticClassMethodEx()
4. Если мне в моей программе нужны данные из Аксапты, то я напрямую через ADO беру эти данные из базы Аксапты.

То есть основные два момента такие:
1) Если нужно что-то изменить в базе данных Аксапты, то я пишу код в самой Аксапте и вызываю этот код из своей программы через COM-connector и метод CallStaticClassMethodEx().
2) Если нужно что-то прочитать из базы данных Аксапты, то я напрямую соединяюсь к этой базе через ADO.

[Ace of Database]

Для velk - вот пример на VB

PHP код:

Public Sub MyAxaptaSub()
    Dim ax As New AxaptaCOMConnector.Axapta2
    Dim paramList As New AxaptaCOMConnector.AxaptaParameterList
    ax.Logon2 "UserName", "Password", "StartupCompany", , , , "Имя Конфигурации В Конфигурационной Утилите"
    
    paramList.Size = 2 'передаем два папраметра
    paramList.Element(1) = "Сам"
    paramList.Element(2) = "такой"
    ax.CallStaticClassMethodEx "NameOfTheClassInAxapta", "NameOfTheStaticMetod", paramList
    
    ax.Logoff
End Sub 


[Alex P]

Цитата:

Изначально опубликовано Ace of Database
Я в таких случаях стараюсь минимизировать количество объектов Аксапты, используемых в моих программах и поступаю так:

2) Если нужно что-то прочитать из базы данных Аксапты, то я напрямую соединяюсь к этой базе через ADO.

Я сейчас то же озабочен этой проблемой получить данные из Аксапты и связь через АDO мне кажется сомнительной. Ведь зачастую надо получать не просто таблицы, а сложные запросы типа InventOnHand - и что в таком случае - писать sql - запросы, дублирующие Aксаптовские Queries ? А два механизма чтения данных, через ADO и Com Connector держать не хочется. У кого какие мнения или опыт использования ?

[velk]

Странно конечно но нигде не нашел инфу по login2
может кто скажет какие параметры и что означают

[mazzy]

руководство разработчика
Axapta Business Connector \ Basics \ Reference Documentation \ IAxapta2 \ IAxapta2::Logon2

[velk]

Может кто поделится руководствами разработчика.....
ОЧЕНЬ НУЖНО...
СПАСИБО

[mazzy]

бог ты мой!
в дистрибутиве.
или в каталоге bin.
или возьмите здесь http://technet.navision.com/usered/A...02.00-ENUS.zip

[velk]

есть ли работающий пример на Delphi?

[velk]

Получается этот пример работает только для двухзвенки?
А для трехзвенки как использовать?
Помогите пожалуйста!!!!!

[slava]

Цитата:

Изначально опубликовано velk
Получается этот пример работает только для двухзвенки?

Нет. И для трехзвенки тоже.

[velk]

Тогда подскажите какие настройки должны быть в Navision Axapta Configuration Utility
если конечно это там что то надо донастраивать....
может Logon необходимо дополнить какимито параметрами???
У меня для двухзвенки все работает прекрасно...
как только перевожу на трехзвенку то возникает ошибка
на строке ax.Logon2 "Admin", "", "", , , , ""

[slava]

Цитата:

Изначально опубликовано velk

на строке ax.Logon2 "Admin", "", "", , , , ""

Какая ошибка? Или лучше так - используйте просто Logon, а не Logon2

Application("webAxapta").Logon "webuser", "" , "", ""

[velk]

Вот мой код
Set Axapta = CreateObject("AxaptaCOMConnector.Axapta")

на этой строке возникает ошибка - Неопознаная ошибка
Axapta.Logon "adminl", "adminpassword", "", ""

Axapta.Logoff

[slava]

Цитата:

Изначально опубликовано velk
"adminpassword"

Вместо adminpassword Аксаптой здесь ожидается serverManager