Работа из 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;
}

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем