Код модуля Unit1.cpp
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ComObj.hpp"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
Variant serv,trade,ref;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->Caption = "Отключено";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ref = serv.OleFunction("EvalExpr","СоздатьОбъект(\"Справочник.Организации\")");
ref.OleFunction("ВыбратьЭлементы",1);
while (ref.OleFunction("ПолучитьЭлемент")== 1)
{
TreeView1->Items->Add(NULL,ref.OlePropertyGet("Наименование"));
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
serv.Clear();
serv.OleProcedure("Quit");
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
serv = CreateOleObject("V77s.Application");
trade = serv.OlePropertyGet("RMTrade");
{
if (CheckBox1->State == cbChecked)
serv.OleProcedure("Initialize", trade,"/DC:\\ETA /NManager","NO_SPLASH_SHOW");
else
serv.OleProcedure("Initialize", trade,"",""); //А вот так открывается
//стартер 1С для выбора и запуска базы.
}
Form1->Caption = "Подключено";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
TreeView1->Items->Clear();
}
//---------------------------------------------------------------------------