sos

一个word文档存入sql server 数据库中image字段jb_text，编译通过，但好象没有把word文档存入/
大哥们帮我看看！~！
procedure TForm1.Button1Click(Sender: TObject); 
var 
filename : TFileName; 
MemSize:integer; 
Buffer:PChar; 
filestream : TFileStream; 
BlobStream : TBlobStream; 
begin 
    if opendialog1.Execute then 
    begin 
      opendialog1.Filter:= 'wordÎĵµ(*.doc)|*.doc'; 
      filename := opendialog1.filename; 
    end; 
    try 
       filestream:=TFileStream.create(filename,fmopenread); 
       filestream.Position:=0; 
      // (table1.FieldByName('jb_text') as TBlobField).LoadFromStream(savest 
ream); 
       with table1 do 
       begin 
          open; 
          edit; 
          BlobStream:= TBlobStream.Create(FieldByName('jb_text') as TBlobFie 
ld,bmWrite); 
  
          MemSize := fileStream.Size; 
          inc(MemSize); 
          Buffer := allocMem(MemSize); 
          BlobStream.Seek(0,soFromBeginning); 
          FileStream.read(Buffer^,MemSize); 
          BlobStream.Write(Buffer^,MemSize); 
         // memo1.Lines.Add(buffer^); 
          try table1.Post; 
          except              showmessage('±£´æʧ°Ü'); 
             halt; 
          end; 
          showmessage('±£´æ³É¹¦£¬ÕýÔÚ¼ÓÔØÎļþ'); 
      end; 
    finally 
       filestream.Free; 
       BlobStream.Free; 
    end; 
   // olecontainer1.CreateObjectFromFile(filename,false); 
  // olecontainer1.LoadFromStream(blobstream); 
  //  olecontainer1.Run; 
   // olecontainer1.DoVerb(1); 
end;