关于数据库数据写到word文档的错误

Question

大家好：
   现在有个问题想请教大家。下边的代码出错了：
procedure TForm1.Button1Click(Sender: TObject);
var
  MemSize: Integer;
  Buffer: PChar;
  MyFile: TFileStream;
  Stream: TBlobStream;
begin
    MyFile:=TFileStream.Create('c:\temp.tmp',fmCreate);
    with table1 do
    begin
      Open;
      Stream:=TBlobStream.Create(FieldByName('size') as TBlobField, bmRead); 
“FieldByName('size') as TBlobField, ”程序运行到这里的时候提示类错误，请问怎么改。
谢谢

Answer 1

with table1 do
  begin
    
    Edit;
    TBlobField(FieldByName('size')).LoadFromFile('c:\temp.tmp');
    Post;
  end;

Answer 2

或者
Stream:=TBlobStream.Create(FieldByName('size') as TBlobField, bmRead); 
改成
Stream:=TBlobStream.Create(TBlobField(FieldByName('size')), bmRead); 

Answer 3

Stream:=TBlobStream.Create(TBlobField(FieldByName('size')), bmRead); 
这个报错：“field is not a blob”
该怎么办？