Основы COM. Рудалев В.Г - 35 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

35
В новом проекте выберите пункт меню Project – Import Type Library. В диалого-
вом окне выберите Evp Library Version 1.0 и нажмите Install. На стра -
нице палитры ActiveX появится компонент Evp с автоматически сгенерирован-
ными интерфейсами событий. Расположите его на форме (значок в правой час-
ти ). Также расположите две кнопки и строку редактирования.
Компонент Evp имеет два опубликованных события OnClear и OnTex-
tChanged, создайте для них обработчики .
procedure TForm1.Evt1Clear(Sender: TObject);
begin
// Реакция на событие
ShowMessage('Текст очищен!');
end;
procedure TForm1.Evt1TextChanged(Sender: TObject; var s:
OleVariant);
begin
// Реакция на событие
ShowMessage('Текст добавлен!')
end;
Обработчики для посылки данных серверу :
procedure TForm1.bSendClick(Sender: TObject);
begin
// Передача текста серверу
Evt1.AddText(Edit1.text);
end;
procedure TForm1.bClearClick(Sender: TObject);
begin
Evt1.Clear;
end;
Пример работы программы изображен на рисунке. 
                                       35
В нов ом проектев ы бери тепунктменю Project –Import Type Library. В д и алого-
в ом окнев ы бери теEvp Library Version 1.0 и наж ми теInstall. Н а стра-
ни цепали тры ActiveX появ и тсякомпонентEvp сав томати чески сгенери ров ан-
ны ми и нтерфей сами собы ти й . Располож и теего на форме(з начокв прав ой час-
ти ). Т акж ерасполож и тед в екнопки и строку ред акти ров ани я.




К омпонент Evp и меетд в а опубли ков анны х собы ти я OnClear и OnTex-
tChanged, соз д ай тед ляни х обработчи ки .

procedure TForm1.Evt1Clear(Sender: TObject);
begin
  // Реакция на событие
  ShowMessage('Текст очищен!');
end;

procedure TForm1.Evt1TextChanged(Sender: TObject; var s:
OleVariant);
begin
  // Реакция на событие
  ShowMessage('Текст добавлен!')
end;

О бработчи ки д ляпосы лки д анны х серверу:
procedure TForm1.bSendClick(Sender: TObject);
begin
   // Передача текста серверу
   Evt1.AddText(Edit1.text);
end;

procedure TForm1.bClearClick(Sender: TObject);
begin
  Evt1.Clear;
end;

При мерработы программы и з ображ ен на ри сунке.

Страницы