VPF::нужна помощь FreeePascal 2.2.0 + FreeBSD 6.3

vovksextra

Дата 13.4.2008, 03:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 29
Регистрация: 15.2.2008

Репутация: нет
Всего: нет

Вообщем проблема такая

Если в коде не использовать запуск нити (выполнение DoRun (в ней пока безконечный цикл)), то по нажанитю Ctrl+C
я корректно выхожу из цикла и вижу надпись 'Stop server'

Если создается нить - то при нажатии Ctrl+C просто останавливается выполнение приложения

Мне нужно правильно перехватить SIGINT

Код



procedure SignalsHandler(signal: longint);cdecl;
begin
  writeln;
  writeln('Server down. With SIG: ',IntToStr(signal));
  SIG := True;
end;

begin
  
  writeln('Start server');   
  
  fpSignal( SIGTERM, @SignalsHandler );
  fpSignal( SIGINT, @SignalsHandler );
  
  write('Start UPD agent');  
  
  {UA:=TUDPAgent.Create(5555);
  if UA.Start 
    then 
     writeln('-ok')
    else  
     writeln('-error');}
     
  while not SIG do
   begin
   end;
  
  //fpSigsuspend( SigSet );
  
  {UA.free;}
  writeln;
  writeln('Stop server');
end.

Вырезка
из модуля

Код


function TUDPAgent.Start:boolean;
Var
 Attr: TThreadAttr;
 res: integer;
begin
 
 result:=false;
 
 if isRunning then
  begin
   FStrError:='Error UDP agent. With error: agent alread running.';
   exit;
  end;

  isStoped:=false;

  {pthread_attr_init(@attr);
  pthread_attr_setdetachstate(@attr,1);}

  res:=pthread_create(@ThreadID,nil,@DoRun,nil);
  
  if res<>0 then
   begin
    FStrError:='Error UDP agent: Cannot start thread.';
   end;
  
  result := true;
  
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »