Copyright © 2010 Promsite. All Rights Reserved.


Совместное использование 1С Предприятие 7.7 и С++ Builder 6 часть I

Автор Виктор Алексеев aka prom



Код модуля 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();
}
//---------------------------------------------------------------------------
стр. 4
стр. 4
P  R  O  M  S  I  T  E
Статьи по С++Builder 6
страницы: 1   2   3   4   5

Для отображения Облака ссылок
необходим
Adobe Flash Player 9
или выше.

страницы: 1   2   3   4   5