0

Delphi 2007 で JEDI JCL を使用していくつかのファイルを圧縮しようとしています。問題は、このエラーが何度も発生する理由が分からないことです " Sevenzip: Failed to load 7z.dll"

私のコードは次のとおりです。

var
   archiveclass: TJclDecompressArchiveClass;
   archive: TJclDecompressArchive;
   item: TJclCompressionItem;
   s: String;
   i: Integer;
begin
   archiveclass := GetArchiveFormats.FindDecompressFormat(dir);

   if not Assigned(archiveclass) then
      raise Exception.Create('Could not determine the Format of ' + dir);

   archive := archiveclass.Create(dir);
   try
      if not (archive is TJclSevenZipDecompressArchive) then
         raise Exception.Create('This format is not handled by 7z.dll');

      archive.ListFiles;

      s := Format('test.zip Item Count: %d'#13#10#13#10, [archive.ItemCount]);

      for i := 0 to archive.ItemCount - 1 do
      begin
         item := archive.Items[i];
         case item.Kind of
            ikFile:
               s := s + IntToStr(i+1) + ': ' + item.PackedName + #13#10;
            ikDirectory:
               s := s + IntToStr(i+1) + ': ' + item.PackedName + '\'#13#10;//'
         end;
      end;

      if archive.ItemCount > 0 then
      begin
//         archive.Items[0].Selected := true;
//         archive.ExtractSelected('F:\temp\test');

         archive.ExtractAll('F:\temp\test');
      end;

      ShowMessage(s);
   finally
      archive.Free;
   end;

Delphi プロジェクトと同じフォルダに 7z.dll があります。私は何を間違っていますか？また、フォルダを7zする簡単な方法は他にありますか? フォルダーから zip を作成するためだけに、複雑なタスクを探しているわけではありません。

4

1 に答える 1

5

JCLCompression ユニットは、7z API のみを JCLCompression クラス内にラップします。7z API 自体は、SevenZip.pasユニット ( JCL ソースのwindowsフォルダー内) にあります。これは、7z.dll がロードされる場所です (必要に応じてLoad7Zipルーチンによって)。

その DLL への動的リンクを使用してプロジェクトをコンパイルしているように見えます。その結果、DLL はロードされて EXE にリンクされるのではなく、必要なときにのみロードされます。ロードが失敗し、例外に表示されるエラー メッセージは、実行時にその DLL を検索またはロードする際に問題があることを示しています。

確認事項:

  • 7z.dllがEXE と同じフォルダーにあることを確認します( DPRソース ファイルではなく、実行時の EXE) 。

  • 使用している7z.dllが 32 ビットであることを確認してください。 Delphi 2007は 32 ビットの実行可能ファイルのみを生成するため、64 ビット OS でも、Delphi アプリケーションには32 ビット バージョンの 7z.dllが必要です。

于 2014-12-17T19:24:31.687 に答える