Cita:
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; jpg.Compress;
-
Un saludito.