ネットワークファイルのタイムアウトについて (ID:29654)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 サンプルソースをテストしてみました。上手くタイムアウトが取れました。ありがとうございます。 なお、コンパイル時に警告が出るようでしたので少しアレンジしてみました。 function FileExistTimeOut(const FileName:String;TimeOut:Cardinal=3000):Boolean; var FileExistsThread : TFileExistsThread; TC : Cardinal; begin FileExistsThread := TFileExistsThread.Create(True); FileExistsThread.FreeOnTerminate := True; FileExistsThread.FileName := FileName; FileExistsThread.Resume; TC := GetTickCount; while (FileExistsThread.Terminated = False) and (GetTickCount - TC < TimeOut) do begin ; end; case FileExistsThread.Result of -1://タイムアウト begin TerminateThread(FileExistsThread.Handle,0); Result := False; end; 0:Result := True; 1:Result := False; else Result := False; end; end;