Ayuda Con Winzip En Delphi

[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}