Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

BMP to JPG #KAYNAK#

Konu, 'Pascal / Delphi / Delphi.NET' kısmında hmustak tarafından paylaşıldı.

  1. hmustak

    hmustak PersianBulls

    Kayıt:
    29 Mayıs 2002
    Mesajlar:
    4,607
    Beğenilen Mesajlar:
    0
    Meslek:
    BT/QA
    Şehir:
    Persian
    uses
    Jpeg, ClipBrd;

    procedure TfrmMain.ConvertBMP2JPEG;
    var
    jpgImg: TJPEGImage;
    begin
    chrtOutputSingle.CopyToClipboardBitmap;
    Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap,
    ClipBoard.GetAsHandle(cf_Bitmap), 0);
    jpgImg := TJPEGImage.Create;
    jpgImg.Assign(Image1.Picture.Bitmap);
    jpgImg.SaveToFile('ceviz.jpg');
    end;