如何解决出现I/O ERROR 53错误(50分)

当我编写C/S程序时,使用rewrite()函数在服务器端生成一文件,但由于
还没有进行拨号连接,所以出现I/O ERROR53的提示,用TRY来截获异常也不行,
仍然出现错误提示,请问如何解决?

试一下Ioresult;
var

F: file of Byte;
begin
if OpenDialog1.Execute then begin
AssignFile(F, OpenDialog1.FileName);
{$I-}//关闭io检查
Reset(F);
{$I+}//打开io检查
if IOResult = 0 then
MessageDlg('File size in bytes: ' + IntToStr(FileSize(F)),
mtInformation, [mbOk], 0)
else
MessageDlg('File access error', mtWarning, [mbOk], 0);
end;

end;

可以先检测连结是否成功先

也可截获EinOutError,用SysErrorMessage(ErrorCode: Integer)获得错误信息

跟踪

接受答案了.