TService и формы

← →
ewgeny (2003-10-29 12:26) [0]

Написано приложение, которое отображает некие данные в TreeList. Хочется сделать его сервисом, чтобы само стартовало, а после того, как залогинились в трэе был значок, чтобы вытащить форму

Как скрестить TService и формы ? Может пример есть ?

Спасибо.

← →
Digitman (2003-10-29 12:32) [1]

> Как скрестить TService и формы ?

и скрещивать ничего не надо

поскольку объект-наследник класса TService создается и уничтожается объектом TServiceApplication в осн.код.потоке процесса сервис-приложения, то совершенно безопасен и прост до безобразия и надежен, например, следующий код :

procedure TMySvc.ServiceCreate(Sender: TObject);
begin
frmMyForm := TfrmMyForm.Create(nil);
end;

procedure TMySvc.ServiceDestroy(Sender: TObject);
begin
frmMyForm.Free;
end;

← →
ewgeny (2003-10-29 12:40) [2]

не понял, надо просто объявить

type
MyServ = class(TService)
...
end;

или создать новый тип приложения File/New/Service ?

← →
Digitman (2003-10-29 12:58) [3]

> не понял, надо просто объявить

класс TMyServ у тебя автоматически будет объявлен при выборе File/New/Service и соответствующем автосоздании модуля, где будет размещаться код данного объекта-сервиса

> или создать новый тип приложения File/New/Service ?

не путай File/New/ServiceApplication и File/New/Service

первое создает dpr-файл (проект сервис-приложения), в котором объявляется и инициализируется объъект TServiceApplication, единый (!) на весь проект будущего приложения... автоматически в проект добавляется один модуль, в котором будет код конкретного сервиса (класс-наследник TService), т.е. автоматически скрыто вызывается и меню File/New/Service

созданное таким образом приложение-сервис может иметь и более одного класса-наследника TService, модули с объявлением которых можно добавлять в проект при необходимости явным вызовом File/New/Service

аналогия с обычным притложением - создаем File/New/Application, по-умолчанию создается один модуль с описанием гл.формы приложения, которая сама по себе (без объекта TApplication) существовать не может

TService и формы Найти похожие ветки