JclCompression
JCL Demoを使用して .zip ファイルを保存 (圧縮) しようとしています。[読み取りと書き込み] タブの [保存] ボタンを押すと、デモが次のように呼び出します。
procedure TFormMain.ActionSaveExecute(Sender: TObject);
begin
(FArchive as TJclCompressArchive).Compress;
CloseArchive;
end;
を実行する(FArchive as TJclCompressArchive).Compress;
と、次の例外が生成されます。また、保存ボタンを押すと、フォームのキャプションに「アプリケーションが応答していません」と表示されることがあるため、デモをシャットダウンする必要があります。
このコードは正しいですか、それとも zip ファイルを正常に圧縮して保存するにはコードを変更する必要がありますか? JclCompression
これらのクラスの使用方法を学習できるように、他のデモはありますか?
この問題を除けば、デモは正しく動作しているようです。zip ファイルを開く、新しい zip ファイルを作成する、ファイルを追加する、ディレクトリからファイルを追加する、選択したファイルを抽出する、すべてを抽出する、zip ファイルのプロパティを取得することができます。節約は難しそうですね。
Windows 7 で Delphi 2010 を使用しています。