|
|
|
новичок
участник
Last Login: 19.09.2001 20:04
Сообщ.: 1,
Visits: 12
|
|
| Знает ли кто нибудь как выполнить задержки типа Delay порядка десятка микросекунд, мне надо считывать показания порта и обрабатывать их в режиме реального времени через определенные промежутки времени, и потом таким же образом записывать
|
|
|
|
|
Junior Member
участник
Last Login: 28.06.2002 10:00
Сообщ.: 19,
Visits: 210
|
|
Во первых тебе нужно чтоб твой процесс имел приоритет Realtime (устанавливается setprioretyclass ), в WinAPI есть процедура Sleep
определяется как ....
procedure Sleep(dwMilliseconde : DWORD) ; stdcall;
procedure TForm1.Button1Click(Sender: TObject);
begin
if SetPriorityClass(getcurrentprocess,REALTIME_PRIORITY_CLASS) then
begin
memo1.Lines.Add('RealTime Priorety is set');
sleep(1000);
memo1.Lines.Add('after 1 second this line was added');
sleep(100);
memo1.Lines.Add('after 0,1 second this line was added');
sleep(10);
memo1.Lines.Add('after 0,01 second this line was added');
sleep(1);
memo1.Lines.Add('after 0,001 second this line was added');
setpriorityclass(getcurrentprocess,NORMAL_PRIORITY_CLASS);
memo1.Lines.Add('Normal Priorety is set');
end
else memo1.Lines.Add('Can`t set REALTIME priorety')
end;
Best Regards
JosH_BMS
|
|
|
|