Отправлено John 16 мая 2002 г. 13:08 В ответ на: Вот я и говорю - реально по вопросу ничего у вас нет. отправлено L.A. 16 мая 2002 г. 12:30

var
PriorityClass, Priority: Integer;
DelayCount : dword;

{---------------------------------}
{ Калибровка скорости работы компьютера }
procedure CalibrDelay;
var
PriorityClass, Priority : integer;
i, L, RN, RK : dword;
begin
PriorityClass := GetPriorityClass ( GetCurrentProcess );
Priority := GetThreadPriority ( GetCurrentThread );
{ Определение количества циклов задержки на мкс }
SetPriorityClass ( GetCurrentProcess, REALTIME_PRIORITY_CLASS );
SetThreadPriority ( GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL );
L := 1000;
Repeat
L := L * 10;
RN := GetTickCount;
For i := 1 to L do;
RK := GetTickCount;
until ( RK - RN ) > 100;
DelayCount := Round ( L / 1000 / ( RK - RN ) );
If DelayCount = 0
then DelayCount := 1;
SetThreadPriority ( GetCurrentThread, Priority );
SetPriorityClass ( GetCurrentProcess, PriorityClass );
end; { CalibrDelay }

{---------------------------------}
{ Задержка на мкс }
procedure DelayUS ( US : dword );
var
i, L : dword;
begin
L := US * DelayCount;
For i := 1 to L do;
end; { TMainForm.DelayUS }

{---------------------------------}
// Сделать приложение "единственным"
procedure SetRealTimePriority;
begin
PriorityClass := GetPriorityClass ( GetCurrentProcess );
Priority := GetThreadPriority ( GetCurrentThread );
SetPriorityClass ( GetCurrentProcess, REALTIME_PRIORITY_CLASS );
SetThreadPriority ( GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL );
end; // SetRealTimePriority

{---------------------------------}
// Восстановить нормальный приоритет
procedure ClrRealTimePriority;
begin
SetThreadPriority ( GetCurrentThread, Priority );
SetPriorityClass ( GetCurrentProcess, PriorityClass );
end; // ClrRealTimePriority

Процедурки задержек должны быть взяты с скобки
SetRealTimePriority;
ClrRealTimePriority;
Большой точности не обещается, но подстройка под конкретную машину наличествует.

• Калибровася не надо. Есть аппаратный ресурс "high-resolution performance counter". Но все равно ничего не выйдет (+) — OverMem   (16.05.2002 13:38, 525 байт)
  • Фигню городишь, брателло. — Ilhom   (17.05.2002 20:29, пустое)
    • Какие тактировани порта, кто это сказал? Обычное ISA устройство. А чтобы "принтеры поспевали" есть бит ACK в порту. — Ilhom   (17.05.2002 20:33, пустое)
      • А Вы попробуйте: — Vallav   (18.05.2002 15:16, 201 байт)
        • Ну а как тогда работает Unilogic??????? — Ilhom   (19.05.2002 10:51, 18 байт)
          • Unilogic? это что? — Vallav   (19.05.2002 17:03, 88 байт)
            • Ой, не спрашивайте....Unilogic - это такой логический анализатор через LPT порт, до мегабита тянет. — Ilhom   (19.05.2002 22:17, 93 байт)
              • Ответ: — Vallav   (20.05.2002 09:25, 138 байт)
• Ответ: См. сюда — CDAlex   (16.05.2002 13:25, 409 байт)
  • Ответ: И вообще не грузите PC всякой фигней -- сваяйте девайс на MCU... :) — CDAlex   (16.05.2002 13:48, пустое)
    • ну вот и вернулись к теме конференции ;-))))) — net   (16.05.2002 14:20, пустое)