Ayuda Con Winzip En Delphi

[dec]

Hola,

Mira un sencillo ejemplo de cómo podrías convertir un archivo "BMP" en uno "JPG" reduciendo el tamaño de aquél en un buen porcentaje (echa un vistazo a las propiedades y métodos de "TJPEGImage" para ir un poco más allá). Sin utilizar la propiedad "CompressionQuality" ya reduciríamos en buena medida el tamaño del "BMP", pero, del siguiente modo aún lo podemos reducir un poco más. Tendrás que jugar con el valor de dicha propiedad, puesto que si este fuera "1", por ejemplo, el "BMP" se reduciría, pero, efectivamente, la calidad del "JPG" haría de este poco útil.

Código Delphi [-]
 uses
   Jpeg;
 
 procedure TForm1.Button1Click(Sender: TObject);
 var
   bmp: TBitMap;
   jpg: TJPEGImage;
 begin
   bmp := TBitmap.Create;
   jpg := TJPEGImage.Create;
   try
     bmp.LoadFromFile('C:\archivo.bmp');
     jpg.Assign(bmp);
     jpg.CompressionQuality := 50;
     jpg.SaveToFile('C:\archivo.jpg');
   finally
     bmp.Free;
     jpg.Free;
   end;
 end;

[kapullok_2006]

y para pasar un archivo jpg a bmp?
Esta línea no valdría?-> jpg.CompressionQuality := 50;
Es mas o menos hacer lo mismo,pero sin esa linea y al contrario.
lo he preguntado en el foro de gráficos,me aconsejaron pero no me funciona.


Saludos.

[b3nshi]

Aqui tienes como convertir de JPG a BMP... hay mucha ayuda en la web sobre este tema... solo debes buscar

Código Delphi [-]
procedure TFprincipal.bconvertirClick(Sender: TObject);
               var 
                 imjpg : TJPEGImage;
                 imbmp  : TBitmap;
               begin 
                 imjpg := TJPEGImage.Create;
                 with imjpg do begin 
                   LoadFromFile('imagen.jpeg');
                   imbmp := TBitmap.Create;
                   with imbmp do begin 
                     Width := imjpg.Width;
                     Height := imjpg.Height;
                     Canvas.Draw(0,0,imjpg);
                     SaveToFile('imagen.bmp');
                     Free;
                   end; 
                   Free;
                 end; 
               end;

{Saludos}

[jhonny]

Incluso en los trucos de ClubDelphi también hay información al respecto:

http://www.clubdelphi.com/trucos/ind...=1&scrollb=175

[Neftali [Germán.Estévez]]

Empezado por kapullok_2006

y para pasar un archivo jpg a bmp?
Esta línea no valdría?-> jpg.CompressionQuality := 50;

Son dos cosas diferentes. Una cosa es convertir entre formatos; Es la misma imagen (o casi) guardada de diferente forma. Lo otro se refiere (como dice la propiedad) a compresión, pero a base de calidad; por lo tanto reducirás el tamaño, pero perderás calidad en la imagen (esa calidad no podrás volver a recuperarla una vez guardada la imagen ).

[Enan0]

para zipear el archivo aca te dejo un linck en el cual hago una referencia al Componente TZIP con el codigo que se utiliza

Procedimiento Zipear!!

http://www.clubdelphi.com/foros/show...highlight=tzip


Saludos

[b3nshi]

Aqui un ejemplo de un programa compresor y descompresor ZIP

http://www.ajpdsoft.com/modules.php?...p=getit&lid=49

{Saludos}