Delphiリアルタイムでファイルサイズを確認する

Question

ファイルのサイズを確認することはできますか？私はファイルが最初にフォルダにコピーされたときに通知を受け取りますが、ファイルを処理する前にコピーが完了するまで待つ必要があります。

私はJclFileUtils.GetSizeOfFile(Filename)を使用しましたが、それは私に現在のファイルサイズではなく「予想される」ファイルサイズを与えます。

よろしくお願いします。ピーター

Answer 1

私はファイルコピーがいつ完了したかを判断しようとすることをあきらめることを決めました。代わりに、TFileStreamを使用すると、ファイルが使用されているかどうかの信頼できる表示が得られました。ファイルはもうそれを処理しようとする前に使用されていないまで、私がチェックしに保つことができる。このように

function IsFileInUse(Filename: string; var ResultMessage: string): boolean; 
var 
    Stream: TFileStream; 
begin 
    Result := True; 
    ResultMessage := ''; 
    try 
    Stream := TFileStream.Create(Filename, fmOpenRead or fmShareDenyWrite); 
    try 
     Result := False; 
    finally 
     FreeAndNil(Stream); 
    end; 

    Except on E: Exception do 
    ResultMessage := 'IsFileInUse: ' + E.Message 
    end; 
end; 

。

Answer 2

コピー機能で使用する技術によって異なります。ほとんどのcopy-methodsは、ファイルのコピーを開始する前にディスク領域を最初に割り当てます。したがって、4 GBのファイルをコピーする場合は、合計4 GBのランダムデータを含むファイルを作成してシステムを開始します。 （それは雷が速く、btw。）それはデータ自体をコピーしますが、ファイルサイズはすでにあなたが期待しているものです。 これは、実際にデータをコピーするのに十分なディスク容量があるかどうかをsysmenが確認できるという利点があります。

独自のファイルコピー機能を作成すると、ファイルコピー機能を完全に制御できます。そうでなければ、選択したコピー方法が提供するものに限られます。だから、どのようにファイルをコピーしますか？

Answer 3

ファイルのコピー処理を制御できるのであれば、コピールーティンに一時ファイル名を使用してファイルを作成させるのが最も簡単です。完了したら、ファイル名を修正するように名前を変更します。 そのようにして、Windowsフォルダの監視を使って名前の変更を監視することができます（JCLには、これを支援するコンポーネントが含まれていますが、ここからの名前はわかりません）。コードがトリガされると、相手側がファイルの書き込みを完了したことを確認できます。 私が使った簡単なトリックは、コピープロセスが '$$$'拡張子の新しいファイルを作成することでした。私のコードはまだそれらのために誘発したが、彼らは彼らの適切なファイル名に改名されるまでそれらを無視した。

これが役に立ちます。