掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
テキストファイル出力の完了を待つには？ (ID:22949)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
解決されてますが・・・以下はどうでしょうか？ ファイルサイズを監視して、不変になれば完全に作成されたと判断してます。 var SearchRec: TSearchRec; boFileMakeDone: Boolean; lwFileSize: Longword; saFileName: AnsiString; begin lwFileSize := 0; boFileMakeDone := False; while not boFileMakeDone do begin FindFirst(saFileName, faAnyFile, SearchRec); try if (lwFileSize <> Longword(SearchRec.Size)) or (lwFileSize = 0) then begin lwFileSize := SearchRec.Size; //ファイルサイズ取得 sleep(100); //ちょっと待つ end else boFileMakeDone := True; //ファイルが完全に作成された finally FindClose(SearchRec); end; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.