Найдено 5 результатов

Перейти к расширенному поиску

uchar
02.03.2017 13:43:02
Форум: Free Pascal Compiler
Тема: Как проверить существование процесса Linux
Ответы: 15
Просмотры: 20892

Re: Как проверить существование процесса Linux

Приветствую.

Использую такой подход:

Код: Выделить всё

function IsProcessRunning(ProcessID: SizeUInt): Boolean;
const
  ESRCH = 3; // No such process
begin
  Result := not ((FpKill(ProcessId, 0) = -1) and (fpGetErrNo = ESRCH));
end;


Для понимания см.:
http://man7.org/linux/man-pages/man2/kill.2.html
uchar
13.11.2014 13:17:32
Форум: Lazarus
Тема: TDaemon и синхронизация
Ответы: 4
Просмотры: 3590

Re: TDaemon и синхронизация

В службах/демонах вместо TThread.Synchronize нужно использовать критические секции/мьютексы, например (таймер также
поправлен):


uses
SyncObjs;

var
Lock: TCriticalSection; // Глобальная переменная

procedure TServiceThread.Execute;
var
StartTime, Ticks: DWORD;
begin
AddLog ...
uchar
22.09.2013 13:50:10
Форум: Lazarus
Тема: HTMLPort и WIN32
Ответы: 5
Просмотры: 3919

Re: HTMLPort и WIN32

Я использую lazarus-svn и fpc 2.6.2 win32 и win64, win7x64 pro.
Пример с pihtml в обоих случаях работает одинаково - скролится нормально.

Возможно, стоит обновить среду?
uchar
20.09.2013 22:39:57
Форум: Lazarus
Тема: HTMLPort и WIN32
Ответы: 5
Просмотры: 3919

Re: HTMLPort и WIN32

Странно, у меня нормально скролится, как через скроллбар, так и при помощи колеса мыши. Или речь о чем-то другом?

Пересборка пакета помогла решить проблему?
uchar
16.09.2013 14:29:35
Форум: Lazarus
Тема: HTMLPort и WIN32
Ответы: 5
Просмотры: 3919

Re: HTMLPort и WIN32

Приветствую.

У меня подобные ошибки постоянно возникают при пересборке Лазаруса (использую svn).
Лечатся дополнительной принудительной компиляцией пакета (в принципе, в вики об этом сказано в
части Installation).

Выглядит примерно так:

- запускаю пересборку среды
- получаю ошибку
- чрез ...

Перейти к расширенному поиску