Reply to Probleme mit TJPEGImge und compress() on Sun, 29 Apr 2007 10:24:18 GMT

cruft — Sun, 29 Apr 2007 10:24:18 GMT

Hallo,

ich wollte in meinem Programm eine JPG Datei öffnen , verkleinern und wieder speichern. nach dem Aufruf von Compress ist die Datei aber 0kb groß !?!?

Was habe ich da nicht verstanden?

MFG cruft

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 if(OpenPictureDialog1->Execute())
   {
    TJPEGImage* jpg = new TJPEGImage();

    jpg->LoadFromFile(Dialog->FileName);
    jpg->CompressionQuality = 50;
    jpg->Compress();

    jpg->SaveToFile(target);
   }
}