Pbralem komponent zlib.zip ze strony.
Pisze w kodzie cos takiego:
ZLBArchive1.CreateArchive('Kontakty.zip' );
ZLBArchive1.AddFile('Kontakty.csv');
Plik Kontakty.zip jest ale przy probie otwarcia Windows komanderem. pisze ze plik jest uszkodzony, co trzeba jeszcze dodac w kodzie, albo co zmienic w ustawieniach komponentu
{glowa} --
JS, VBS, CSS, HTML, (PHP)
Co trzeba jeszcze dodac w kodzie, albo co zmienic w ustawieniach komponentu,
zebym mogl otworzyc zipa. Jak na razie pisz ze archiwum jest uszkodzone.--
W opisie Zlib'a jest opisana metoda rozpakowywania - WinZipem chyba nie da rady.
Ja proponuję "Aravil CAB Components 1.08"
odczyta "WinRar'em i WinZip'em" ;-P
procedure TForm1.Button1Click(Sender: TObject);
var
plik: TSTCabWriter;
begin
plik := TSTCabWriter.Create(nil);
try
plik.CompressionType := cctMsZip; *metoda kompresji
plik.Open('C:\test.cab'); tworzenie archiwum
plik.AddFile('C:\plik.txt', 'plik.txt'); dodanie pliku
plik.AddFiles('C:\Katalog\', 'Katalog', [cafsoRecurseSubdirs]); dodaje podfoldery
plik.Close; * zamykamy
finally
plik.Free; *zwalniamy
end;
end;