Как image сохранить в файл ?

[juan666777]

Я на Image вывожу какие то графические данные подскажите как можно сохранить их в графическом файле jpg и bmp.

[Crivel]

Для JPG:

Image1.Picture.SaveTofile('C:\1.jpg');

Для BMP:

Image1.Picture.SaveTofile('C:\1.bmp');

[juan666777]

Изоброжения получаются большого размера как можно их сжать ?

[lexaltd]

Сообщение от juan666777

Изоброжения получаются большого размера как можно их сжать ?

Большого размера это - высота и ширина , или вес ?

если высота и ширина

procedure TForm1.BitBtn1Click(Sender: TObject);
var
BitMap : TBitMap;
begin
 BitMap := TBitMap.Create;
 BitMap.Width := 200; // Ставиш размеры желаймой картинки
 BitMap.Height := 200; // Ставиш размеры желаймой картинки
 BitMap.Canvas.CopyRect(BitMap.Canvas.ClipRect,Image1.Canvas,Image1.Canvas.ClipRect);
 BitMap.SaveToFile('E:\1.bmp');
 BitMap.Free;
end;

если вес - то сохраняй в jpg

procedure TForm1.BitBtn2Click(Sender: TObject);
var
 SaveJpeg: TJpegImage;
 BitMap : TBitMap;
begin
  SaveJpeg := TjpegImage.Create;
  BitMap := TBitMap.Create;
  BitMap.Width := 200; // Ставиш размеры желаймой картинки
  BitMap.Height := 200; // Ставиш размеры желаймой картинки
  BitMap.Canvas.CopyRect(BitMap.Canvas.ClipRect,Image1.Canvas,Image1.Canvas.ClipRect);
  SaveJpeg.Assign(Bitmap);

  SaveJpeg.CompressionQuality := 100; // От этого значения тоже зависит вес, но и качество
  SaveJpeg.PixelFormat := jf24Bit;
  SaveJpeg.Compress;

  SaveJpeg.SaveToFile('E:\1.jpg');
  BitMap.Free;
  SaveJpeg.Free;
end;

[juan666777]

Большое спасибо

[grey]

Image1.Picture.SaveTofile('C:\1.jpg ');

А не подскажете, как это реализовать через SaveDialog?

[mihali4]

Сообщение от Crivel

Для JPG:

Image1.Picture.SaveTofile('C:\1.jpg');

Для BMP:

Image1.Picture.SaveTofile('C:\1.bmp');

Э-э-э нет, не все так просто.

Изображения получаются большого размера как можно их сжать ?

Вот именно. Для этого:

Преобразование bmp в jpg

Для того, чтобы преобразовать картинку в bmp-формате в jpg-формат вам необходимо подключить к программе (в uses) модуль jpeg.
Затем вам надо объявить переменную типа tjpegimage.
Ну, а затем проделать следующие действия:

Например при нажатии кнопки создадим jpeg-файл из bmp-файла. Обработчик события onclick может иметь такой вид:

procedure tform1.button1click(sender: tobject);
var jpg:tjpegimage; {создаем переменную}
begin
image1.picture.loadfromfile('c:\windows\1stboot.bmp'); {здесь загружаем какую-нибудь картинку, советую вам изменить имя картинки приведенное в этом примере!}
jpg:=tjpegimage.create; {создаем экземпляр объекта}
jpg.assign(image1.picture.graphic); {присваиваем переменной jpg картинку, хранящуюся в image'e}
jpg.compressionquality:=75; {устанавливаем параметры качества. Должно быть от 1 до 100. Если 100, то качество лучшее, 1 худшее}
jpg.compress; {производим сжатие данных картинки}
jpg.savetofile('d:\1.jpg'); {и сохраняем уже готовую jpg картинку в файл}
jpg.free; {уничтожаем объект, чтобы не засорять память!}
end;

[grey]

но а как всё же сохранить через SaveDialog?

[mihali4]

Как и обычно...
Просто каждую из процедур выполняем по условию
If SaveDialog.Execute then
и подставляем имя файла из SaveDialog...

[grey]

Да, спасибо большое, разобрался:

If SaveDialog1.Execute then Image2.Picture.Graphic.SaveToFile(SaveDialog1.Filename)