 ::  |
| Autor |
Poruka |
himzo
Banovan!
Odomaćeni član
 |
Godine: 42
Datum registracije: 24 Okt 2005
Poruke: 1390
Mesto: Vojvoda Stepa
|
|
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
|
Godine: 40
Datum registracije: 28 Avg 2005
Poruke: 101
Mesto: Beograd
|
|
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
|
Datum registracije: 14 Sep 2006
Poruke: 44
|
|
| 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 
|
|
|
| |
|
|
80Moma
Upućeni član
 |
Godine: 44
Datum registracije: 15 Mar 2006
Poruke: 455
Mesto: Kac
|
|
|
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" |
|
| |
|
|
|
|
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
|
|
