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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

23
procedure btDeleteClick(Sender: TObject);
procedure btWriteClick(Sender: TObject);
procedure btReadClick(Sender: TObject);
procedure btCalculateClick(Sender: TObject);
procedure btLoadClick(Sender: TObject);
private
{ Private declarations }
v: ICalcSrv;
public
{ Public declarations }
end;
var
frmClient: TFrmClient;
implementation
{$R *.DFM}
procedure TFrmClient.btLoadClick(Sender: TObject);
begin
// доступ через таблицу виртуальных методов
v:=CreateComObject(Class_CalcSrv) as ICalcSrv;
end;
procedure TFrmClient.btDeleteClick(Sender: TObject);
begin
v:=Nil;
end;
procedure TFrmClient.btWriteClick(Sender: TObject);
begin
v.value:=WideString(Edit1.text);
end;
procedure TFrmClient.btReadClick(Sender: TObject);
begin
Edit1.text:=String(v.value);
end;
procedure TFrmClient.btCalculateClick(Sender: TObject);
begin
Edit1.text:=string(v.GetSquare);
end;
end.
Упражнения
1. Создайте еще один интерфейс ITrig с методами , вычисляющими тригоно -
метрические функции. Аргументы функций передавайте через параметры ме-
тодов . 
                                          23
     procedure btDeleteClick(Sender: TObject);
     procedure btWriteClick(Sender: TObject);
     procedure btReadClick(Sender: TObject);
     procedure btCalculateClick(Sender: TObject);
     procedure btLoadClick(Sender: TObject);
   private
     { Private declarations }
     v: ICalcSrv;
   public
     { Public declarations }
   end;

var
  frmClient: TFrmClient;
implementation
{$R *.DFM}

procedure TFrmClient.btLoadClick(Sender: TObject);
begin
  // доступ через таблицу виртуальных методов
  v:=CreateComObject(Class_CalcSrv) as ICalcSrv;
end;
procedure TFrmClient.btDeleteClick(Sender: TObject);
begin
  v:=Nil;
end;
procedure TFrmClient.btWriteClick(Sender: TObject);
begin
  v.value:=WideString(Edit1.text);
end;
procedure TFrmClient.btReadClick(Sender: TObject);
begin
  Edit1.text:=String(v.value);
end;
procedure TFrmClient.btCalculateClick(Sender: TObject);
begin
  Edit1.text:=string(v.GetSquare);
end;
end.

У праж не ни я
1. Соз д ай те ещ е од и н и нтерфей с ITrig с метод ами , в ы чи сляю щ и ми три гоно-
метри чески е функци и . А ргументы функци й перед ав ай те через параметры ме-
тод ов .

Страницы