AbZipper Sıkıştırınca dosya boyutu artıyor

[kahraman1285]

Mrb.
Abzipper ile sıkıştırdığım jpeg resmi normal boyutundan 10 kat daha fazla yer kaplıyor.Sanırım bi yerde hata yapıyorum kullandığım kod aşağıda:

Kod: Tümünü seç

procedure TAnaSayfa.Button2Click(Sender: TObject);
var
  SR: TSearchRec;
  DosyaAdi:string;
begin
AbZipper.BaseDirectory:=ExtractFilePath(Application.ExeName)+'bin';

FindFirst(ExtractFilePath(Application.ExeName)+'bin'+'\*.*',faAnyFile,sr);

repeat
  if (sr.Name<>'.') and (sr.Name<>'..') then
    begin
      if not (ExtractFileExt(sr.Name)='.ini') then
        begin
        i:=pos('.',SR.Name);
         if i>0 then DosyaAdi:=Copy(sr.Name,1,i-1);;

          AbZipper.FileName:=ExtractFilePath(Application.ExeName)+'bin\'+DosyaAdi+'.zip';
          AbZipper.AddFiles('*.*', 0);
          AbZipper.Save;
        end;
    end;
until FindNext(sr)<>0;
FindClose(sr);

end;;

Hatamı gören yardımcı olursa sevinirim.amacım .ini dosayları haricinde geriye kalan resimleri sıkıştırmak...
Teşekkürler.

[fduman]

JPEG zaten sıkıştırılmış olduğundan böyle sonuç almanız normal. JPEG'leri sıkıştırmadan zip içine almanızı sağlayacak seçenek ile sıkıştırmayı yapmalısınız. Bu sayede sıkıştırmayacak, sadece paketleyecek.

[mussimsek]

Hocam kaç resim var bu pakette? eğer birkaç resim varsa dosyanın bilgileri de eklenince boyut biraz artabilir. Furkan hocamın dediği gibi jpeg'ler çok sıkışmaz zaten.


Kolay gelsin.

[kahraman1285]

en fazla 24 adet resim oluyor.

dediğiniz gibi sanırım jpegleri sıkıştırmadan kullanacağım herkese teşekkürler.