諸位前輩大家好: 我查詢之前有關讀取Blob欄位的文章，都只有BDE的範例，希望有前輩能指導ADO DataSet的作法，非常謝謝。問題如下: 環境:Win2000、Delphi5、SQL2000 Binary Field、ADO DataSet 以下的程式執行時會產生錯誤訊息 'Variable is not an array'  

 
procedure ReadBlobField;
var
  BlobStream: TADOBlobStream;
begin
  with RealTimeForm do begin
    try
      BlobStream := TADOBlobStream.Create(TBlobField(dsSensor.FieldByName('Bianry Field')), bmRead);
    finally
      BLobStream.Free;
    end;
  end;
end;    

啊!這問題被深深埋入土堆裏，是否我描述的不夠清楚，希望能有前輩為我解答，不勝感激!

以下代码供参考 TADOBlobStream.Create(adodataset1.fieldbyname('Bianry Field')) as    TBlobField,bmRead) 如下：    procedure ReadBlobField; var  BlobStream: TADOBlobStream; begin  with RealTimeForm do  begin try    BlobStream := TADOBlobStream.Create(adodataset1.fieldbyname('Bianry Field')) as    TBlobField,bmRead);    finally         BLobStream.Free;     end; end; end;     风花雪月 e梦情缘

------
风花雪月 e梦情缘

非常感謝您的回答，真是令人驚喜!當初這個版尚未有結案的制度，過了一段日子，我找到答案後也忘了回來說明，實在不好意思! 我將一個Binary檔先寫入Stream，以TBlobField(dsDataSet.FieldByName('欄位名')).LoadFromStream(fileStream)存入SQL 2000的一個Binary欄位，一切正常，然後用Stream := dsDataSet.CreateBlobStream(dsDataSet.FieldByName('欄位名'),bmRead)的方式讀取至Stream，我認為天經地義的事卻一直都出現問題，也找不到答案，算了把Binary欄位定義改成Image，問題解決了，也不知是何原因! 您的代碼也是對的，非常感謝!

引言: 以下代码供参考 TADOBlobStream.Create(adodataset1.fieldbyname('Bianry Field')) as TBlobField,bmRead) 如下： procedure ReadBlobField; var BlobStream: TADOBlobStream; begin with RealTimeForm do begin try BlobStream := TADOBlobStream.Create(adodataset1.fieldbyname('Bianry Field')) as TBlobField,bmRead); finally BLobStream.Free; end; end; end; 风花雪月 e梦情缘