以下這程式碼要有什麼辦法才能使的能自動存jpeg檔和bmp檔 因為以下這程式碼只能存jpeg檔而如遇到bmp檔則會出錯 有什麼方法能在這程式碼內加入判斷嗎??? var jpg: TJpegImage; bmp: TBitmap; begin if OpenPictureDialog1.Execute then begin jpg := TJpegImage.Create; try jpg.LoadFromFile(OpenPictureDialog1.FileName); bmp := TBitmap.Create; try bmp.Width := jpg.Width; bmp.Height := jpg.Height; bmp.Assign(jpg); TBlobField(EmInfoQuery.FieldByName('Pics')).Assign(bmp); finally bmp.Free; end; finally jpg.Free; end; end; end;

引言: 以下這程式碼要有什麼辦法才能使的能自動存jpeg檔和bmp檔 因為以下這程式碼只能存jpeg檔而如遇到bmp檔則會出錯 有什麼方法能在這程式碼內加入判斷嗎???

无须判断，可以直接写成： if OpenPictureDialog1.Execute then TBlobField(EmInfoQuery.FieldByName('Pics')).loadfromfile(OpenPictureDialog1.filename); 即可 参考天使大人的范例： http://delphi.ktop.com.tw/topic.php?topic_id=19505 如果您需判断的话，可参考，里有判断的方法： http://delphi.ktop.com.tw/topic.php?topic_id=24428 ~~~静心养德~~~ 發表人 - deity 於 2005/02/24 08:47:28