Проблемы и предложения


[ Пpишедшие ответы ] /www.hdru.com/wwwboard/faq.htm">Help ]

Posted by E.А.Паламарчук on October 29, 1998 at 06:30:03:

1. Наблюдается такой процесс : после запуска сервера при попытке удалить ряд операций просходит его резкое торможение, наблюдаемое на мнемосхеме как "Восстановление состояния перед текущим днем" и т.д. Есть смысл выполнять эти операции в момент подготовки сервера к работе.
2. Сильно "мусорят" журнал операций в однопользовательском режиме NULL-операции. Почему-бы их не чистить при завершении работы сервера "под занавес"? Как промежуточный выход предлагаю простой денулятор, который можно встроить в bat-файл.
uses dos, crt;
const RecordSize = $17c;
NullDispl = $45;
Dur = '(c) Pallar Ltd. +380 (432) 523-041';
Dur1 = 'FBP Null Operations Remover ';
var DFile, TFile : file;
BlArr : array[0..RecordSize] of byte;
st, st1 : string;
i : byte;
FName : string;
DirInfo : SearchRec;
BackFName : string;
Done : boolean;
cnt : longint;
begin

Writeln; Write(Dur1); Writeln(Dur);
st1 := ParamStr(1); if st1[Length(st1)] <> '\' then st1 := st1 + '\';
Done := false; cnt := 0;
BackFName := st1 + 'tmp.out';
FindFirst(st1+'*.f3p', Archive, DirInfo);
while DosError = 0 do begin
Done := true;
FName := st1 + DirInfo.Name;
assign(DFile,FName); Reset(DFile,1);
if FileSize(DFile) >= RecordSize then begin
assign(TFile,BackFName); Rewrite(TFile,1);
Repeat
BlockRead(DFile,BlArr,RecordSize);
st := ''; for i :%


Пpишедшие ответы: