Delphi ile dosyaları sıkıştırmak

[fazil14]

Öncelikle iyi günler diliyorum...
soru tam olarak şöyle :
- Yapılan delphi programında seçilen herhangi dosyanın istenen yere sıkıştırlması uzantısı zip yada rar olmalı bunu nasıl başarabilirim..
-örneklendirirseniz sevinirim

[selam]

Bunu bir bileşen ile yapabilirsin.Linkini vereyim
http://sourceforge.net/projects/tpabbrevia/

[mussimsek]

Merhaba,

arkadaşın linkini verdiği Turbopower Abbrevia ile zip, Microsoft CAB, tar ve gzip formatlarını kullanabilirsiniz.

Kolay gelsin.

[fazil14]

teşekkür ediyorum Abzipper işimi gördü ama şimdi başka bir sorun var

Benim yapmaya çalıştığım şey Şu idi Bilgiyi sıkıştırıp internete upload etmek o da oldu

ama Şöyle bir şey var Bilgiyi sıkıştırdıktan sonra Abzipper Sanki hala çalışıyor gibi, yani Dosyayı zipledim(yazdığım programla) programı kapatmadan ziplediğim dosyayı kopyalayamıyorum yada silemiyorum
bende Abzipper hala o dosyayla ilişkili olarak düşünüyorum.

sorunu Şu Şekilde Çözdüm Abzipper1.free;

ama programdan çıkmadan yine başka dosyayı ziplemeye çalışırken acayip bir hata veriyor bunu Abzipper 'ı create ederek aşabilirim herhalde
nasıl yapacağımı bilmiyorum.

1- Nasıl create ederim.
2- Daha kestirme bir yol varsa onu deniyeyim....

kolay gelsin. [/url]

[mussimsek]

Bileşen ile gelen örnekleri incelersen orda gerekli kodlar var. Ben aynen alıp kullanmıştım ve söylediğiniz gibi bir problem yoktu. Demo'daki örneği alıp, kendinize göre düzenleyin.

Kolay gelsin.

[fazil14]

Gelen demoda da aynı sorun var en azından ben öyle gözlemledim.
ayrıca bir kere sıkıştırma işlemi yaptıktan sonra tekrar aynı dosya ismi
ile üzerine yazmıyor..

[mussimsek]

Merhaba,

store options kısmından soReplace'i True yaparsanız, aynı isimde dosya varsa üzerine yazar.

Benim kullandığım yöntem şöyle, önce ayarları göndereyim :

ItemProgressMeter = AbVCLMeterLink1
AutoSave = False
DOSMode = False
StoreOptions = [soStripDrive, soRemoveDots, soRecurse, soReplace]
Left = 88
Top = 64

daha sonra koddan :

Kod: Tümünü seç

Zipper.BaseDirectory := ExtractFilePath(Application.ExeName) + 'Data';
Zipper.FileName := 'c:\deneme.zip';
Zipper.AddFiles('*.*', 0);
Zipper.Save;
MessageDlg('Yedekleme başarıyla tamamlandı!', mtInformation, [mbOK], 0);

Kolay gelsin.

[DarkEternal]

Abzipper a normalde dosyanın yerini belirtmek gerekiyorda c:\deneme.exe gibi,
peki abzipper ile klasör nasıl zipleyebiliriz?