| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
А как бы мне с ресурсами подружиться ? [D5, NT4, WinXP]
Random bystander © (2002-06-13 12:40:00)День добрый, мастера.
А я с такой историей к вам:
Была у меня такая нужда - написать програмку, которая будет работать на сервере, смотреть файлы в спуле UUPC и физически удалять из них код вирусов. При том 95% этих вирусов - WIn32.HLLM.Klez.H 4, ну да это не суть.
В общем, написал програмку, висит она себе в трее, по обнаружении файла - флага проверки запускает DrWeb и по результатам проверки ищет в файлах пакетов тело вируса и потом его режет. Начисто.
Пишу на Delphi 5 под XP, на сервере - NT4.
И есть два вопроса:
1. А как бы надежно, но просто определить, что расшаренный файл уже кем-то/чем-то используется ?
2. Программа, даже провисая в трее без активности через некоторое время выдает сообщение Out of system resources. И от этого с печки падает вся система, что не есть приятно. Отчего бы это и как с этим бороться ?
Заранее благодарен.
oomneeq (2002-06-13 15:24:00) [1]>LogBox.Items.Add
Ведь кончится когда-нибудь? :-)
время от времени
LogBox.Items.Clear
не помешал бы...
Игорь Шевченко (2002-06-13 14:16:00) [2]Ресурсы gdi и user. Странно, что под NT возникает.
Exception logging надо включать, чтобы видеть, где и почему происходит этот Exception
Random bystander (2002-06-13 13:44:00) [3]
> Или посмотреть, что происходит в ProcessTheSpool
ProcessTheSpool, собсно и не вызывается, пока файл-флаг не создан (тот, что ProcessFlag).
Проблема в том, что и без этого все рушится :(
//Кривизна странная...
А что вообще может вызывать OSR, если памяти и свопа - хоть dev null-ом ешь ?
Игорь Шевченко (2002-06-13 13:26:00) [4]Hint, может, не менять по таймеру ?
Или посмотреть, что происходит в ProcessTheSpool
Random bystander (2002-06-13 12:59:00) [5]
> Ответ на второй вопрос без кода никто не даст:-)
В общем-то, во время нахождения программы в невозбужденном состоянии активна только одна процедура :)
procedure TConForm.Timer1Timer(Sender: TObject);
begin
if (FileExists (ProcessFlag)) and not (EnTrain) then begin
if not(DeleteFile (ProcessFlag)) then LogBox.Items.Add ("Ошибка удаления пускового флага.");
if (FileExists (ProcessFlag)) and EnTrain then begin
LogBox.Items.Add ("Ошибка - уже в процессе зачистки");
Exit;
end;
ProcessTheSpool;
end;
TrayIcon.Hint := "Монитор почтового спула. Живет уже " + TimeToStr (Now-EyeStarted) + #13 + "И при том переработал " + IntToStr (BadTrips) + " писем/пакетов.";
end;
Игорь Шевченко (2002-06-13 12:44:00) [6]Ответ на первый вопрос: открывать файл для монопольного использования. Не откроется - значит, испольуется.
Ответ на второй вопрос без кода никто не даст:-)
| |
