www.domaci.de Forum Indeks Home
Portal • Forum • Novi upisi • Pretraga • Link do nas • Domaći filmovi • Lista korisnika • Tim sajta • Proverite privatne poruke • Prijava • Registracija
Pravilnik • FAQ • Profil • Favorites • Galerija slika • Top lista • Download MP3 • MP3 razno • Spotovi • Noviteti 2013 • Muzički noviteti 2014

Delphi: JPEG vs BMP
Upišite novu temu   Odgovorite na temu    www.domaci.de Forum Indeks -> ~ Programiranje ~
::  
Autor Poruka
himzo
Banovan!

Odomaćeni član
Odomaćeni član



Godine: 42

Datum registracije: 24 Okt 2005
Poruke: 1390
Mesto: Vojvoda Stepa

serbia.gif
PorukaPostavljena: Sre Nov 30, 2005 8:48 pm    Naslov poruke: Delphi: JPEG vs BMP Na vrh strane Na dno strane

JPEG u Bitmap

Konvertovanje slike iz JPEG formata u bitmap sliku je i više nego prosto. Za tu priliku napisao sam kratku proceduru JPEG2BMP() koja konvertuje sliku iz JPEG-a u BMP format. Procedura ima dva parametra JPEGFile koji predstavlja putanju ulaznog JPEG fajla, i BMPFile koji predstavlja putanju i naziv izlazne bitmap slike.

Osobina CompressionQuality u opštem slucaju ima vrednost 100 i predstavlja sliku najvišeg kvaliteta i najvece velicine fajla, dok vrednost 1 predstavlja fajl najmanje velicine ali na suprot tome kvalitet slike je takav da je ona prakticno neupotrebljiva. Ova osobina se najcešce postavlja na vrednosti od 65 do 100 ali opet sve zavisi od potrebe korisnika.

Ne zaboravite da u uses klauzulu dodate unit JPEG.

Code:
uses JPEG;
...
procedure JPEG2BMP ( JPEGFileName, BMPFileName: TFileName );
var
  jpeg: TJPEGImage;
  bmp: TBitmap;
begin
  jpeg := TJPEGImage.Create;
  try
    jpeg.CompressionQuality := 100;
    jpeg.LoadFromFile ( JPEGFileName );
    bmp := TBitmap.Create;
    try
      bmp.Assign ( jpeg );
      bmp.SaveToFile ( BMPFileName );
    finally
      bmp.Free
    end;
  finally
    jpeg.Free
  end;
end;


Kao što se iz tela procedure vidi, potrebno je deklarisati dva objekta (jedan TJPEGImage i jedan TBitmap) i zatim ih kreirati u memoriji. Najpre se u prvi objekat (TJPEGImage) ucita slika iz fajla a onda se ta slika dodeli drugom objektu (TBitmap). Za kraj potrebno je bitmap snimiti u odgovarajucu datoteku.

Bitmap u JPEG

Procedura BMP2JPEG( ), koja se koristi za kompresovanje bitmap slike u JPEG format se ne razlikuje mnogo od prethodne procedure. Razlika je u tome što se ovde radi o obrnutom procesu. Dakle, bitmap slika se ucita u memoriju TBitmap objekta a zatim dodeli TJPEGImage objektu. Potrebno je još snimiti sliku u fajl i to je to...

Code:
uses JPEG;
...
procedure BMP2JPEG ( BMPFileName, JPEGFileName: TFileName );
var
  jpeg: TJPEGImage;
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.LoadFromFile(BMPFileName);
    jpeg := TJPEGImage.Create;
    try
      jpeg.Assign ( jpeg );
      jpeg.SaveToFile ( JPEGFileName );
    finally
      jpeg.Free
    end;
  finally
    bmp.Free
  end;
end;


 
zdravkoetf
Početnik Domaćeg.de
Početnik Domaćeg.de



Godine: 40

Datum registracije: 28 Avg 2005
Poruke: 101
Mesto: Beograd

serbia.gif
PorukaPostavljena: Pon Feb 06, 2006 4:43 pm    Naslov poruke: Na vrh strane Na dno strane

Ako nekome bude trebao source kod na C za konverziju JPEG->BMP i BMP->JPEG, ne radi se o programu koji poziva gotove funkcije, vec je realizovan ceo JPEG algoritam, evo linka:
http://nedic.w3.to/jpeg/
 
igel
Početnik Domaćeg.de
Početnik Domaćeg.de





Datum registracije: 14 Sep 2006
Poruke: 44

blank.gif
PorukaPostavljena: Pet Sep 15, 2006 12:30 am    Naslov poruke: Na vrh strane Na dno strane

zdravkoetf je napisao/la sledeće:
Ako nekome bude trebao source kod na C za konverziju JPEG->BMP i BMP->JPEG, ne radi se o programu koji poziva gotove funkcije, vec je realizovan ceo JPEG algoritam, evo linka:
http://nedic.w3.to/jpeg/


elegantno resenje Smile
 
80Moma
Upućeni član
Upućeni član



Godine: 44

Datum registracije: 15 Mar 2006
Poruke: 455
Mesto: Kac

serbia.gif
PorukaPostavljena: Sub Sep 16, 2006 8:40 am    Naslov poruke: Na vrh strane Na dno strane

Imate program Yakuza Group Prin Screen jednostavno ubacis sliku i kazes u koji format da ti prebaci JPEG u BMP ili obrnuto prosto ko pasulj nema jednostavnijeg programcica.Ako nekom treba nek posalje poruku pa da mu posaljem mejlom radaadamovic@yahoo.co.yu

_________________
"Mi pamtimo BARI a vi Fljarmuntari"
 
Prikaz poruka:   
Upišite novu temu   Odgovorite na temu    www.domaci.de Forum Indeks -> ~ Programiranje ~ -> Delphi: JPEG vs BMP Vreme je podešeno za GMT + 1 sat
Strana 1 od 1

 
Pređite u:  
Vi ne možete otvarati nove teme u ovom forumu
Vi ne možete odgovarati na teme u ovom forumu
Vi ne možete menjati Vaše poruke u ovom forumu
Vi ne možete brisati Vaše poruke u ovom forumu
Vi ne možete glasati u anketama u ovom forumu
Vi ne možete postavljati fajlove u ovom forumu
Vi ne možete preuzeti fajlove sa ovog foruma





- Burek Forum - Doček Nove 2018. godine - Venčanja, svadbe - Proslave - TipoTravel - Kuda večeras - Anwalt - legal -

Bookmark to: Twitter Bookmark to: Facebook Bookmark to: Digg Bookmark to: Del.icio.us Bookmark to: StumbleUpon