System.Zip を使ってみる - au2010’s diary
Rad Studio XE2が出ましたね。さっそくいろいろ触ってみたのですが、新たに追加されたZipサポートのSystem.Zipユニットヘルプが全くありません。 特にヘルプ無くても困らなそうですが、軽く触ってみたのでメモ。 使うにはusesにSystem.Zipを追加します。使用出来る圧縮方法は標準だと0(store)と8(deflate)のみ。その他の圧縮方法のサポートについては、クラスメソッドTZipFile.RegisterCompressionHandlerを使用して登録する必要があるようです。 使い方は、指定のファイルまたはフォルダをまとめて圧縮する場合は TZipFile.ZipDirectoryContents(圧縮ファイル名, 圧縮するパス, 圧縮方法(zcDeflate)); これだけです。実際のファイルパスと圧縮ファイル内のパスを変えるとかファイルを1個ずつ指定する場
続・ZIP で圧縮 / 解凍したい (Delphi 2010 以降) [Delphi Programming]
続・ZIP で圧縮 / 解凍したい (Delphi 2010 以降) 以前ご紹介した方法では、自分で圧縮したものを自分で解凍する場合はいいのですが、他のアーカイバで圧縮されたものを解凍しようとするとエラーになる事があります。 今回は、オープンソースで MPL ライセンスな TurboPower Abbrevia を使ってみます。 TurboPower Abbrevia はコンポーネントなので本来はインストールして使うのですが、わざわざポトリペタリして使うよりも、関数でラッピングした方が使い勝手がいいと思いますので、以前ご紹介した方法と同じ引数を持つ同名の関数を作ってみました。 unit ZipFiles; interface uses Windows, SysUtils, IOUtils, AbZipper, AbBase, AbBrowse, AbZBrows, AbUnzper,
DelphiでZIPファイルを作成するには
山本隆の開発日誌 Kotlin/Swift/Flutter/JavaScript/TypeScript/PHPでWindows/macOS/Android/iOS/Webアプリなどを作ってます TZipFileクラス ZIPファイルを作成するには、System.ZipユニットのTZipFileクラスを使用します。 uses System.Zip; ファイルを開く Openメソッドで作成するZIPファイルのファイル名を指定します。 var ZipFile: TZipFile; begin ZipFile := TZipFile.Create; //ZIPファイルを書き込むために開く ZipFile.Open('C:\test\sample.zip', zmWrite); ZIPファイルにファイルを追加する AddメソッドでZIPファイルにファイルを追加します。 第1引数に追加するファイルのフ
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
TStreamReader no longer works for "forward only" streams - QualityCentral
GitHub - rburgstaler/tpabbrevia: TurboPower Abbrevia (fork from http://sourceforge.net/projects/tpabbrevia/)
TurboPower Abbrevia
archived.at - このウェブサイトは販売用です！ - archived リソースおよび情報
Exception while using TStreamReader with TZipFile | The curse of Dennis D. Spreen
Delphiで自己展開アーカイブを作成
Zip and Unzip files in Delphi without using a 3rd party component - TMS Software | Blog
