線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1354
推到 Plurk!
推到 Facebook!

有點不知道Delphi要如何轉成bcb

答題得分者是:brook
l90425
初階會員


發表:95
回覆:152
積分:49
註冊:2008-04-03

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-05-22 10:45:51 IP:59.125.xxx.xxx 未訂閱
請問各位大大一下的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
資深會員


發表:56
回覆:321
積分:365
註冊:2002-07-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2008-05-26 17:13:10 IP:118.168.xxx.xxx 訂閱
1. 可能是 if (AField.IsNull) return;
或 if (AField->IsNull) return;
2. AStream = new TMemoryStream();

系統時間:2017-10-17 21:03:53
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!