+- Curl Global Community (https://communities.curl.com)
+-- Forum: Discussions (https://communities.curl.com/forumdisplay.php?fid=1)
+--- Forum: General Curl questions (https://communities.curl.com/forumdisplay.php?fid=2)
+--- Thread: 圧縮ファイルの作成 (/showthread.php?tid=832)
圧縮ファイルの作成 - umemura - 01-29-2013
Curl で、圧縮ファイル（ZIPやLZHなど）を作成することは可能ですか？
また、指定したフォルダを圧縮することはできますか？
できるとしたら、それには外部のDLLを利用する必要があるのでしょうか。
RE: 圧縮ファイルの作成 - usami - 01-31-2013
zipの場合、ZIP32.DLL,ZIP32J.DLLを使えばできます。
簡単なzip圧縮例です。ZIP32.DLLとZIP32J.DLLがwindowsのsystemフォルダにあることが条件です。
Code:
{import * from CURL.LANGUAGE.DLL-INTERFACE}
{define-dll-class public ZIP
{defaults
calling-convention = stdcall,
string-rep = CString
}
{constructor public {default}
{construct-super {SharedLibrary "ZIP32J"}}
}
{dll-method public {zip("Zip")
hwnd:CPointer = null,
command:StringInterface (rep = CString)
}:int
}
}
{value
{try
def zip = {ZIP}
|| 圧縮元ファイルパス
def file-path = "c:\\windows\\temp\\log"
|| 圧縮ファイルパス
def zip-path = "c:\\window\\temp\\log.zip"
|| 圧縮コマンド
def rtn = {zip.zip "-r -q " & zip-path & " " & file-path}
|| エラー判定
{if rtn != 0 then
{output "Error Code = " & rtn}
}
catch e:Exception do
{output e.message}
}
}RE: 圧縮ファイルの作成 - umemura - 01-31-2013
やはり、外部dll が必要ですよね。
SharedLibrary のヘルプを見ると、curl://install/bin など、いくつかのディレクトリを自動で検索してくれるんですね。
Windows の system システムフォルダは、下記のPATH環境変数に入っているから、ということでしょうか。
勉強になりました。ありがとうございます。
Code:
{get-from-host-environment "path"}RE: 圧縮ファイルの作成 - Kaneko - 05-23-2013
古いスレッドに返信するのも、どうかと思ったんですが、後の人が見るかもしれないので。
DeflateByteOutputStream で圧縮
InflateByteInputStream で解凍
が出来ます。
圧縮形式はzlibかgzipですが。。。
RE: 圧縮ファイルの作成 - umemura - 05-24-2013
圧縮API を教えていただき、ありがとうございます。
ただ、私が現在使っている解凍ソフト「+Lacha」では、解凍されませんでした
てっきりZIP形式=gzip と思っていたのですが、実際には異なり、
「+Lhaca」では、gzip、zlib の形式に対応していない、という認識です。
サーバとファイルをやり取りしたりする際に、サイズを小さくするためには有益ですね。
Code:
{import * from CURL.IO.ZSTREAM}
{def cmp-dl =
{DropdownList
CompressionFormat.gzip,
CompressionFormat.zlib
}
}
{value cmp-dl}
{CommandButton
label = "圧縮",
{on Action do
{if-non-null u = {choose-file} then
def out = {url u.full-filename & ".zip"}
def dbos =
{DeflateByteOutputStream
{write-open-byte out},
compression-format = cmp-dl.value asa CompressionFormat
}
def (bytes:{Array-of byte}, n:int) = {read-bytes-from u}
{dbos.write bytes}
{dbos.close}
}
}
}RE: 圧縮ファイルの作成 - Kaneko - 05-24-2013
試さずに返信してるので、違ってたらすいません。
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1210471117
gzip=拡張子は"gz"みたいですよ。
上のサイトの情報によると、「+Lhaca」で解凍できるみたいなので、試してみては！？
RE: 圧縮ファイルの作成 - Brendon77 - 07-05-2013
私は、コードを共有するためのおかげでこれをしようとします。