|
0
DeniUA
09.08.07
✎
17:40
|
Здраствуйте.
Столкнулся с проблеммой подключения из 1с в САПР Интермех SEARCH
в описании указан пример на делфи.
Подскажите плиз как релизовать подключение в 1с)
_----------------------------
В общем случае порядок работы с функциями Search API следующий:
1. Зарегистрируйте Search COM Server на Вашем компьютере. Для этого нужно хотя бы один раз запустить файл s4.exe.
2. Подключите к тексту Вашей программы модуль с описанием функций Search API. Для Delphi он поставляется вместе с Search, а для других компиляторов сгенерируйте файл с описанием функций, используя файл библиотеки S4.TLB.
Пример: uses S4_TLB;
3. Объявите глобальную переменную типа ITS4App. Не используйте для этой цели локальные переменные в Ваших функциях, поскольку локальные переменные уничтожаются после завершения самих функций, что приведет к постоянной загрузке и выгрузке Search.
Пример: Var s4Application: ITS4App;
4. Создайте класс ITS4App через конструктор сокласса coTS4App.
Пример: s4Application := coTS4App.Create;
5. Вызовите функцию Login для проверки готовности Search к работе. Если Login вернет значение, отличное от 1, то Вам нужно организовать опрос этой функции до тех пор, пока Search успешно загрузится (Login=1) или пока пользователь нажмет кнопку Отменить в диалоге авторизации пользователя.
|
|
