Entering a directory with 100'000 files in filedialog, time until display
completed:
mc: 2 sec
MSEgui filedialog: 4 sec
QT3 filedialog: 10 sec
Konqueror: 1 min 10 sec
GTK2 filedialog: 13 min 30 sec
Nautilus: >30 min, test canceled
Обсуждение развития MSEide + MSEgui
Модератор: Модераторы
-
debi12345
- долгожитель
- Сообщения: 5761
- Зарегистрирован: 10.05.2006 23:41:15
- Откуда: Ташкент (Узбекистан)
Резервное копирование файлов БД (SQLite3) в GZIP-формат, если кому интересно:
Работает, чуток усложнено (для надежности).
ПС:
Attid - завидую Вам как жителю теплого вечно-зеленого Сочи. А у нас сейчас дубак под 20 мороза ! "Юг" называется...
Код: Выделить всё
uses
...
,msestream
,msesys
,classes // EFCreateError
,gzio
,msefileutils
;
//---------------------------------
function gzipfile(infile,outfile: msestring): boolean;
var
fs_in: tmsefilestream;
f_out: gzFile;
of_tmp: msestring;
i1: integer;
begin
result:= false;
fs_in := nil;
f_out := nil;
try
// opening the input file
try
fs_in:= tmsefilestream.create(infile,fm_read);
except
on e:EFCreateError do { showmessage(e.message); } begin
showmessage('Не удалось архивировать БД-файл: ' + infile,'Ошибка резервного копирования',180);
exit;
end;
end;
// preparing the output file
of_tmp:= outfile + '.tmp';
f_out:= gzopen(of_tmp,'w9');
if f_out = nil then begin
showmessage('Не удалось создать промежуточный архивный файл: ' + of_tmp,'Ошибка резервного копирования',180);
exit;
end;
// commpressing & writting to the oputput file
i1:= gzwrite(f_out,pointer(fs_in.readdatastring),fs_in.size);
if i1 = 0 then begin
showmessage('Сбой при сжатии промежуточного архивного файла: ' + of_tmp,'Ошибка резервного копирования',180);
exit;
end else begin
gzclose(f_out); // чтобы сработал RENAMEFILE
f_out := nil; // чтобы сработал IF в FINALLY
renamefile(of_tmp,outfile); // временный => постоянный
end;
result:= true;
finally
if fs_in <> nil then fs_in.close;
if f_out <> nil then gzclose(f_out);
if findfile(of_tmp) then deletefile(of_tmp); // случайный мусор на диске
end;
end;
//---------------------------------
function dbbackup(outdir: msestring): boolean;
begin
result:=
gzipfile('db/data/refs.db',outdir + '/refs.db.gz')
and
gzipfile('db/data/data_ss.db',outdir + '/data_ss.db.gz')
and
gzipfile('db/data/data_retail.db',outdir + '/data_retail.db.gz');
end;
Работает, чуток усложнено (для надежности).
ПС:
Attid - завидую Вам как жителю теплого вечно-зеленого Сочи. А у нас сейчас дубак под 20 мороза ! "Юг" называется...
-
debi12345
- долгожитель
- Сообщения: 5761
- Зарегистрирован: 10.05.2006 23:41:15
- Откуда: Ташкент (Узбекистан)
А где код ? В SVN MSE и MSEdocumenting его нет. Нам что, просто
показали картинку ?
===============
Куда торопимся ? Дайте выйти пузырям из шампанского !
ПС:
Задача нетривиальная - был (и будет нужен ) нужен ручной патчинг FPC. Поэтому Мартин попросил героя, сумевшего эту тему добить - отписаться на "Вике".
показали картинку ?
===============
Куда торопимся ? Дайте выйти пузырям из шампанского !
ПС:
Задача нетривиальная - был (и будет нужен ) нужен ручной патчинг FPC. Поэтому Мартин попросил героя, сумевшего эту тему добить - отписаться на "Вике".