BMP ---> JPG

uses
 Jpeg, ClipBrd;
procedure TfrmMain.ConvertBMP2JPEG;
 // converts a bitmap, the graphic of a TChart for example, to a jpeg
var
 jpgImg: TJPEGImage;
begin
 // copy bitmap to clipboard
 chrtOutputSingle.CopyToClipboardBitmap;
 // get clipboard and load it to Image1
 Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap,
  ClipBoard.GetAsHandle(cf_Bitmap), 0);
 // create the jpeg-graphic
 jpgImg := TJPEGImage.Create;
 // assign the bitmap to the jpeg, this converts the bitmap
 jpgImg.Assign(Image1.Picture.Bitmap);
 // and save it to file
 jpgImg.SaveToFile('TChartExample.jpg');
end;
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
Проверка
Антиспам проверка
Image CAPTCHA
...