Einzelnen Beitrag anzeigen

chris

Registriert seit: 24. Mai 2003
Ort: Düsseldorf
196 Beiträge
 
Delphi 2009 Professional
 
#10

Re: Exception bei der JPEG Kompremierung

  Alt 11. Aug 2003, 00:51
hi,

wie oben schon gesagt, in etwa so:

Delphi-Quellcode:
bmp := tbitmap.create;
jpg := tjpegimage.create;
try
  jpg.loadfromfile(opendialog1.filename);
  bmp.assign(jpg);
  jpg.compressionquality := 50;
  jpg.assign(bmp);
  jpg.savetofile('c:\1.jpg');
  jpg.loadfromfile('c:\1.jpg');
  image1.picture.assign(jpg)
finally
  bmp.free;
  jpg.free
end;
Chris
D2009.4 | Vista SP2 x32
  Mit Zitat antworten Zitat