gifts2017

Интеграция с 1С 8.2 на C++ Builder

Опубликовал Александр Паничев (pm04pad) в раздел Обмен - Обмен с другими системами

Интеграция с 1С 8.2 на C++ Builder

Подключение из программы на С++ Builder 6 к 1С 8.2 через COM-объект (V82.Application)

Возможности:

  1. Просмотр списка справочников 1С
  2. Просмотр реквизитов справочника с указанием типа данных
  3. Вывод данных справочника в Текстовый документ

Исходники прилагаются!

Добавлен бесплатный компонент VirtualTreeview.

По свойствам намного превосходит обычное дерево Treeview. 

На мой взгляд, самый функциональный компонент по работе с деревьями!

Пример подключения и получения списка справочников

TVirtualNode *Child;
TVirtualNode *Node;
TDateCatalog *dateCat;
TrVCatalogs->RootNodeCount=0;
TrVCatalogs->NodeDataSize=sizeof(TDateCatalog);
char *TempPath;
TempPath=GetDir();
Directory->Caption=TempPath;
if (Directory->Caption=="")return;
TPanel *Panel;
Panel=new TPanel(this);
Panel->Parent=this;
Panel->Color=TColor(0x00C6D3A9);
Panel->Caption="Идет подключение к 1С 8.2...";
Panel->Font->Size=16;
Panel->Font->Name="Arial";
Panel->Width=350;
Panel->Height=150;
Panel->Left=this->Width/2-Panel->Width/2;
Panel->Top=this->Height/2-Panel->Height;
Panel->Repaint();
Ole1C=CreateOleObject("V82.Application");
//Подключение к БД файлового варианта
ConnectLine="File="+Directory->Caption+"; "
"Usr="+CBoxName->Text+"; "
"Pwd="+EditPass->Text+"";
Ole1C.OleProcedure("Connect", ConnectLine.c_str());
if (VarIsEmpty(Ole1C)) {
   ShowMessage("Не удалось подключится!");
   return;
}
Catalogs=Ole1C.OlePropertyGet("Справочники");
String ss;
try{ss=Ole1C.OlePropertyGet("Метаданные").OlePropertyGet("Синоним");}
catch(...){}
Form1C->Caption="Интеграция с 1C: Предприятие 8.2 "+ss;
Meta_ole=Ole1C.OlePropertyGet("Метаданные").OlePropertyGet("Справочники");
int RecCount=Meta_ole.OleFunction("Количество");
for (int i=0;i<RecCount;i++){
   Variant ss=Meta_ole.OleFunction("Получить",i);
   Child=TrVCatalogs->AddChild(NULL,NULL);
   dateCat= (TDateCatalog*)TrVCatalogs->GetNodeData(Child);
   dateCat->name=ss.OlePropertyGet("Имя");
   dateCat->synonym=ss.OlePropertyGet("Синоним");
   dateCat->image=1;
}
TrVCatalogs->BeginUpdate();
TrVCatalogs->Header->AutoFitColumns(false,smaAllColumns,0,0);
TrVCatalogs->EndUpdate();
SizeTree();
delete Panel;


Скачать файлы

Наименование Файл Версия Размер
Интеграция с 1С 8.2 на C++ Builder 18
.exe 1,66Mb
20.04.12
18
.exe 1,66Mb Скачать
Исходники 15
.rar 1,50Mb
23.04.12
15
.rar 1,50Mb Скачать
Компонент для работы (VirtualTreeview) 8
.exe 718,70Kb
23.04.12
8
.exe 718,70Kb Скачать

См. также

Подписаться Добавить вознаграждение
Комментарии
1. Александр МАН (1977) 22.08.13 16:29
Побывал подключиться к 1с КА не получилось.
Прикрепленные файлы: