Адрес этой странички: http://d1cv8.narod.ru/top_003/d1cv8_20070924_001/d1cv8_20070924_001.htm Дата: 24.09.2007 Интернет-приложение к книге "Delphi и 1С:Предприятие.Программирование информационного обмена"

Глава 3. Подключение к 1С.
Создание Delphi-компонента, реализующего функционал подключения к 1Cv7.
Расширение функционала (продолжение).
Видимость окна программы 1Cv7.

В главе 3 книги (стр. 19-25) был рассмотрен пример подключения из внешнего приложения к системе 1Cv7 в режиме OLE Automation.
В статье от 27.08.2007 был рассмотрен процесс создания Delphi-компонента (TConnectTo1Cv7 ), реализующего соответствующий функционал.
В предыдущей статье мы модифицировали компонент, расширив его функционал (добавили метод, позволяющий считывать список активных Пользователей базы данных 1Cv7).
Теперь попробуем еще расширить функционал компонента TConnectTo1Cv7 , создав свойства и методы, позволяющие визуализировать окно программы 1Cv7 (подробно об этом см. глава 4, стр. 244-249 книги).

Здесь мы рассмотрим только "практику" ...


Запустим Delphi и откроем пакет sp1Cv7_OLE.dpk.
По двойному щелчку мышкой на строке ConnectTo1Cv7.pas откроем модуль компонента TConnectTo1Cv7 .

Сделаем следующие изменения (красный цвет)  в соотв.разделах  объявления класса компонента :

type
    TConnectTo1Cv7 = class(TComponent)
    private
        { Prvate declarations }
        ...
        ...
        //Флаг: если true - окно видимо,
        //в противном случае - нет
        fVisible1Cv7 : boolean;

        //Дескриртор окна приложения 1Cv7
        fhWnd1Cv7 : HWND;

        //Цепочка символов в заголовке окна приложения,
        //идентифицирующая окно, как окно программы 1Cv7
        fVisible1Cv7_Caption : string;

     protected
        { Protected declarations }
        ...
        ...
        //Метод, "отвечающий" за изменение значения fVisible1Cv7
        procedure mSetVisible1Cv7(Value : boolean);

     publiс
        { Public declarations }
        ...
        ...
        //"Опубликуем" значение fhWnd1Cv7, как свойство (только для чтения)
        property hWnd1Cv7: HWND read fhWnd1Cv7;

        //Метод, визуализирующий окно программы 1Cv7
        function ShowThisWindow_1Cv7 : boolean;

        //Метод, скрывающий окно программы 1Cv7
        function HideThisWindow_1Cv7: boolean;

     published
        { Published declarations }
        ...
        ...
        //Свойство Visible1Cv7 (визуализация/скрытие окна программы 1Cv7)
        property Visible1Cv7: Boolean read fVisible1Cv7 write mSetVisible1Cv7 default FALSE;

        //Свойство Visible1Cv7_Caption (цепочка символов в заголовке окна,
        //идентифицирующая его, как окно программы 1Cv7)
        property Visible1Cv7_Caption: string read fVisible1Cv7_Caption write fVisible1Cv7_Caption;

    end;

Изменения в конструкторе класса :

constructor TConnectTo1Cv7.Create(AOwner: TComponent);
//Конструктор компонента
begin
    //Сначала (перед любыми нашими "действиями") вызываем "дух предков" :)
    inherited Create(AOwner);

    ...

    fVisible1Cv7 := FALSE;
    fhWnd1Cv7 := 0;
    fVisible1Cv7_Caption := Trim(fVisible1Cv7_Caption);
    if length(fVisible1Cv7_Caption)<=0 then fVisible1Cv7_Caption:='1С:Предприятие';

    ...
    ...

end;
 

Определим новый метод :

procedure TConnectTo1Cv7.mSetVisible1Cv7(Value : boolean);
//Установить значение свойства fVisible1Cv7
begin
    if Value then begin
        ShowThisWindow_1Cv7;
    end
    else begin
        HideThisWindow_1Cv7;
    end;
end;

Исходный текст метода ShowThisWindow_1Cv7 :

function TConnectTo1Cv7.ShowThisWindow_1Cv7 : boolean; begin Result:=FALSE; fVisible1Cv7_Caption := Trim(fVisible1Cv7_Caption); if length(fVisible1Cv7_Caption)<=0 then fVisible1Cv7_Caption:='1С:Предприятие'; if fActive then begin fVisible1Cv7:=FALSE; //Найдем окно запущенного приложения 1С и получим //дескриптор главного окна приложения 1С fhWnd1Cv7:=sp_GetHandleThisWindow(fVisible1Cv7_Caption,1,TRUE,TRUE); if fhWnd1Cv7>32 then begin ShowWindow(fhWnd1Cv7,SW_SHOW); fVisible1Cv7:=TRUE; Result:=TRUE; end else begin fhWnd1Cv7:=0; ShowMessage('Главное окно приложения 1С не найдено !'); end; end; end;  

Исходный текст метода HideThisWindow_1Cv7 :

function TConnectTo1Cv7.HideThisWindow_1Cv7 : boolean; begin Result:=FALSE; fVisible1Cv7:=FALSE; if fhWnd1Cv7>32 then begin //Скрыть главное окно приложения 1С ShowWindow(fhWnd1Cv7,SW_HIDE); Result:=TRUE; end; end;

В модуле sp_Lib_Delphi определим новую функцию sp_GetHandleThisWindow 
(детальные разъяснения - см. глава 4 книги) :

function sp_GetHandleThisWindow(NameWin : string;Nr : byte;YesPartEQ,YesUpCase : Boolean) : hWND; //Найти Handle окна по имени заголовка окна (NameWin) //NameWin - имя заголовка ркна приложения // Nr : <=0 - вхождение, >0 - совпадение // YesPartEQ = TRUE - частичное совпадение // YesUpCase = TRUE - конвертация в заглавные буквы Const Sep = '_|=>'; Var N,i : integer; Sx : string; List99 : TStrings; begin Result:=0; List99:=TStringList.Create; TRY //прочитаем список окон активных приложений в памяти компьютера if sp_GetListOfWindowsNames(List99)>0 then begin //в списке найденных окон производим поиск окна, //заголовок которого содержит цепочку символов NameWin i:=sp_FindInTStrings(Nr,YesPartEQ,YesUpCase,NameWin,List99); if i>=0 then begin Sx:=List99[i]; N:=POS(Sep,Sx); if N>0 then begin //если окно найдено - выделим дескриптор окна System.Delete(Sx,1,N+Length(Sep)-1); Sx:=Trim(Sx); Result:=sp_StrToInt(Sx,0); end; end; end; FINALLY if List99<>NIL then begin List99.Clear; List99.Free; List99:=NIL; end; END; end;

Ниже представлен текст функции : sp_GetListOfWindowsNames

function sp_GetHandleThisWindow(NameWin : string;Nr : byte;YesPartEQ,YesUpCase : Boolean) : hWND; //Найти Handle окна по имени заголовка окна (NameWin) //NameWin - имя заголовка ркна приложения // Nr : <=0 - вхождение, >0 - совпадение // YesPartEQ = TRUE - частичное совпадение // YesUpCase = TRUE - конвертация в заглавные буквы Const Sep = '_|=>'; Var N,i : integer; Sx : string; List99 : TStrings; begin Result:=0; List99:=TStringList.Create; TRY //прочитаем список окон активных приложений в памяти компьютера if sp_GetListOfWindowsNames(List99)>0 then begin //в списке найденных окон производим поиск окна, //заголовок которого содержит цепочку символов NameWin i:=sp_FindInTStrings(Nr,YesPartEQ,YesUpCase,NameWin,List99); if i>=0 then begin Sx:=List99[i]; N:=POS(Sep,Sx); if N>0 then begin //если окно найдено - выделим дескриптор окна System.Delete(Sx,1,N+Length(Sep)-1); Sx:=Trim(Sx); Result:=sp_StrToInt(Sx,0); end; end; end; FINALLY if List99<>NIL then begin List99.Clear; List99.Free; List99:=NIL; end; END; end;

Более подробно об этих функции (а также о вспомогательных функциях) можно прочитать в книге на стр. 244-249 (глава-4).

Протестируем новую версию компонента.
 

Создадим новый Delphi-проект (рис.1).

Рис.1  Форма проекта и компонент TConnectTo1Cv7 на форме

Установим свойство Active нашего компонента в состояние TRUE.
На экране монитора появится диалоговое окно выбора информационной базы 1Cv7 (рис.2).

Рис.2  Диалоговое окно выбора информациионой базы 1Cv7

После того, как информационная база будет выбрана и будет нажата кнопка OK - программа 1Cv7 будет запущена в режиме сервера OLE Automation (но окно программы будет скрыто). 

Теперь установим свойство Visible1Cv7 нашего комонента в состояние TRUE.
На экране монитора появится окно программы 1Cv7 (рис.3) :

Рис.3  Окно программы 1Cv7

Если установить свойство Visible1Cv7 нашего комонента в состояние FALSE, то окно программы 1Cv7 исчезнет с экрана монитора.

Вот, собственно, и все. 

Следует отметить, что здесь приведена лишь "практика".
"Подробности" - см. соотв.главу книги.

Исходные тексты новой версии компонента можно скачать здесь (29 кб).
Исходные тексты "тестировщика" компонента можно скачать здесь (4 кб)

Продолжение - создание аналогичного Delphi-компонента для системы  1Cv8.