用Delphi实现文件读取超时

打开文件 asynchronous access 包括 File_Flag_Overlapped 打电话时打旗子 CreateFile . 传入一个 TOverlapped 打电话时录音 ReadFile ,如果读取未立即完成,则函数将提前返回。您可以通过调用 WaitForSingleObject 当你在 重叠 结构。你甚至可以使用 MsgWaitForMultipleObjects 等待;然后在读取完成时通知您 或 消息到达,以先到者为准,因此您的程序根本不需要挂起。处理完消息后,可以再次检查I/O是否已完成 GetOverlappedResult ,继续等待,或通过调用放弃I/O CancelIo . 请确保仔细阅读所有这些函数的文档;异步I/O并不简单。

将读取操作移动到线程后,可以在读取之前存储timeGetTime返回的值:

isReading := true;
try
  startedAt := timeGetTime;
  FileStream.Read (Buffer, N);
  ...
finally
  isReading := false;
end;

如果时间太长,请签入空闲处理程序。

如:

function ticksElapsed( FromTicks, ToTicks : cardinal ) : cardinal;
begin
  if FromTicks < ToTicks
    then Result := ToTicks - FromTicks
    else Result := ( high(cardinal) - FromTicks ) + ToTicks; // There was a wraparound
end;

...

if isReading and ( ticksElapsed( startedAt, timeGetTime ) > 10 * 1000 ) // Taken too long? ~10s
then // Do something