:: |
Autor |
Poruka |
himzo Banovan! Odomaćeni član
![Odomaćeni član Odomaćeni član](/images/ranks/stars_orange.gif)
![](http://www.domaci.de/images/no_avatar.gif) |
Godine: 42
Datum registracije: 24 Okt 2005 Poruke: 1390 Mesto: Vojvoda Stepa
![serbia.gif](images/flags/serbia.gif)
|
|
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; |
|
|
|
|
|
![](templates/subDomaci/images/spacer.gif) |
zdravkoetf Početnik Domaćeg.de
![Početnik Domaćeg.de Početnik Domaćeg.de](/images/ranks/rankb1_1.gif)
![](http://www.domaci.de/images/no_avatar.gif) |
Godine: 39
Datum registracije: 28 Avg 2005 Poruke: 101 Mesto: Beograd
![serbia.gif](images/flags/serbia.gif)
|
|
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/
|
|
|
|
|
![](templates/subDomaci/images/spacer.gif) |
igel Početnik Domaćeg.de
![Početnik Domaćeg.de Početnik Domaćeg.de](/images/ranks/rankb1_1.gif)
![](http://www.domaci.de/images/no_avatar.gif) |
Datum registracije: 14 Sep 2006 Poruke: 44
![blank.gif](images/flags/blank.gif)
|
|
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
|
|
|
|
|
![](templates/subDomaci/images/spacer.gif) |
80Moma Upućeni član
![Upućeni član Upućeni član](/images/ranks/rankb1_2.gif)
![](images/avatars/1430799740453a27a514c11.jpg) |
Godine: 44
Datum registracije: 15 Mar 2006 Poruke: 455 Mesto: Kac
![serbia.gif](images/flags/serbia.gif)
|
|
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" |
|
|
|
![](templates/subDomaci/images/spacer.gif) |
|
|
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
|
|