Ver Mensaje Individual
  #3  
Antiguo 05-03-2018
Garada Garada is offline
Registrado
 
Registrado: Jul 2004
Posts: 7
Reputación: 0
Garada Va por buen camino
Debes cargar la imagen en un TPicture y Deplhi la cargará si reconoce el tipo. Al usar Tjpegimage estás limitando el formato.
Después asignas la propiedad Graphic que es el grafico genérico al tipo de imagen que quieres trabajar/grabar.

Código Delphi [-]
  Picture := TPicture.Create;
  Bitmap := TBitmap.Create;
  Jpg := TJpgImage.Create;
  try
    Picture.LoadFromFile(s);

    Bitmap.Assign(Picture.Graphic);
    Bitmap.SaveToFile(ChangeFileExt(s, '.bmp'));

    Jpg.Assign(Picture.Graphic);
    Jpg.SaveToFile(ChangeFileExt(s, '.jpg'));
  finally
    Picture.Free;
    Bitmap.Free;
    Jpg.Free;
  end;
Responder Con Cita