Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.28;
Скачать: CL | DM;

Вниз

сервис   Найти похожие ветки 

 
kawner   (2003-05-23 17:28) [0]

Пишем сервис в delphi. Если написать такой код, то получаем 100% загрузку процессора(в диспечере задач сам то я не чувствую). Как решить проблему? Если не делать цикл, то сервис закрывается с сообщением что ему мол нечего делать...

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
Service1.Controller(CtrlCode);
end;
function TService1.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;

procedure TService1.ServiceExecute(Sender: TService);
var ini:TIniFile;
begin
ini:=TIniFile.Create("ini.ini");
sSocket.Port:=ini.ReadInteger("Port","p",40000);
ini.Free;
sSocket.Active:=true;
//-----------код виновный в загрузке процессора------
while not Terminated do begin
ServiceThread.ProcessRequests(False);
end;
//---------------------------------------------------
end;

procedure TService1.sSocketClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
if Check then Socket.SendText("yes")
else Socket.SendText("no")
end;


 
clickmaker ©   (2003-05-23 18:56) [1]

ProcessRequests( true)
false заставляет его крутится постоянно, без ожидания сообщения



Страницы: 1 вся ветка

Текущий архив: 2003.07.28;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.015 c
3-91617
Zaraza
2003-07-03 15:02
2003.07.28
ADO подключение к базам в разных директориях


6-91796
Vlad Oshin
2003-05-22 15:03
2003.07.28
Опять сокеты. Не доходит до сервера(и меня:) от клиента


1-91705
Calm
2003-07-14 17:24
2003.07.28
Как показывать флэш-анимацию на форме?


4-91945
Spider
2003-05-24 16:52
2003.07.28
Как придать объекту свойства саption panel?


3-91672
АТ
2003-06-28 02:10
2003.07.28
Несовместимость типов Float в InterBase и типа Real в Delphi