Arsip: konveris jpg ke bmp

 
user image
more 14 years ago

bogem

mau nanya nich, skrip yang bisa konversi file gambar jpg ke bmp makasih atas jawabannya
user image
more 14 years ago

delphi_tikuzz

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

{
  CompressionQuality (default 100):
  Set a value between 1..100, depending on your need of quality and
  image file size. 1 = Smallest file size, 100 = Best quality.
  Mit CompressionQuality können Sie die Qualität der Komprimierung für die
  JPEG-Grafik festlegen (Default ist 100), wenn diese gespeichert wird.
  Eine höhere Komprimierung ergibt eine etwas schlechtere Bildqualität,
  dafür aber eine kleinere Datei.
  1 = kleinste Dateigrösse, 100 = beste Qualität
}
user image
more 13 years ago

sketsa

duh sangat berguna skali nich... mas saya mau nanya... gimana ya caranya kalo mau ngekonversi dari BMP ke JPG (biar file nya lebih kecil)? kaya komresi gitu..... mohon bantuannya mas ya..... kalo ada info tolong kasih tau saya mas ya di : luwin_03@yahoo.com
user image
more 13 years ago

ivan

@sketsa Untuk mengecilkan file jpeg, bisa diset dengan menurunkan CompressionQuality nya, tentunya dengan resiko kualitas gambar menjadi turun
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com