HSPTV!掲示板

スレッド一覧 | 新規書き込み | 新着一覧 | 使い方 | 過去ログ

未解決

解決

停止

削除要請


	2011 0325	HSP ZIP圧縮	HSPでZIP圧縮	5

HSP ZIP圧縮

2011/3/25(Fri) 22:28:26|NO.37874

HSPでの解凍方法のサンプルは良く見るのですが

HSPでZIP圧縮などのサンプルは見た事がありません

HSPでZIP等に圧縮するにはどうすればいいのでしょうか？

サンプルソースなどをくれると有難いです...

回答よろしくお願いします ( _ _ )

この記事に返信する

backdrop

2011/3/25(Fri) 23:09:11|NO.37875

ググってみたところKpanさんのLet's HSP!が参考になるかと
「総合アーカイバプロジェクト」(http://www.madobe.net/archiver/index.html)のリンクが張られてました
どうやらIZIP32J.DLLを使うようです
ZIP32J.DLLのダウンロードの下にZIP32.DLLのダウンロードもありますので忘れずにダウンロードしてください

使用するのはZip関数です



#uselib "ZIP32J.DLL"
#cfunc Zip "Zip" sptr, sptr, var, sptr

	sdim ggg, 20000
	a=Zip( hwnd, "-r test.zip test.txt", ggg, 1024*1024 )
	if a != 0 : dialog "Error"

こんなものかな

backdrop

2011/3/25(Fri) 23:11:18|NO.37876

↑の記事(No.37875)に追記
#cfuncは#funcでもOK。
この場合変数aではなくstatが0かどうか調べます

backdrop

2011/3/25(Fri) 23:14:16|NO.37877

一番大事なこと書き忘れた(何度もごめんなさい)
ダウンロードする(使用する）のは、
ZIP32.DLLとZIP32J.DLLです
で、必ずC:\Windows\System32か<HSPディレクトリ>に上のファイルをコピー

skyblue

2011/3/26(Sat) 07:04:00|NO.37889

命令形式の定義ならvectorにarchiveという名前であります。

HSP ZIP圧縮

2011/3/26(Sat) 13:38:36|NO.37893

お蔭様で解決しました！！

本当にありがとうございました！！