delphi - 避免在运行时出错

Question

我在一个过程中有很多命令，并且有以下命令:

...
Stream:=TFileStream.Create(FileName,fmOpenread);
...

创建整个过程是为了将文件从TClientSocket发送到TServerSocket。

该过程从Timer每100毫秒启动一次。当然，有时会出现EFCreateError错误，因为使用了文件。

一切正常，因为收到了一些数据。但是如何避免显示此错误？

Answer 1

您需要捕获错误并进行处理。
请参见下面的代码。

....
try
  Stream:=TFileStream.Create(FileName,fmOpenread); 
except on E: EFCreateError do
  Stream:= nil;
end; {try}
if Stream <> nil then try
  //rest of your procedure
finally  
  Stream.Free; //make sure your stream is freed.
end;

如果此处有错误，则运行时将不会显示任何消息，在调试中您将看到错误，但可以忽略该错误。
错误时， Stream变量将设置为nil。
在下面的代码中，您可以测试 Stream <> nil或 Assigned(Stream)(相同)，并在一切正常的情况下对流进行处理。