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???
Kako da snimim sliku kao jpeg?
Zaključano
Zakačeno
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
nigde nema konkretan odgovor, a ostalo nista ne kapiram...
i kad probam da ubacim neke stvari u kod, samo pocnu da iskacu greske
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;
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;
Potpis
TurboDispatchJumpAddressEnd
----
Knocka Fia
----
And so we meet, again in a different time
----
Knocka Fia
----
And so we meet, again in a different time
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
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
hvala vam puno, guys...
ma nisam ni gledao link, mislio sam da si ubacio google.com ...
hvala anyway, mnogo mi je pomoglo...
ma nisam ni gledao link, mislio sam da si ubacio google.com ...
hvala anyway, mnogo mi je pomoglo...