Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 670

•  TDictionary Custom Sort  5 800

•  Fast Watermark Sources  5 603

•  3D Designer  8 218

•  Sik Screen Capture  5 913

•  Patch Maker  6 388

•  Айболит (remote control)  6 378

•  ListBox Drag & Drop  5 237

•  Доска для игры Реверси  94 551

•  Графические эффекты  6 570

•  Рисование по маске  5 644

•  Перетаскивание изображений  4 760

•  Canvas Drawing  5 135

•  Рисование Луны  4 863

•  Поворот изображения  4 411

•  Рисование стержней  3 116

•  Paint on Shape  2 360

•  Генератор кроссвордов  3 228

•  Головоломка Paletto  2 551

•  Теорема Монжа об окружностях  3 328

•  Пазл Numbrix  2 200

•  Заборы и коммивояжеры  2 849

•  Игра HIP  1 820

•  Игра Go (Го)  1 740

•  Симулятор лифта  2 072

•  Программа укладки плитки  1 798

•  Генератор лабиринта  2 240

•  Проверка числового ввода  1 925

•  HEX View  2 226

•  Физический маятник  1 911

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

Синий экран при исключениях FPU в Win9X



Автор: Alexander Petruhiv

Условия возникновения бага - системная плата с VIA694/694T/KT133/KT133A, ОС Win95/98/Me. Под Win XP баг не проявляется.

Следующий код вызывает "синий экран" с исключением 0E. На нормально работающей машине просто напечатается 64К раз строка Trapped.

program extest;
{$APPTYPE CONSOLE}
uses SysUtils;
{$O-}
var
  i: integer;
  a, Res: Double;
begin
  a := 0;
  for i := 0 to 65535 do
  try
    Res := i / a;
  except
    writeln('Trapped');
  end;
end.

ТИПОВЫЕ РЕШЕНИЯ.
  1. Отключить сопроцессор. Панель управления->Свойства системы->Устройства->Системные устройства->Сопроцессор->Свойства->Настройка. Установить переключатель в положение Не использовать. При этом возможна некорректная работа других программ и устройств, например, принтеры HP Deskjet могут перестать печать в цвете.
  2. Замена материнской платы.
  3. Отключение генерации прерываний от FPU и выдача исключения вручную.
    program extest;
    {$APPTYPE CONSOLE}
    uses SysUtils;
    {$O-}
    
    // Функция проверки на бесконечность и нечисловое значение -
    // неоптимизирована, только для примера
    
    function InfNan(Value: double): double;
    begin
      if (FloatToStr(Value) = 'INF') or (FloatToStr(Value) = 'NAN') then
        raise EmathError.Create('');
      Result := Value;
    end;
    
    var
      i: integer;
      a, Res: Double;
    begin
      a := 0;
      Set8087CW($133F); // запретить прерывания от сопроцессора
      for i := 0 to 65535 do
      try
        Res := InfNan(i / a);
      except
        writeln('Trapped');
      end;
    end.
КОММЕНТАРИЙ:

Предложенный тест проходит так, как описано, на материнской плате с чипсетом VIA KT266 (CPU Athlon 1000): под Win98SE система трапается с синим экраном и исключением 0E, а под Win2000 сбоев не наблюдается. Поступали сообщения об аналогичной проблеме в связке Win98+K7/K6/K5. Данный материал свидетельствует о том, что и с процессорами Intel такое бывает (чипсеты VIA694/694T используются в материнских платах для Celeron и P3, а KT133/KT133A - для K7 Athlon и Duron).

Очевидно, список чипсетов может быть еще расширен. Одно общее обстоятельство сохраняется - ОС серии Win9X. Поэтому этот "камень" отнесен к категории СИСТЕМА, хотя, на первый взгляд, он просится в HARDWARE.

Как минимум, еще одно радикальное решение можно предложить - использовать Windows линии NT.





Похожие по теме исходники

Хранитель экрана Папины Дочки

Передача удаленного экрана по сети (Remote Screen)

Примеры работы с БД

Примеры оформления DBGrid

 

Пример использования DBGrid

База предприятий и менеджеров 0.99

Консольное DOS приложение

Работа с принтером

 

Локализация приложений




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте