[ maricn @ 30.03.2008. 19:13 ] @
Imam jedan TImage i u programu se iscrtava slika na njemu. Hocu da tu sliku kasnije snimim kao fajl jpeg formata. Da li je ovo izvodljivo preko TJPEGImage-a (iz jpeg datoteke), i kako???
[ reiser @ 30.03.2008. 20:47 ] @
Google
[ maricn @ 31.03.2008. 21:55 ] @
znam, znam, trazio sam i po google-u i po forumu, ali nista...
nigde nema konkretan odgovor, a ostalo nista ne kapiram...
i kad probam da ubacim neke stvari u kod, samo pocnu da iskacu greske
[ nikomak @ 31.03.2008. 22:44 ] @
Ovako je najlakse (ako se dobro secam )

Code:

uses ... Jpeg, Zlib;

procedure SnimiUJpg;
var jpg: TJPEGImage;
begin
 jpg := TJPEGImage.Create;
 try
  jpg.CompressionQuality := 80; //1 do 100
  //ovde i ostali parametri ProgressiveDisplay, itd.
  //Help is your friend :P
  jpg.Assign(Image1.Picture.Graphic);
  jpg.SaveToFile('c:\test1.jpg');
 finally
   jpg.Free;
 end;
end;
[ reiser @ 01.04.2008. 12:59 ] @
Citat:
maricn: znam, znam, trazio sam i po google-u i po forumu, ali nista...
nigde nema konkretan odgovor, a ostalo nista ne kapiram...
i kad probam da ubacim neke stvari u kod, samo pocnu da iskacu greske


Da si bar kliknuo na link koji sam ti dao
[ maricn @ 01.04.2008. 20:52 ] @
hvala vam puno, guys...
ma nisam ni gledao link, mislio sam da si ubacio google.com ...
hvala anyway, mnogo mi je pomoglo...