掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ネットワークファイルのタイムアウトについて (ID:29650)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こうすれば if FileExistTimeOut(FileName,TimeOut) = True then begin end; みたくできるかな Application.ProcessMessages; は 無い方がいいのかな？ function FileExistTimeOut(const FileName:String;TimeOut:Integer=3000):Boolean; var FileExistsThread : TFileExistsThread; TC : Cardinal; begin FileExistsThread := TFileExistsThread.Create(True); FileExistsThread.FreeOnTerminate := False; FileExistsThread.FileName := FileName; FileExistsThread.Resume; TC := GetTickCount; while (FileExistsThread.Terminated = False) and (GetTickCount - TC < TimeOut) do begin //Application.ProcessMessages; end; case FileExistsThread.Result of -1://タイムアウト begin TerminateThread(FileExistsThread.Handle,0); Result := False; end; 0:Result := True; 1:Result := False; end; FileExistsThread.Free; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.