интеграция с 1С (создание COM компонента)

[Алексей++]

Может кто помнит, я задавал кучу вопросов, когда делал программу для удалённого администрирования. Так вот, поделка сия готова, и заказчик задал вопрос - как это чудо познакомить с одинэской, то есть чтобы программу можно было запустить из 1C-ного кода, а также управлять запущенной программой оттуда (управлять - максимум вызывать определённые функции).

Как это делается ? О_о

[Kivals]

1С умеет работать с OLE объектами. Ты можешь в своей программе сделать OLE (COM) интерфейс для управления?

[Алексей++]

если подскажешь, как это делается, то смогу

Добавлено через 1 день, 23 часа, 57 минут и 24 секунды:
А правильно ли я понимаю, что в 1С основная проблема - трудности с вызовом WinAPI, и поэтому написание и использование DLL необходимо именно для того, что 1C умеет подгрузить DLL и вызывать из него функции ?

То есть, по сути, DLL у меня должно быть тупо посредником между 1С и WinAPI , который будет передавать команды управляемой программе (через экспортируемые функции)?

[Kivals]

В принципе уже есть "универсальный" посредник для вызова WinAPI - это DynamicWrapper, так что можно обойтись WinAPI. Но по стандарту 1С имеет свой формат интерфейсов, через которые ведет общение с программой. Причем поскольку с выходом 8.2 стало возможным работать через веб-клиент не только в среде Windows, то в 8.2 добавлена переработанная версия работы с внешними компонентами: Native API.
На сайте 1С описание находится в закрытой области (точнее его можно загрузить со страницы загрузки платформы), но поиск дает возможность найти его в просторах интернета

[Алексей++]

Kivals, спасибо, вот мне нечто вроде того, что по первой ссылке, и надо, судя по всему сделать. Я сегодня телегу по COM читал, вроде понятно, как это сделать. Потом отпишусь, что вышло )

Добавлено через 1 день, 1 час, 35 минут и 11 секунд:
Kivals, глянь, пожалуйста, мои метания вот тут )
https://forum.shelek.ru/index.php/topic,11352

[Алексей++]

Kivals, я тут поразбирался с визардом в студии и, вроде, родил DLL с COM-объектом внутри. Но не могу понять, в чём его протестировать. А также - кто должен регистрировать компонент, или же вручную надо вызывать regsvr32 ?

Можешь попробовать?

DLL в аттаче, название компонента "MyLIBR.My1Component" , там сейчас единственный метод

Код:

__show_dlg(VARIANT_BOOL show);

должен показывать и скрывать диалог

(проект тоже пристегну на всякий случай)

[RXL]

Да, в системе его регистрируют (и разрегистрируют) посредством regsrv32. Не важно, руками или посредством вызова из другой программы. Иначе COM не будет недоступен.

Протестить COM-объект легче всего в VB - для него это родной дом.

Код: (Visual Basic)

Dim o As Object

' Создание объекта
Set o = CreateObject("MyLIBR.My1Component")

' Вызов метода
Call o.__show_dig(True)
' Альтернативный способ вызова
' o.__show_dig True

' Удаление объекта
Set o = Nothing

[Kivals]

Из 1С: Ошибок не вызывает, но и ничего не делает. В атачах тестовые обработки для 1С

[Алексей++]

Ром,  VB  щас поищу. VB6 сойдёт же ?

Слав, у меня нет 1C

Добавлено через 44 минуты и 35 секунд:
вспомнил, что в экселе есть VBA  , сделал модуль - а выполняться он не желает, эксель пишет, что макросы не разрешено выполнять

Кстати, VBA не разрешает начинать имена с подчёркивания. Переделал без подчёркивания - пошагово мой диалог не показывается, пока не разобрался, почему. а просто мессадж бокс выводит. Так что, всё ок, спасибо всем за помощь Буду сейчас добивать эту кухню

Добавлено через 4 часа, 50 минут и 51 секунду:
происходит вот что: не создаётся диалог. Имеется в виду - хендл его окна

Код:

My1Component::My1Component()
{
	m_pDlg=new CSomeDlg(0);
	BOOL b=m_pDlg->Create(IDD_DIALOG1,0);

	CString txt;
	txt.Format(
		L"Create=%d\n\r"
		L"GetLastError=%d\n\r"
		L"HWND=0x%08X"
		,b
		,GetLastError()
		,m_pDlg->m_hWnd
		);


	MessageBox(0,txt,L"345",MB_SYSTEMMODAL);
	ShowDialod(0);
}

выводится
Create=0
GetLastError=0
HWND=0

почему окно не создаётся ?

Добавлено через 4 часа, 27 минут и 57 секунд:
догадался, однако )

Код:

My1Component::My1Component()
{
	m_pApp= new CWinApp;          // <<<<<<<<<
	m_pApp->InitInstance();           // <<<<<<<<<

	m_pDlg=new CSomeDlg(0);
	m_pDlg->Create(IDD_DIALOG1,0);

	ShowDialod(0);
}

My1Component::~My1Component()
{
	delete m_pDlg;
	delete m_pApp;                  // <<<<<<<<<
}

[Kivals]

Слав, у меня нет 1C

Я помню - это как пример кода, возможно - для твоего клиента

Однако как размерчик dll сразу поменялся... Похоже студия даже не вкомпилила ресурсы в первый раз

Добавлено через 9 минут и 27 секунд:
Все Ок - в 1С 7.7 и 8.2 (толстый и тонкий клиенты) все работает

[Алексей++]

Kivals, насчёт размера -  я теперь статически слинковал с библиотекой MFC. До этого пропустил этот момент (но на работоспособность в данном случая это не влияло)

Добавлено через 52 секунды:

Все Ок - в 1С 7.7 и 8.2 (толстый и тонкий клиенты) все работает

это хорошо )) Сейчас встраиваю полученные знания в проект )

Добавлено через 13 часов, 55 минут и 23 секунды:
Зак пишет:

но помнишь, да, что нужно, чтобы он сам себя регистировал в системе, а не через командную строку?   

вот могу только батник предложить. Или ещё как-то можно ? ))))

[zubr]

CreateProcess(NULL, L"regsvr32.exe /s MyComLib.dll", NULL, NULL, FALSE, CREATE_DEFAULT_ERROR_MODE, NULL, NULL, si, pi);

[Алексей++]

zubr,  не не, как в студии это сделать я знаю. А там, как выразился зак, сидят бабушки-пользователи 1С . По моему, тут только батник самое удобное

[zubr]

Алексей1153++, причем здесь студия? WinAPI для любой программной платформы одинаково, будь то VS C++, VBA, Delphi, BCB и т. п.

[Алексей++]

речь про 1С вообще-то

[Алексей++]

пытаюсь протестировать COM класс,  следующие методы  

Код:

slavedclient_ConnectToServe)(BSTR* ServerAddress, LONG TcpPort); 
slavedclient_GetID(LONG* ID); 
slavedclient_GetPassword(BSTR* Password, LONG max_chars_count_with_zero); 

пробую на VBA в экселе 2000. Вопросы – в комментариях
  

Код:

Public Sub f1() 

Dim o As Object 

Set o = CreateObject("TMV1C_Component.SlavedClient") 


'тут нужна юникодная строка, как объявить ? 
Dim str(10) As Byte 
str(0) = 48 + 0 
str(1) = 48 + 1 
Call o.slavedclient_ConnectToServer(str, 80) 


'правильно ли ? (нужна юникодная строка, передаваться должен указатель на буфер) 
Dim LL As Long 
LL = 77 
Call o.slavedclient_GetID(LL) 


'тоже нужна юникодная строка 
Dim pass(100 * 2) As Byte 
Call o.slavedclient_GetPassword(pass, 100) 



Set o = Nothing 
End Sub 

[zubr]

речь про 1С вообще-то

Ну так из 1С функции API можно вызывать.

[Алексей++]

zubr, если речь про этот вроппер
 

В принципе уже есть "универсальный" посредник для вызова WinAPI - это DynamicWrapper

то он заказчику не подошёл почему то

[RXL]

Леш, строка задается не массивом байт, а типом String - с указанием длины или без.

Код: (Visual Basic)

Dim str1 As String(80)
Dim str2 As String

Насчет юникодности пока ничего не могу сказать.
Из того, что прочел, я вынес, что строки VBA юникодные, а проблема заключена в строковых константах и встроенных функциях типа MsgBox.
http://teaandbiscuits.org.uk/drupal/node/77

Указателей в VBA нет, но есть передача по ссылке. Данный момент указывается в прототипе импортируемой функции. Для COM, думаю (не уверен), ByRef автоматом указывается.

[Алексей++]

VBA ругается на

Dim str1 As String(80)


Добавлено через 19 минут и 5 секунд:
попробовал вот так, но явно что-то не то

(click to show)

[Алексей++]

Не связано с предыдущим постом (но тот тоже пока ещё не решился), в общем, по какой я грабле прогулялся! Запишу, кому-то спасёт много времени и нервов

Если в COM-ном проект добавить ссылку из другого, рабочего проекта, в частности на создаваемый MFC-шный стандартный файл "MyProjectApp.cpp" , а там объявлена глобальная переменная CMyProjectApp theApp, то при сборке DLL+COM:

первый признак ерунды

(click to show)

в консоли вывода:

1>Компиляция...
1>CMyProjectApp.cpp
1>Компоновка...
1>Внедрение манифеста...
1>Осуществляется регистрация выхода...

на этом происходит затык - ждать можно до талого снега, либо нажать отмену компиляции.

зависает конкретно regsvr32.exe (студия сразу пытается зарегить COM объект) - его видно в диспетчере. Такая же фигня происходит и при попытке зарегить уже созданную DLL из командной строки

второй признак ерунды

(click to show)

если из того же VBA попытаться создать объект, то выхода из CreateObject уже не произойдёт - висим.

Если для глобальной переменной поставить тип CWinApp вместо CMyProjectApp (для этого эксперимента придётся заремарить extern CMyProjectApp theApp из "MyProjectApp.h"), либо вовсе убрать эту переменную, то затыков не происходит

Причину такого поведения я не выяснил

В принципе, я избавился от ссылки в DLL на этот файл, но всё равно хотелось бы узнать, где сябака

[RXL]

Чей-то ты, Леш, мудришь...

При регистрации происходит запуск DLL и вызов некой функции в ней (см. MSDN). Соотв., срабатывают зависимости и прочее.

[Алексей++]

Я в курсе - вызывается DllRegisterServer

Но глобальная переменная то создаётся при этом тоже. Но это ладно, я без неё обошёлся. Тут вот чего ещё:
с передачей строк разобрался - дело в том, что BSTR - это уже указатель на WCHAR. Ещё раз разыменовал - и всё стало нормально с передачей.

А вот передать буфер для заполнения не получается

Код:

str1 = String(100, 0)
Call o.slavedclient_GetPassword( str1, 100)

передаться то он передаётся, но при попытке изменить содержимое строки программа валится, а васик показывает окно

(click to show)

[RXL]

Попробуй

Код: (Visual Basic)

Dim str1 As String(100)

[Алексей++]

VBA ругается на

Dim str1 As String(80)

я кое что уже обнаружил, проверяю щас

Добавлено через 15 минут и 59 секунд:
в общем, в IDL файле я неправильно указал свойства параметра

   [id(5), helpstring("метод slavedclient_GetPassword")] HRESULT slavedclient_GetPassword([in,out] BSTR* Password, [in] LONG max_buffer_length);

вместо "[in,out]" у меня было "[out]"

[RXL]

Код: (Visual Basic)

Dim str1 As String * 80

[Алексей++]

RXL, ага, так тоже выделяется. Но я уже вот так делал

Код:

str1 = String(100, 0)

а я тут 2 часа мозгового сексу отхватил - оказалось, что фаервол отличился. Ну не создавался сокет, и всё тут! Потом вдруг думаю - отрублю ка я фаер... Хоп - открылся сокет! Запускаю фаер, смотрю правила - екселька то у меня весь запрещённый

Остался ещё один момент - при закрытии компонента эксель вылетает. Щас буду рыться

Добавлено через 1 час, 2 минуты и 58 секунд:
Охренеть. Я столько мучался без отладчика, а студия-то позволяет отлаживать DLL ! Совершенно случайно это сейчас открыл для себя

Сразу увидел, где ошибка, а так бы ни в жисть. Осталось ещё придумать, как исправить ))

Добавлено через 34 минуты и 1 секунду:
усё, силы зла побеждены )

Одно только беспокоит - где-то два потока остаются висеть после закрытия объекта. Что очень странно. Проверил с MyLIBR.My1Component (тестовый проект из аттача вверху) - там всё ок, ничего не остаётся висеть

Добавлено через 13 часов, 13 минут и 8 секунд:
выяснил, что дело в CWinThread - я их первый раз применил для потоков ради эксперимента. Если делать выход из процедуры потока сразу (для теста), то счётчик потоков не увеличивается. Причину пока не понял и пока забил (частых перезапусков всё равно не будет). Подозреваю, что если использовать обычные АПИшные потоки, то всё будет ок , но переделывать сейчас не буду ))

[Алексей++]

Если в COM-ном проект добавить ссылку из другого, рабочего проекта, в частности на создаваемый MFC-шный стандартный файл "MyProjectApp.cpp" , а там объявлена глобальная переменная CMyProjectApp theApp, то при сборке DLL+COM:

выдалась свободная минутка, поэкспериментировал . Выявлен более "глубокий" виновник затыкания (но дальше я пока не стал разбираться)

(click to show)

Поскольку у меня MFC-проект, основанный на диалоге, то внутри InitInstance открывается модальный диалог, после закрывания которого происходит возврат 0 (завершение приложения)

С тестовым кодом, где взят чистый CDialog, которому подсунут ресурс моего диалога, затыкания не происходит. После строки вывода "1>Осуществляется регистрация выхода..." появляется диалог-зомби, его закрываем, компиляция удачно завершается.

А вот эта корявая надпись как раз выводится из-за того, что возвращается 0. Если вернуть 1, то надписи нет. Интересно, возможно ли как-то узнать, как "запустили приложение" - штатно, или только для регистрации DLL ?

[RXL]

Вызов DllRegisterServer разве не информативно?

[Алексей++]

не понимаю вопроса