保存office文档，体积增大一倍，帮我看下代码，有没有好的办法？

Question

function   BlobContentTostring(const   Filename:string):string;
        begin
            with   Tfilestream.Create(filename,fmopenread)     do
            try
                setlength(result,size);
                read(pointer(result)^,size);
            finally
                free;
            end;
        end;
 
sfilename:=opendialog1.FileName;
 file_path.Text := ExtractFilePath(OpenDialog1.FileName)+sfilename; //上传文件的路径
 ADOQuery1.FieldByName('file_text').AsString:=blobcontenttostring(sfilename);
用上面代码保存文档：
各位前辈，我在sql server中设置了一个file_text的字段，类型为ntext，然后用上面的方法保存word或者excel文档。
但是现在发现麻烦出来了，一个文件在电脑里是10K大小，通过上述方法保存到sql server中，再导出来体积就变成20K了。
有什么好的办法吗，不胜感激。

Answer 1

你把文件流都转成字符了 blobcontenttostring ？，这问题就大了，你为什么不用blob字段保存文件流呢

Answer 2

to bdmh：
麻烦您帮着改一下，谢谢。

Answer 3

with ADOQuery1 do
  begin
  Append;
  FieldByName('imgid').Asstring := 1;
  TBlobField(FieldByName('imgsize')).LoadFromFile(FileName);
  Post;
  end;
这种方式，一般不会出现问题

Answer 4

TBlobField(ADOQuery1.FieldByName('imgsize')).SaveToFile(FileName);最文件