Assalomu alaykum, yordam.uz saytimizga xush kelibsiz.
Bu saytda o`zingizni qiziqtirgan savollarga javob olishingiz va o`z sohangiz bo`yicha savollarga javob berishingiz mumkin. Bizning Oilamizga a'zo bo`lganingiz uchun chuqur Minnatdorchilik bildiramiz !!!

Delphi BMP -> JPG va JPG -> BMP ga o'girish kodi

+3 ovoz
57 marta ko‘rilgan
so‘radi 25 fevral, 17 DelphiGuru (804 bal)

Delphi dasturlash tilida qanday-qilib bmp rasm fayllarini jpg ga va aksincha qilish mumkin? 

1 ta javob

+1 ovoz
javob berdi 25 fevral, 17 DelphiGuru (804 bal)
tahrirlandi 25 fevral, 17 DelphiGuru
 
Eng yaxshi javob

BMP --> JPG :

uses  
  Jpeg, ClipBrd;  

procedure TfrmMain.ConvertBMP2JPEG;  
var   
  jpgImg: TJPEGImage;  
begin  
  // bitmap faylni xotiraga olish
  chrtOutputSingle.CopyToClipboardBitmap;  
  // Xotiradan Image1 ga load qilish  
  Image1.Picture.Bitmap.LoadFromClipboardFormat(cf_BitMap,  
    ClipBoard.GetAsHandle(cf_Bitmap), 0);  
  // jpeg grafik yaratish
  jpgImg := TJPEGImage.Create;  
  // jpegga bitmapni assign qilish, bu bitmapni konvertatsiya qiladi
  jpgImg.Assign(Image1.Picture.Bitmap);  
  // va faylga saqlash
  jpgImg.SaveToFile('Example.jpg');  
end;

JPG --> BMP : 

uses  
  JPEG;  

procedure JPEGtoBMP(const FileName: TFileName);  
var  
  jpeg: TJPEGImage;  
  bmp:  TBitmap;  
begin  
  jpeg := TJPEGImage.Create;  
  try  
    jpeg.CompressionQuality := 100; {doimiy qiymat}  
    jpeg.LoadFromFile(FileName);  
    bmp := TBitmap.Create;  
    try  
      bmp.Assign(jpeg);  
      bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));  
    finally  
      bmp.Free  
    end;  
  finally  
    jpeg.Free  
  end;  
end;  

Assalomu alaykum, yordam.uz saytimizga xush kelibsiz.

Bu saytda o`zingizni qiziqtirgan savollarga javob olishingiz va o`z sohangiz bo`yicha savollarga javob berishingiz mumkin.

Bizning Oilamizga a'zo bo`lganingiz uchun chuqur Minnatdorchilik bildiramiz !!!

Telegram kanal YordamUzRss

...