将文件存入Acess数据库(以二进制方式)

Question

以前有个功能,
可以将任何文件转成二进制流,以串的方式存到字段中.现在用到了,可惜忘记了,请问谁知道.. 帮忙.发个demo  写个一两句也行.
另外 .我现在用的是ACESS 数据库..里面没二进制类型,,不过是不是可以用OLE,谢谢,,急..

Answer 1

写入表；
procedure TForm1.Button1Click(Sender: TObject); 
var 
  Stream: TBlobStream; 
  S: string; 
begin 
  with Table1 do 
  begin 
    Open; 
    insert; 
    FieldByName('ID').AsInteger:=3; 
    Stream :=TBlobStream.Create(TBlobField(FieldByName('Fingers')),bmReadWrite ); 
    try 
      Stream.Seek(0, 2);  
      S := 'My Blob Stream Data';   
      Stream.Write(pchar(S)^, Length(S)); 
    finally 
      Stream.Free; 
    end; 
    Post; 
  end; 
end;

Answer 2

字段设成ole数据操作用tblobfield