書庫ファイルを正常に解凍できたという判断は (ID:38135)

名前

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

本文 ソースはこんな感じなのですが・・・ cond := arc.UnpackFiles(handle, nil, outputdir, [nil]); //正常に解凍できたら if cond = $0000 then begin //CRCチェック ErrCRC := False; j := arc.FindOpen(handle, M_CHECK_ALL_PATH); j := arc.FindFirst('*.*', IndivisualInfo); //いきなり検索終了したら正常ではない if j = -1 then begin end; //一つずつCRC比較 while j = 0 do begin tmp := IndivisualInfo.szFileName; tmp := AnsiReplaceStr(tmp, '/', '\'); //不正なファイル名の書庫対応 tmp := AnsiReplaceStr(tmp, '>', '_'); tmp := AnsiReplaceStr(tmp, '<', '_'); ArcCRC := '$' + IntToHex(IndivisualInfo.dwCRC, 8); FileCRC := CRC32File(outputdir + '\' + tmp); if CompareText(ArcCRC, FileCRC) <> 0 then begin ErrCRC := True; Break; end; j := arc.FindNext(IndivisualInfo); end; arc.FindClose; if ErrCRC then Continue;