代码如下： if SaveDialog1.Execute then begin TBlobField(QryMaster.FieldByName('content')).SaveToFile('SaveDialog1.FileName'); end; 保存后打开出错原因：1、文件名称和路径无效，建议重新定位和和检查权限，但定位后仍然无法打开，请问是怎么回事？

错误如图：

Hi sl@cableplus.com.cn,    試試看

procedure TMainForm.Button1Click(Sender: TObject);
var
    FileName : String;
begin
    if SaveDialog1.Execute then
        begin
            FileName := SaveDialog1.FileName;
            TBlobField(QryMaster.FieldByName('content')).SaveToFile(FileName);
        end;
end;

http://delphi.ktop.com.tw/topic.php?topic_id=44734 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

按Fishman斑竹的方法试用后还是如图错误！！！请教一个新的办法

sl@cableplus.com.cn 你好 你是用SavetoFlie表示你要寫入，那麼請檢查一下，登入的使用者對於該目錄是否有存取的權限，以前我也發生過。請注意你登入的是本機的使用者還是網域使用者(有時帳號相同其實是有不同的權限的)

我是先从我本机LOADFROMFILE（f:\a.doc)，然后在从程序里SAVETOFILE到（D：\B.DOC),我想应该不存在权限问题吧，请大大指教

更正一下上面的情况：我是域用户登入：操作程序，先LOADFROMFILE保存本机F：\a.doc然后在用SAVETOFILE保存到D:\b.doc，然后打开就如图错误，然后我注销用本机ADMINISTRATOR登入依然打不开，如图一样的错误，请教是什么问题？

Hi sl@cableplus.com.cn,    可否提供部分程式碼，比較方便判斷錯誤原因 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

好的，代码如下： 一条Recordset其他字段(如：docname,docdate等）用BDE保存后，然后根据PKEY用ADO把文件保存进content字段里 AdoUpdateContent.SQL.Clear; AdoUpdateContent.Parameters.Clear; AdoUpdateContent.SQL.Add('Update OASmallDoc set content=:content where pkey=:pkey'); AdoUpdateContent.Parameters.ParamByName('pkey').Value := QryMaster.FieldByName('Pkey').AsInteger; AdoUpdateContent.Parameters.ParamByName('content').LoadFromFile(Opendialog1.FileName, ftBlob); AdoUpdateContent.ExecSQL; 然后在其他用户调用时代码如下： if SaveDialog1.Execute then begin FileName := SaveDialog1.FileName; TBlobField(QryMaster.FieldByName('content')).SaveToFile(FileName); 然后想要打开另存为的文件时就出现如图的错误！请教是什么原因出错！

Hi,    這裡有篇天使站長的範例程式，你可以參考看看     ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

天使站長的範例程式在哪，怎么看不到连结？ 还有说保存成XML文件就行，但我保存下来还是打不开，说XML缺个头文件，应怎么加上？

Hi sl@cableplus.com.cn,    抱歉，忘了貼上連結 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19505 ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

谢谢FISHMAN提供的，已经解决了，非常感谢