CoInitialize и компоненты на форме - C++ Builder - Ответ 79221

@Anton_Gusev · 04.12.2008, 14:38 **[ТС]**

Да вроде ни чего особенного.
CodeGear™ C++Builder® 2007 R2 Version 11.0.2902.10471

C++

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
 
#include <stdio.h>
#include "Main.h"
#include "dbUnit.h"
 
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "shdocvw_ocx"
#pragma resource "*.dfm"
 
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ButtonOpenClick(TObject *Sender)
{
 
 
    if (OpenDialogResults->Execute()){
 
        AnsiString          FileName_Export;
        EditFileName->Text  = OpenDialogResults->FileName;
        TAnalysisPCR *Anss  = new TAnalysisPCR;
 
        sBar->Panels->Items[0]->Text = "открывается протокол";
        Application->ProcessMessages();
 
        Anss->Open_Result(
                OpenDialogResults->FileName.c_str() );
 
        sBar->Panels->Items[0]->Text = "преобразование в xml";
        Application->ProcessMessages();
 
 
        if (Analisis)
            delete  Analisis;
 
 
        Analisis        = Anss;
        FileName_Export = ChangeFileExt(OpenDialogResults->FileName, ".xml");
 
        Analisis->Serialize( FileName_Export.c_str() );
        sBar->Panels->Items[0]->Text = "xml создан";
        Application->ProcessMessages();
 
        docXML->LoadFromFile( WideString(FileName_Export) );
        TransformXML( Sender );
    }
}
 
//---------------------------------------------------------------------------
void    __fastcall TMainForm::TransformXML(TObject *Sender){
 
    try{
        XSLpp->XMLData  =   docXML;
        XSLpp->LoadFromFile( WideString(edXsl->Text) );
 
    }catch( Exception &e ){
    }
}
 
 
void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action){
 
    if ( Analisis )
        delete Analisis;
 
}
//---------------------------------------------------------------------------
 
 
void __fastcall TMainForm::FormDestroy(TObject *Sender)
{
    XSLpp->Free();
    docXML->Free();
    CoUninitialize();
}
//---------------------------------------------------------------------------
 
 
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
    CoInitialize( COINIT_MULTITHREADED );
}
//---------------------------------------------------------------------------
 
 
void __fastcall TMainForm::DBGrid1DblClick(TObject *Sender)
{
    DataModule1->ADODataSet1->Active = false;
    DataModule1->ADODataSet1->Active = true;
}
//---------------------------------------------------------------------------
 
 
void __fastcall TMainForm::ButtonRunClick(TObject *Sender)
{
    if (!DataModule1->ADOConnection1->Connected)
         DataModule1->ADOConnection1->Connected = true;
 
 
    if (DataModule1->ADOConnection1->Connected) {
        DataModule1->ADOCommand1->CommandText =
                                    WideString( MemoSQL->Lines->Text );
 
        try{
 
            int raff;
 
            DataModule1->ADOCommand1->Execute(raff, NULL);
            DataModule1->ADODataSet1->Active = false;
            DataModule1->ADODataSet1->Active = true;
 
            sBar->Panels->Items[0]->Text = "добавлено записей: "+
                                                            AnsiString( raff );
 
        }catch( Exception &e ){
 
            ShowMessage( e.Message );
        };
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::docXMLBeforeOpen(TObject *Sender)
{
    sBar->Panels->Items[0]->Text = "загрузка xml";
    Application->ProcessMessages();
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::docXMLAfterOpen(TObject *Sender)
{
    sBar->Panels->Items[0]->Text = "xml загружен";
    Application->ProcessMessages();
 
    MemoXML->Lines  =   docXML->XML;
    sBar->Panels->Items[0]->Text = "xml отображен";
    Application->ProcessMessages();
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::XSLppBeforeOpen(TObject *Sender)
{
    sBar->Panels->Items[0]->Text = "загрузка шаблона";
    Application->ProcessMessages();
}
//---------------------------------------------------------------------------
 
void __fastcall TMainForm::XSLppAfterOpen(TObject *Sender)
{
 
    sBar->Panels->Items[0]->Text = "sql получен";
    Application->ProcessMessages();
 
    MemoSQL->Text = XSLpp->Content();
    sBar->Panels->Items[0]->Text = "sql отображен";
}
//---------------------------------------------------------------------------

Вернуться к обсуждению:
CoInitialize и компоненты на форме C++ Builder

Следующий ответ

Другие темы раздела
C++ Builder Динамическая картинка BitBtn https://www.cyberforum.ru/ cpp-builder/ thread17413.html Есть кнопка BitBtn, при запуке приложения в нее загружается картинка из ImageList-а. После нажатия кнопка меняет Caption и картинку. Тут сталкнулся с такой проблемой - картинки накладываются друг на друга. Помогите, как избавиться от этого, уж больно не эстэтично получается.	C++ Builder Нужен компонент Веб браузера. Мен нужно просмотреть код страницы, а стандартный CppBrowzer етого не позволяет. Компонент нужен на BCB 6
C++ Builder FindWindowEx https://www.cyberforum.ru/ cpp-builder/ thread17349.html Использую: HWND FindWindowEx(HWND hwndParent,HWND hwndChildAfter,LPCTSTR lpszClass, LPCTSTR lpszWindow ); - Ищет окно, производит поиск дочерних окон. hwndParent – основное окно, в котором производится поиск дочерних; hwndChildAfter – элемент с которого следует начинать поиск, если NULL тогда поиск пойдет с самого первого элемента; lpszClass – класс элемента управления; lpszWindow – имя,...	C++ Builder глючит CreateProcess https://www.cyberforum.ru/ cpp-builder/ thread17333.html Привет! Вот что у меня в обработчике кнопки: STARTUPINFO si = {sizeof(si)}; si.dwFlags = STARTF_USESHOWWINDOW; si.wShowWindow = SW_HIDE; PROCESS_INFORMATION pinfo; memset(&pinfo,0,sizeof(pinfo));
C++ Builder как изменить формат Ворд док-а как изиенить формат Ворд документа, не открывая его?? ну например на ".rtf" ???	C++ Builder Сравнение двух ячеек в StringGrid Доброго времени дня. Есть StringGrid1, в котором 4 столбца*10 строк(картотека). Он заполняется. Потом в Edit вводится фамилия. При нажатии кнопки по столбцу фамилия в StringGrid1 идет поиск-сравнение столбца фамилия из StringGrid1 и введеной в Edit фамилии. Если фамилия искомая найдена, то в StringGrid2 выводится фамилия и остальные данные об этом человеке. Вот мой код. Как сделать поиск... https://www.cyberforum.ru/ cpp-builder/ thread17330.html
C++ Builder Поиск текста в Word документе https://www.cyberforum.ru/ cpp-builder/ thread17287.html Всем привет. Нужен советь по такой теме. Дело обстоить так: Есть папка с Ворд документами. И есть ключевое слова. Надо найти в каком Ворд документе встречаетса это слова. Такая функция в самом Ворде есть. Хочетса автомотизировать поиск. Чтоб каждый раз не открывать док. и не искать. Программа должна найти этот (или эти) док. и показать к нему путь. В поисковиках ничего не нашел. Есть идеа...	Сохранение в файл с заданным пользователем именем C++ Builder это вот дельце поставило меня в тупик. надо сохранить переменную или, например, текст в TEdit в файл *.key , имя которого задает пользователь. подскажите как это можно реализовать.
C++ Builder Utf->win Добрый день. У меня такая проблема. Мне надо перекодировать строку =?utf-8?B?0J3QvtC80LXRgCDQt9Cw0LrQsNC30LAgMTAwMDYwNTk=?= в win1251. Для начала я использую TidDecoder MIME, а потом не знаю что делать. Пытался воспользоваться функциями UTF8Decode(), UTF8ToAnsi(), UTF8ToString(), UTF8ToUnicodeString(). Ниодна не помогает. В результате получаются сплошные знаки вопросов. Подскажите что можно... https://www.cyberforum.ru/ cpp-builder/ thread17252.html	C++ Builder Переключение между формами Прошу помощи как начинающий... Разрабатываю программу, с настройками, с различными дополнениями. На одной форме все уместить не могу. Необходимо по нажатию клавиши переключиться между формами, если есть возможность, то предлагать на выбор на какую форму переключиться. При том переход должен работать на любой форме. К сожалению книг под рукой не имею и подсмотреть негде. Понял, что надо провести... https://www.cyberforum.ru/ cpp-builder/ thread17216.html
где есть хорошая книга по билдеру с примерами C++ Builder для средних знаний	C++ Builder Где описано скриптование в си плюс плюс дайте ссылку https://www.cyberforum.ru/ cpp-builder/ thread17198.html

	04.12.2008, 14:38