各位大大好： 我的程序希望这样：当点击DBGRID中的’大二进制数据‘的时候， 在DBGrid下面的OleContainer中显示相应的excel文件。     

procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
  BS: TADOBlobStream;
  sF:String;
begin
  if (Column.FieldName = 'Blobs') then
  begin
    BS := TADOBlobStream.Create(TBlobField(adodataset1.FieldByName('Blobs')), bmread);
    OleContainer1.LoadFromStream(BS); 
    BS.Free;
  end;
end;
 

提示错误：流格式不正确 请问上面的功能怎么实现？ 有劳各位了，谢谢！

loadfromfile不是這樣用的,他是相對於savettofile來使用 你可以先將blob stream存成一暫存檔,然後用 olecontainer1.CreateObjectFromFile('c:\500.xls',false); 這樣才可以正常顯示 另外,你可以測試olecontainer1.savetofile('my.ole') 這樣你才可以用olecontainer1.loadfromfile('my.ole'),才不會出錯 永遠追不上技術更新的速度

------
星期一,二...無窮迴圈＠＠

pgdennis： 你好，先谢了！< >< > 请问一下，我点击一个 class="code"> procedure TForm1.DBGrid1CellClick(Column: TColumn); var BS: TADOBlobStream; sFN: string; //FileName begin if (Column.FieldName = 'Blobs') then begin try BS := TADOBlobStream.Create(TBlobField(adodataset1.FieldByName('Blobs')), bmread); sFN := ExtractFilePath(application.ExeName) '123.xls'; BS.SaveToFile(sFN); OleContainer1.CreateObjectFromFile(sFN, false); finally BS.Free; end; end; end;

BLOB欄位中沒有filename資訊..我平常的做法是加一欄位 儲存 > 永遠追不上技術更新的速度

------
星期一,二...無窮迴圈＠＠

pgdennis： 好主意，多谢了！