Hogyan kell használni a zlib programjában
Meg kell csomagolni több fájlt egy, majd csomagolja ki (biztonsági adatbázis), ha szükséges. Szeretnék használni Delphi 7 Zlib könyvtár, de nem tudom, hogyan :(
Nos, mondjuk hála Hustler Google, ami meglepő, hogy a neve a téma egy pólót egyezik a kérelmet, tehát a legfontosabb.
> Uhar Pontosan. ) Kemény munka sikerült csomag egyetlen fájlt, de valaki nem működik. (
> Néhány egyik nem működik
> Sergei M. Név kivették OpenDialog1.FileName, és egy csomó fájlt nem lehet kiválasztani, ha kiválasztja :(
var
forrás, cél: TFileStream;
CompresSstream: TCompressionStream; # XA0;
BytesRead formát, buffer_size: integer;
mainbuffer: array [0..1023] char;
CurDir: String;
kezdődik
forrás: = TFileStream.Create (OpenDialog1.FileName, fmOpenRead);
dest: = TFileStream.Create ( "archive.zip", fmCreate);
CompresSstream: = TCompressionStream.Create (clMax, dest);
# XA0, próbálja # XA0; # XA0; # XA0; # XA0; # XA0;
# XA0; ismétlés
# XA0; # XA0; BytesRead formát: = source.Read (mainbuffer, buffer_size);
# XA0; # XA0; CompresSstream.Write (mainbuffer, BytesRead formát); # XA0;
# XA0; # XA0; amíg BytesRead formát<1024;
# XA0, kivéve # XA0;
# XA0; CompresSstream.free;
# XA0; source.Free;
# XA0; dest.Free;
# XA0; exit;
# XA0; end;
CompresSstream.free;
source.Free;
dest.Free;
Stream - ezt az áramot, értetlenül tömb Baitik, egy darab memóriát. Amelyben írni egy patak, ahol a fájl található, mert úgy (a dátum változik, a tulajdonos, stb), hogy a csomag több fájlt létrehozásához szükséges a fájl szerkezetét. Feltalálni magát vagy foglalkozik kész (kátrány / zip).
Azt gondolhatnánk, hogy valaki arra kényszerítve, hogy egy szabályozás, amely nem teszi lehetővé a többszörös választás terhe végrehajtás
> Nikita7 # XA0; (19.11.09 14:55) [7]
> Nem választható, ha kiválasztja
ofAllowMultiSelect
Kösz, megpróbálom ofAllowMultiSelect. Ezhli nem egy kört próbálja meg létrehozni a fájl szerkezetét (antonn)