Форум: "Основная";
Текущий архив: 2005.03.20;
Скачать: [xml.tar.bz2];
ВнизService Application в Delphi 7.0 Найти похожие ветки
← →
Creator___ (2005-03-05 11:29) [0]Господа, такой вопрос. Пишу сервис в Delphi. При заргузке сервиса все в порядке. При остановке (при нажатии "Остановить" в консоле Windows) с первого раза Windows пишет, что невозможно остановить сервис, и что он не возвращал код ошибки. При повторном нажатии останавливает сразу, но Windows не видит этого и пытается еще какое-то время. То есть приходится нажимать на "остановить сервис" 2а раза подряд. Может кто сталкивался с подобным траблом и знает, как это решается. ЗЫ с другими сервисами все в порядке.
← →
VMcL © (2005-03-05 11:35) [1]Телепаты в отпуске, так что код в студию.
← →
Creator___ (2005-03-05 11:45) [2]procedure TDExServ.ServiceStart(Sender: TService; var Started: Boolean);
begin
Started := true;
loadopt;
fblock := false;
assignfile(fl,getwinpath+"\system32\dex.log");
logbuf := TStringList.Create;
lbIPs := TStringList.Create;
CoInitialize(nil);
ADOConnection1.ConnectionString := GetSQLConStr;
ADOConnection1.Connected := true;
CoUnInitialize;
PopulateIPAddresses;
StartServer;
reportstatus;
end;
procedure TDExServ.ServiceExecute(Sender: TService);
begin
Dexserv.Status := csRunning;
dexserv.ReportStatus;
while not terminated do
begin
sleep(30000);
end;
Dexserv.Status := csStopped;
dexserv.ReportStatus;
end;
← →
Digitman © (2005-03-05 13:03) [3]
> while not terminated do
> begin
> sleep(30000);
> end;
а КТО за тебя будет обрабатывать команды и сообщения сервису ?
метод ProcessRequests - он для Пушкина ?
← →
Набережных С. © (2005-03-05 16:35) [4]А мне вот это понравилось
> CoInitialize(nil);
> ADOConnection1.ConnectionString := GetSQLConStr;
> ADOConnection1.Connected := true;
> CoUnInitialize;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.03.20;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.041 c