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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

21
begin
Result:=FloatToStr(f*f); // Получение квадрата
end;
procedure TCalcSrv.Set_value(const Value:
WideString);
begin
// Записываем значение
F:=StrToFloat(value);
// Отображаем на форме
MainForm.Label2.Caption:=string(value);
end;
initialization
TAutoObjectFactory.Create(ComServer, TCalcSrv,
Class_CalcSrv, ciMultiInstance, tmApartment);
end.
Откомпилируйте проект. При выполнении сервер автоматически зарегистриру -
ется в реестре . Просмотрите занесенную туда информацию с помощью редак-
тора реестра regedit.
Регистрация класса : 
                                         21
   begin
     Result:=FloatToStr(f*f); // Получение квадрата
   end;

   procedure TCalcSrv.Set_value(const Value:
                                        WideString);
   begin
     // Записываем значение
     F:=StrToFloat(value);
     // Отображаем на форме
     MainForm.Label2.Caption:=string(value);
   end;

   initialization
     TAutoObjectFactory.Create(ComServer, TCalcSrv,
      Class_CalcSrv, ciMultiInstance, tmApartment);
   end.
О ткомпи ли руй те проект. При в ы полнени и серв ерав томати чески з ареги стри ру-
ется в реестре. Просмотри те з анесенную туд а и нформаци ю с помощ ью ред ак-
тора реестра regedit.
Реги страци якласса:

Страницы