我的程式很簡單，只要判斷圖形的寬度，依照不同的寬度去做縮圖，但很奇怪的很，jpg 必須先 assign 到 Image1 存檔才成功，如下的程式碼，存檔都是 0 bytes。如果把紅色那一行的 mark 去掉，存檔是成功的.煩請各位為我解惑，謝謝.
程式碼如下:

[code cpp]
TJPEGImage *jpg=new TJPEGImage();
jpg->LoadFromFile(opd->FileName);
if(jpg->Width > 2000) jpg->Scale = jsEighth;
if(jpg->Width > 1000) jpg->Scale = jsQuarter;
if(jpg->Width > 500) jpg->Scale = jsHalf;
//Image1->Picture->Bitmap->Assign(jpg);
jpg->Compress();
String fpath = ExtractFilePath(opd->FileName);
String fname = ExtractFileName(opd->FileName);
String fext = ExtractFileExt(opd->FileName);
int ipos = fname.AnsiPos(fext);
String sname = fname.SubString(0,ipos-1) "-1" fext;
String realsname = fpath sname;
if( !FileExists(realsname) )
DeleteFile(realsname);
jpg->SaveToFile(realsname);
[/code]