Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > Операционные системы > Windows
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.10.2021, 01:51   #1
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,473
По умолчанию Внезапный тормоз

Пару дней назад возникла такая фигня - стала тормозить запись файла ( AssignFile .., Rewrite.. , Write .. ). В Дельфы.
Обычно 100000 записей пишет ( и читает ) сотые доли секунды. А тут - запись аж порядка 20 сек, а чтение как обычно, доли сек.
Перезагрузил, все стало ОК.
Следующий раз посмотрел в диспетчер задач - как обычно куча процессов, несколько opera.exe жрут как обычно и память и время. Но вроде, как и всегда.
ОС - Виндовс-7, антивир - АВАСТ. Правда, полную проверку на вирусы давно не делал.
Из приложений запущено бывает только браузер, Дельфы и Excel. В игры не играю, с инета ничего кроме текстов и фоток давно не скачивал.
type_Oleg вне форума Ответить с цитированием
Старый 12.10.2021, 02:09   #2
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 6,256
По умолчанию

Может быть, виноват антивирус (см. "Закрытие дескрипторов файлов в Windows" из https://habr.com/ru/post/571500/).
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Старый 12.10.2021, 02:55   #3
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,473
По умолчанию

Цитата:
Сообщение от BDA Посмотреть сообщение
Может быть, виноват антивирус (см. "Закрытие дескрипторов файлов в Windows"
Не знаю, вроде не то.. Сейчас снова началось..
Вот , фрагмент
Код:
m:=100000;
 t0:=Now;
 AssignFile(fInt,DIR0+'testD.dou');
 Rewrite(fInt);
 Memo1.Lines.Add('до Write '+DateTimeToStr(Now));
 for i:=1 to m do
  begin
   x:=1/(i+1);
   Write(fInt,x);
  end;
 Memo1.Lines.Add('до CloseFile '+DateTimeToStr(Now));
 CloseFile(fInt);
 Memo1.Lines.Add('после CloseFile '+DateTimeToStr(Now));
и результат -
до Write 12.10.2021 2:50:18.464
до CloseFile 12.10.2021 2:50:37.94
после CloseFile 12.10.2021 2:50:37.94
type_Oleg вне форума Ответить с цитированием
Старый 12.10.2021, 03:38   #4
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,473
По умолчанию

А вот - когда ОК. После перезагрузки
до Write 12.10.2021 3:36:04.175
до CloseFile 12.10.2021 3:36:04.363
после CloseFile 12.10.2021 3:36:04.363
type_Oleg вне форума Ответить с цитированием
Старый Сегодня, 02:49   #5
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 6,256
По умолчанию

Попробуйте в следующий раз, когда возникнет замедление, посмотреть не в диспетчере задач, а в мониторе ресурсов, есть ли высокая нагрузка на диск и кем создается.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Внезапный баннер Desc О форуме и сайтах клуба 10 15.02.2020 13:37
MS Server - внезапный взбрык автосчетчика Blondy SQL, базы данных 14 26.10.2011 01:35
Проблема с компом, внезапный переход в ждущий режим. VintProg Операционные системы общие вопросы 1 10.09.2010 11:00
[C# + WPF] Выделение области экрана. Способ жуткий тормоз. Casper-SC WPF, UWP, WinRT, XAML 4 28.08.2010 20:17
в чем тормоз? Bezdar Microsoft Office Excel 3 21.01.2009 10:24