Este necesar să împachetați mai multe fișiere într-una și apoi, dacă este necesar, să despachetați (arhivați baza de date). Vreau să folosesc biblioteca Delphi 7 Zlib, pur și simplu nu știu cum :(
Să spunem mulțumesc Google google, ce trebuie să fii surprins că titlul subiectului este exact același cu cel al interogării și, prin urmare, cel mai relevant.
> Wuhar Exact. ) Munca grea a reușit să împacheteze un fișier, dar câteva din ele nu au funcționat. (
> nu este obținută în nici un fel mai multe în una
> Serghei M. iau numele din OpenDialog1.FileName, și o mulțime de fișiere nu pot fi selectate atunci când selectați :(
var
sursa, dest: TFileStream;
CompresSstream: TCompressionStream; # xA0;
bytesread, buffer_size: integer;
mainbuffer: matrice [0..1023] de char;
curdir: șir;
începe
sursa: = TFileStream.Create (OpenDialog1.FileName, fmOpenRead);
dest: = TFileStream.Create ("archive.zip", fmCreate);
CompresSstream: = TCompressionStream.Create (clMax, dest);
# xA0; încercați # xA0; # xA0; # xA0; # xA0; # xA0;
# xA0; repeta
# xA0; # xA0; bytesread: = sursă.Rețineți (mainbuffer, buffer_size);
# xA0; # xA0; CompresSstream.Write (mainbuffer, bytesread); # xA0;
# xA0; # xA0; până la bytesread<1024;
# xA0; cu excepția # xA0;
# xA0; CompresSstream.free;
# xA0; source.Free;
# xA0; dest.Free;
# xA0; ieșire;
# xA0; sfârșitul;
CompresSstream.free;
source.Free;
dest.Free;
Stream este un flux, o matrice Baitik proastă, o bucată de memorie. Pentru a împacheta mai multe fișiere, trebuie să compuneți singură structura fișierului, în care să scrieți unde este fișierul în flux, cât de mult ocupă (data schimbării, proprietarul etc.). Pentru a gândi mai mult sau pentru a înțelege cu gata (tar / zip).
S-ar putea să credeți că cineva care suferă de execuție vă face să folosiți un control care nu permite mai multe opțiuni
> Nikita7 # xA0; (19.11.09 14:55) [7]
> nu se poate selecta când selectați
ofAllowMultiSelect
Mulțumesc, voi încerca săAllowMultiSelect. Ezhli nu prokatit Voi încerca să fac structura fișierului (antonn)
Articole similare
Trimiteți-le prietenilor: