Ayuda Con Winzip En Delphi

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