[jorge82]

Empezado por spia

hola amigo yo tambien tengo el problema de que no puedo grabar la imagen en jpg. solo me acepta bmp haber si me puedes ayudar con esto gracias


[

Para guardar la imagen como .jpg haz lo siguiente:
Un TImage y un TButton.
Doy por sentado que ya añadiste la unidad Jpeg al uses...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  jpg: TJPEGImage;
begin
  with TSaveDialog.Create(Self) do
  begin
    Filter:= GraphicFilter(TJPEGImage);
    DefaultExt:= GraphicExtension(TJPEGImage);
    if Execute then
    begin
      jpg:= TJPEGImage.Create;
      jpg.Assign(Image1.Picture.Bitmap);
      jpg.SaveToFile(Filename);
      jpg.Free;
    end;
  end;
end;

Con lo anterior conviertes cualquier imagen que tengas en Image1 a Jpg.

EDIT: Si quieres comprimir la imagen antes de guardar...
añade estas dos líneas antes de llamar a SaveToFile:

Código Delphi [-]
jpg.CompressionQuality:= 80; // 1=Peor calidad, menor tamaño <-> 100=Mejor calidad mayor tamaño 
jpg.Compress;

-
Un saludito.