Bmp -ből Jpg kép help !

Bmp -ből Jpg kép help !
2012-01-03T17:03:03+01:00
2012-01-03T17:10:59+01:00
2022-08-05T07:40:31+02:00
bcs0025
Sziasztok !

Egy Bmp képből szeretnék Jpg képet konvertálni.
ezzel próbáltam de csak egy üres jpg képet csinál.


procedure TClientsDBForm.Button1Click(Sender: TObject); var bm:TBitmap; jp:TJpegimage; begin try bm := TBitmap.Create; jp := TJPEGImage.Create; jp.assign(bm); bm.loadfromfile('C:\Árajánlat kép.bmp'); jp.savetofile('C:\konvertalt.jpg'); finally jp.free; bm.free; end; end;


vagy esetleg egy másik megoldást tudnátok ajánlani.

Előre is köszönöm.

Csaba
Mutasd a teljes hozzászólást!
Ezt két sort cseréld fel:
jp.assign(bm); bm.loadfromfile('C:\Árajánlat kép.bmp');
Mutasd a teljes hozzászólást!

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd