有點不知道Delphi要如何轉成bcb |
答題得分者是:brook
|
l90425
初階會員 發表:95 回覆:152 積分:49 註冊:2008-04-03 發送簡訊給我 |
請問各位大大一下的Delphi要如何轉成bcb呀 能不能提示一下尤其是 if AField.IsNull then Exit; 和 AStream := TMemoryStream.Create; 真的看不太懂不知道要什麼轉成bcb 請各位大大提示或說明一下 -謝謝大大的回覆 procedure LoadImageFromField(APicture: TPicture; AField: TBlobField); var ABitmap: TBitmap; AStream: TMemoryStream; begin if AField.IsNull then Exit; AStream := TMemoryStream.Create; try AField.SaveToStream(AStream); // Skip OLE storage headeer AStream.Seek(78, soFromBeginning); ABitmap := TBitmap.Create; try ABitmap.LoadFromStream(AStream); APicture.Graphic := ABitmap; finally ABitmap.Free; end; finally AStream.Free; end; end; procedure TForm1.ADOTable1AfterScroll(DataSet: TDataSet); begin LoadImageFromField( Image1.Picture, DataSet.FieldByName('圖片') as TBlobField ); end;
------
-謝謝大大熱心的回覆!謝謝! 編輯記錄
l90425 重新編輯於 2008-05-22 10:46:36, 註解 無‧
|
brook
資深會員 發表:57 回覆:323 積分:371 註冊:2002-07-12 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |