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;
TurboDispatchJumpAddressEnd
----
Knocka Fia
----
And so we meet, again in a different time
Kako da snimim sliku kao jpeg?
