Работа из VC++ с базой 1С83 через V83.COMConnector

@AlexxxMksv · Регистрация: 21.06.2013

Студворк — интернет-сервис помощи студентам

В Интернете редко встречаю эту тему, есть публикации или для работы с 1с7.7 или неполные.

Прошу помощи закончить программку (MFC), если не ошибаюсь соединение выполняется с базой, осталось выполнить внешнюю обработку "ВнешняяОбработка.epf" и получить версию и наименование конфигурации:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
IDispatch *pv8;
//для начала инициализируем COM
    HRESULT hr = CoInitialize(NULL);
    if(FAILED(hr))
    {
      AfxMessageBox(_T("Невозможно инициализировать COM!"));
      return;
    }
    CLSID cls8;
    hr = CLSIDFromProgID(OLESTR("V83.COMConnector"),&cls8);
    if(FAILED(hr))
    {
      AfxMessageBox(_T("Переустановите 1С Предприятие!"));
      CoUninitialize();
      return;
    }
    hr = CoCreateInstance(cls8,NULL,CLSCTX_INPROC_SERVER,IID_IDispatch,(void**)&pv8);
    if SUCCEEDED(hr)
    {
       DISPID dispIDInitialize;
       OLECHAR * init = OLESTR("Connect");
       hr = pv8->GetIDsOfNames(IID_NULL,&init,1,LOCALE_SYSTEM_DEFAULT,&dispIDInitialize);
        if (FAILED(hr))
        {
            AfxMessageBox(_T("Не удалось получить ID от Initialize"));
            if (pv8) pv8->Release();
            CoUninitialize();
            return;
        }
    // Connect принимает только 1 параметр
       DISPPARAMS args = {NULL,NULL,0,0};
       args.rgvarg = new VARIANT[1];
       args.cArgs = 1;
       VariantInit(args.rgvarg);
       args.rgvarg[0].vt = VT_BSTR;
       args.rgvarg[0].bstrVal = SysAllocString(OLESTR("File=\"C:\\base\";Usr=\"Администратор\"")); 
       hr = pv8->Invoke(dispIDInitialize,IID_NULL,LOCALE_SYSTEM_DEFAULT,DISPATCH_METHOD,&args,NULL,NULL,NULL);
       if (FAILED(hr))
        {
            AfxMessageBox(_T("Не удалось получить ID от Initialize"));
            if (pv8) pv8->Release();
            CoUninitialize();
            return;
        }
       VARIANT varRet;
       hr = pv8->Invoke(dispIDInitialize,IID_NULL,LOCALE_SYSTEM_DEFAULT,DISPATCH_METHOD,&args,NULL,NULL,NULL);
           if (FAILED(hr))
        {
            AfxMessageBox(_T("Невозможно подключиться к базе 1С Предприятия"));
            if (pv8) pv8->Release();
            CoUninitialize();
            return;
        }
       pv8->Release();
       SysFreeString(args.rgvarg[0].bstrVal);
       delete [] args.rgvarg;
     }

@AlexxxMksv · 02.02.2015, 18:23 **[ТС]**

Поднимаю, неужели тема ни кому не интересна.

Добавлено через 8 часов 40 минут
Исправил ошибку:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
    //для начала инициализируем COM
    HRESULT hr = CoInitialize(NULL);
    if(FAILED(hr))
    {
      AfxMessageBox(_T("Невозможно инициализировать COM!"));
      return;
    }
 
    CLSID cls8;
 
    hr = CLSIDFromProgID(OLESTR("V83.COMConnector"),&cls8);
    if(FAILED(hr))
    {
      AfxMessageBox(_T("Переустановите 1С Предприятие!"));
      CoUninitialize();
      return;
    }
 
    hr = CoCreateInstance(cls8,NULL,CLSCTX_INPROC_SERVER,IID_IDispatch,(void**)&pv8);
 
 
 
    if SUCCEEDED(hr)
    {
       
       DISPID dispIDInitialize;
 
       OLECHAR * init = OLESTR("Connect");
       hr = pv8->GetIDsOfNames(IID_NULL,&init,1,LOCALE_SYSTEM_DEFAULT,&dispIDInitialize);
        if (FAILED(hr))
        {
            AfxMessageBox(_T("Не удалось получить ID от Initialize"));
            if (pv8) pv8->Release();
            CoUninitialize();
            return;
        }
        
        // Connect принимает только 1 параметр
       DISPPARAMS args = {NULL,NULL,0,0};
       args.rgvarg = new VARIANT[1];
       args.cArgs = 1;
 
       VariantInit(args.rgvarg);
       args.rgvarg[0].vt = VT_BSTR;
       args.rgvarg[0].bstrVal = SysAllocString(OLESTR("File=\"C:\\base\";Usr=\"Администратор\"")); 
 
       hr = pv8->Invoke(dispIDInitialize,IID_NULL,LOCALE_SYSTEM_DEFAULT,DISPATCH_METHOD,&args,NULL,NULL,NULL);
           if (FAILED(hr))
        {
            AfxMessageBox(_T("Невозможно подключиться к базе 1С Предприятия"));
            if (pv8) pv8->Release();
            CoUninitialize();
            return;
        }
 
       pv8->Release();
 
       SysFreeString(args.rgvarg[0].bstrVal);
 
       delete [] args.rgvarg;
     }

@alex668 · 21.12.2021, 02:37

Реализовал с помощью #include <comdef.h>

Пример использования:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
#include <cdispatchhelper.h>
 
int MainWindow::TEST()
{
    HRESULT hr;
    VARIANT varRet;
 
    CDispatchHelper v8COMBase, v8Connector, v8SpravPol, v8QuerryBuilder, v8Querry, v8QuerryRes, v8QuerryRows;
 
    // Если COM соединение
 
    hr = v8COMBase.CreateInstance(L"V83.COMConnector", CLSCTX_INPROC_SERVER);
    if( FAILED(hr) ) // проверка на присутствие 1С Automation Sever-а
    {
        qInfo( logInfo() ) << "Переустановите 1С Предприятие!";
        return 0;
    }
 
    v8Connector = v8COMBase.Invoke(LPOLESTR( L"Connect" ), LPOLESTR( L"Srvr=\"test.ru\";Ref=\"test\";Usr=\"test\";Pwd=\"qwerty\"" ));
    if( !v8Connector )
    {
        qInfo( logInfo() ) << "Невозможно подключиться к базе 1С Предприятия";
        v8COMBase.Release();
        return 0;
    }
 
    // Если толстый клиент
 
//    hr = v8COMBase.CreateInstance(L"V83.Application");
//    if( FAILED(hr) ) // проверка на присутствие 1С Automation Sever-а
//    {
//        qInfo( logInfo() ) << "Переустановите 1С Предприятие!";
//        return 0;
//    }
 
//    varRet = v8COMBase.Invoke(LPOLESTR( L"Connect" ), LPOLESTR( L"Srvr=\"test.ru\";Ref=\"test\";Usr=\"test\";Pwd=\"qwerty\"" ));
//    if( (varRet.vt != VT_BOOL)||(varRet.boolVal == 0) ) // проверка удачно/не удачно
//    {
//        qInfo( logInfo() ) << "Невозможно подключиться к базе 1С Предприятия";
//        v8COMBase.Release();
//        return 0;
//    }
 
    // Если COM соединение
 
    v8Querry = v8Connector.Invoke(LPOLESTR( L"NewObject" ), LPOLESTR( L"Запрос" ));
    if( !v8Querry )
    {
        qInfo( logInfo() ) << "Невозможно получить объект 'Запрос'";
        v8COMBase.Release();
        return 0;
    }
 
    // Если толстый клиент
 
//    v8Querry = v8COMBase.Invoke(LPOLESTR( L"NewObject" ), LPOLESTR( L"Запрос" ));
//    if( !v8Querry )
//    {
//        qInfo( logInfo() ) << "Невозможно получить объект 'Запрос'";
//        v8COMBase.Release();
//        return 0;
//    }
 
    v8Querry.Put( LPOLESTR( L"Текст" ), LPOLESTR( L"ВЫБРАТЬ Пользователи.Наименование КАК Наименование, Пользователи.ФизическоеЛицо.Наименование КАК ФизическоеЛицоНаименование ИЗ Справочник.Пользователи КАК Пользователи ГДЕ Пользователи.Наименование like \"%Екатерина%\"" ) );
 
    v8QuerryRes = v8Querry.Invoke( LPOLESTR( L"Выполнить" ) );
 
    if( !v8QuerryRes )
    {
        qInfo( logInfo() ) << "Невозможно выполнить процедуру 'Выполнить'";
        v8COMBase.Release();
        return 0;
    }
 
    v8QuerryRows = v8QuerryRes.Invoke( LPOLESTR( L"Выбрать" ) );
 
    if( !v8QuerryRows )
    {
        qInfo( logInfo() ) << "Невозможно выполнить процедуру 'Выбрать'";
        v8COMBase.Release();
        return 0;
    }
 
    for(int i = 0; i < v8QuerryRows.Invoke( LPOLESTR( L"Количество" ) ).intVal; i++)
        if( VARIANT_TRUE == v8QuerryRows.Invoke( LPOLESTR( L"Следующий" ) ).boolVal )
            qInfo( logInfo() ) << "Наименование: " << QString::fromWCharArray( v8QuerryRows.Get(LPOLESTR( L"Наименование" )).bstrVal )
                               << " ФизическоеЛицоНаименование: " << QString::fromWCharArray( v8QuerryRows.Get(LPOLESTR( L"ФизическоеЛицоНаименование" )).bstrVal );
 
    v8QuerryBuilder.Release();
    v8Querry.Release();
    v8QuerryRows.Release();
    v8QuerryRes.Release();
    v8Connector.Release();
    v8COMBase.Release();
 
    return 0;
}

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение Это мой обзор планшета X220 с точки зрения школьника. Недавно я решила попытаться уменьшить свой. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .