烦！我用流的方式把WORD文件插入到数据库中的IMAGE类型字段，如何把把该字段的内容读出来，我用SAVETOFILE生成一个指定的WORD文件，但打

Question

烦！我用流的方式把WORD文件插入到数据库中的IMAGE类型字段，如何把把该字段的内容读出来，我用SAVETOFILE生成一个指定的WORD文件，但打开为空！

Answer 1

(adobable1.fieldByName('wordfile') AS TBlobField).SaveToFile('c:\营销考核.doc');
试试

Answer 2

MyFile := TFileStream.Create('c:\temp.tmp', fmCreate);
    With Tech_DataMForm.ADODs_Tech_Xljscsb Do
    Begin
      Stream := CreateBlobStream(FieldByName('jscs') as TBlobField, bmRead);
      MemSize := Stream.Size;
      Inc(MemSize);            //Make room for the buffer's null terminator.
      Buffer := AllocMem(MemSize);
      //Allocate the memory.
      Try
        Stream.Read(Buffer^, MemSize);
        MyFile.Write(Buffer^, MemSize);
      Finally
        MyFile.Free;
        Stream.Free;
      End;
    End;    If FileExists('c:\temp.DOC') Then
      DeleteFile('c:\temp.DOC');
    If FileExists('c:\temp.tmp') Then
    Begin
      RenameFile('c:\temp.tmp', 'c:\temp.DOC');
      OleContainer1.CreateObjectFromFile('c:\temp.DOC', False);
      OleContainer1.Run;
      OleContainer1.DoVerb(1);
    End;上面程序实现从image字段中取出word文档,希望对你有所启示。