掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ネットワークファイルのタイムアウトについて (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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.