Ver Mensaje Individual
  #6  
Antiguo 13-07-2007
Avatar de b3nshi
b3nshi b3nshi is offline
Miembro
 
Registrado: feb 2005
Ubicación: Tucuman - Argentina
Posts: 164
Reputación: 22
b3nshi Va por buen camino
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}

Última edición por b3nshi fecha: 13-07-2007 a las 00:57:39.
Responder Con Cita