---

さるもすなるぷろぐらむ�U　　zip file list

---

●ＰＨＰでWindowsアプリケーションを作る−ZIP書庫内のリストを出力する

■はじめに
　ひょんなことから、圧縮したZIP形式ファイルの中身をリスト（紙）に出したくなりました。
　フリーのその手のツールを探しましたが、ぴったりするものが見つかりませんでした。画面に表示する機能はあるが、紙に出せなかったり、出せてもファイル名が化けたり。
　UNIX系ならzipinfoコマンドで出せそうだけど・・・・
　ここで、おぼえたてのPHPにZIPファイルをアクセスできるライブラリ／関数が準備されているのを見つけたので、Windowsのアプリにできないか試しました。

　・・・・ハマリました。そんなに簡単にはいきませんでした。別の手段（C言語とか)でまともに勉強してから作った方が早かったかも。
　でも、とりあえず何とかなったので、ここで公開します。


■開発するための環境
　Eclipse（Pleiades）、WinBinder、Bamcompileを環境として使いました。
　開発環境については、ここのテーマの「ＰＨＰ−はじめの半歩」、 　「ＰＨＰからWindowsアプリケーションを作る−はじめの半歩」を参照してください。


■おおよその開発手順
　（１）Eclipseの環境でZIP形式リストを出力するコアの処理を作成／テストする。
　（２）(1)でそこそこ動いたら、Bamcompileの環境でコンパイルしてみる。
　（３）WinBinderでGUIを作って完成形のプログラムを作る。
　（４）再度Bamcompileでビルドして動作を確認する。


■ハマったこと
・PHPには何種類かZIPファイルをアクセスするライブラリ（関数セット）が何種かあるが、 書庫内のリストを出力するぴったりの関数が無い？

・最初zip関数を使ったが、(2)で動かなかった。
　＝＞DLLの取り込みが必要？＝＞利用断念。

・次にZipArchiveクラスを使用して見たが(2)で動かない。
　＝＞PHP4では使えない？DLLの取り込みもやって見たがダメ。＝＞利用断念。

・次にPEAR::Archive_Zipクラスを使用してみた。書庫内ファイルのファイル属性を取り出す仕掛けがない。
　＝＞EclipseのPHP動作環境に含まれるZip.phpとPEAR.phpをコンパイル環境にコピーして、
　＝＞Zip.php内の_convertHeader2FileInfo()をカスタマイズしました。

・ここで、ZIPファイルに含まれる圧縮ファイルのファイル名が日本語だった場合、 作成した環境によって文字コードが異なるという情報が・・・・ なので、UTF-8だったら単純にリスト出力したら文字化けするでしょう。
　＝＞今回は放置。Windowsで作成したZIPファイルのみサポート。

・(3)でGUIを作たが、動かない。
　＝＞ZIPアクセスを行う関数の直前にinclude_oneceでZip.phpをインクルードしていたが、それが悪かったみたい。 先頭の方に持っていったら、動いた。

・スクリプト実行して動いたphpwをBamcompileして、正常にビルドできるのに動かない。 　それとアイコンを指定しているが、exeのアイコンが変わらない。
　＝＞Bamcompileのbcp内の記述に今までの「試し」の内容をコメント（；・・・・）で残してあった。 どうもそれが悪さをしているみたい。

　上記のような内容を「変更してみては、試す」的にやって、何とか動くところまで持ってきました。


■サンプルソース
　こんなソースです。
＜phpw＞
<?php //****************************************************************************** //ＰＨＰで作るWindowプログラム　その２ // //****************************************************************************** include "Zip.php"; //****お決まり。必ず必要なインクルード //include "../../../WinBinder/phpcode/include/winbinder.php"; include "include/winbinder.php"; //****定数 define('MY_NAME', "ＺＩＰファイルリスト出力"); //****グローバル変数 $Lstfp = null; //****フォームエディタ（FE）で作られたソース。 //××リストボックス項目のダブルクリックを取得する場合は、 //××wb_create_windowでstyle指定で、WBC_NOTIFYとWBC_DBLCLICKが必要。 //××ただし、後者はFEでは指定できないため、必ずformの編集が必要。 include "saruziplist.form.php"; //****ウィンドウへ"process_main"関数をメッセージハンドラとして割り当てている。 //****FEで作成されるメインウィンドウIDは、$winmainなので変更。 $MWindow = $winmain; wb_set_handler($winmain, "process_main"); wb_set_focus(wb_get_control($winmain, IDC_EDTZIP)); //****ここでウィンドウ のメインループに入る。これより後に、実行文を書いてはならない。 wb_main_loop(); //****************************************************************************** //メッセージハンドラ // $window ウィンドウオブジェクト // $id コントロールID //****************************************************************************** function process_main($window, $id, $ctrl=0, $param1=0, $param2=0) { static $listfile_filter = array( array("zip files", "*.zip"), array("All files", "*.*") ); switch ($id) { //****(ZIP)参照ボタンをクリックされたら case IDC_BTNZIPSEL: //ファイル選択ダイアログを表示 $zipfile = wb_sys_dlg_open($window, "ＺＩＰファイル選択", $listfile_filter); //wb_message_box($window, "selected file=".$zipfile); //選択されたファイル（パス）をエディットにセットする。 wb_set_text(wb_get_control($window,IDC_EDTZIP), $zipfile); break; //****(出力先)参照ボタンをクリックされたら case IDC_BTNOUTSEL: //パス選択ダイアログを表示 $lstfile = wb_sys_dlg_path($window, "出力先ディレクトリ選択"); //wb_message_box($window, "selected file=".$lstfile); //選択されたファイル（パス）をエディットにセットする。 wb_set_text(wb_get_control($window,IDC_EDTLIST), $lstfile."\\"); break; //****リスト出力ボタンをクリックされたら case IDC_BTNLISTUP: //エディットからファイルパス名を取得 $zipfile = wb_get_text(wb_get_control($window,IDC_EDTZIP)); //wb_message_box($window, "input file name=".$zipfile); //ファイルパスをチェックする。 if ($zipfile == "" || $zipfile == null) { wb_message_box($window, "［参照］ボタンでオープンするファイルを指定してください。", MY_NAME, WBC_WARNING); wb_set_focus(wb_get_control($window, IDC_BTNZIPSEL)); break; } //エディットからファイルパス名を取得 $lstfile = wb_get_text(wb_get_control($window,IDC_EDTLIST)); //wb_message_box($window, "input file name=".$lstfile); //ファイルパスをチェックする。 if ($lstfile == "" || $lstfile == null) { wb_message_box($window, "保存先ファイル（パス）を指定してください。", MY_NAME, WBC_WARNING); wb_set_focus(wb_get_control($window, IDC_EDTLIST)); break; } //ZIPファイル内のファイルのリストを書き出す。 PutListFile($window, $zipfile, $lstfile); break; //****【x】ボタンが押されたら case IDCLOSE: //****ウィンドウを終了する。 wb_destroy_window($window); break; } //end switch } //end function //****************************************************************************** //ファイル書き出し // $window ウィンドウオブジェクト // $zipfile ZIPファイル名 // $lstfile 出力先ファイル名 //****************************************************************************** function PutListFile($window, $zipfile, $lstfile) { //****タブ区切りデータファイルをオープン if (!file_exists($zipfile)) { wb_message_box($window, "ＺＩＰファイルのオープンに失敗しました。", MY_NAME, WBC_WARNING); return; } //****出力先ファイルをオープン //wb_message_box($window, file_exists($lstfile)); if (file_exists($lstfile)) { //****ファイルが既にある場合 //wb_message_box($window, is_file($lstfile)); if (is_file($lstfile)) { $okng = wb_message_box($window, "既にあるファイルに上書きしますか？", MY_NAME, WBC_OKCANCEL); if ($okng == false) return; } //****ディレクトリだったりしたら else { wb_message_box($window, "出力先にディレクトリ名が指定されています。", MY_NAME, WBC_WARNING); return; } } ziplistup($zipfile, $lstfile, $window); return; } //end fuction //****************************************************************************** // ZIPのエントリを出力するサンプルソース // Zip.php(PEAR::Archive_Zip)を利用する // 一応　実用版 //****************************************************************************** //require_once ('Zip.php'); function ziplistup($zip_name, $lst_name, $window) { global $Lstfp; $fcnt = 0; //file count $dcnt = 0; //directry count $total_size = 0; //total size of all $compd_size = 0; //total size of compressed files //出力先ファイルオープン $Lstfp = fopen($lst_name, "w"); if ($Lstfp == false) { wb_message_box($window, "データファイルのオープンに失敗しました。", MY_NAME, WBC_WARNING); //exit; return; } //zipファイル名出力 fwrite($Lstfp, "***** ZIP FILE NAME: ". $zip_name ."\r\n"); //****PEAR::Archive_Zipクラス・オブジェクト作成 $zip = new Archive_Zip($zip_name); //wb_message_box($window, "Archive_Zip", MY_NAME, WBC_WARNING); //****エントリリストの取得 //※Zip.php内の_convertHeader2FileInfo()をカスタマイズ $entry_info = $zip->listContent(); //　[filename] file name(path) //　[stored_filename] stored file-name(path) //　[size] orignal file size //　[compressed_size] complressed size //　[mtime] file last update(unix-time) //　[comment] comment? //　[folder] folder =>if dir then 1 //※[prop] file property => 0x20:achive, 0x10:dir,・・・ //　[index] index no //　[status] status? => 'ok' //print_r($entry_info); $max_cnt = count($entry_info); //echo "max size: " . $max_cnt ."\r\n"; $cnt = 0; if ($max_cnt != 1 || $entry_info[$cnt]['filename'] != "") { $path_enm_prev = array(); $path_enm_now = array(); $layer_cnt_prev = 0; $layer_cnt_now = 0; while ($cnt < $max_cnt) { //パスをフォルダ名に分割 $path_enm_now = explode("/", $entry_info[$cnt]['filename']); //フォルダの階層を求める $layer_cnt_now = count($path_enm_now); //print_r($path_enm_now); //前のファイルとの同一階層検索の最大値 if ($layer_cnt_now < $layer_cnt_prev) $max_same = $layer_cnt_now; else $max_same = $layer_cnt_prev; //前のファイルとの同一階層検索 for ($jcnt=0; $jcnt < $max_same; $jcnt++) { if ($path_enm_now[$jcnt] != $path_enm_prev[$jcnt]) break; } $same_layer_cnt = $jcnt; //前のファイルと同じ階層（フォルダ）なら if ($same_layer_cnt == $layer_cnt_prev - 1) { //何もしないで、次 } else { //ブランク（ただし、Tree線は書く）行出力 put_oneline($same_layer_cnt, null, null); //ブランク行 } //前と一致しない階層（サブフォルダ）行出力 for ($jcnt=$same_layer_cnt; $jcnt < $layer_cnt_now-1; $jcnt++) { //フォルダ名行出力 put_oneline($jcnt, $path_enm_now[$jcnt], 1); //フォルダ行 $dcnt++; } if ($entry_info[$cnt]['folder'] == 1) { //put_oneline($jcnt, $path_enm_now[$jcnt], 1); //フォルダ行 } else { put_oneline($jcnt, $path_enm_now[$jcnt], 2, $fcnt, $entry_info[$cnt]); //ファイル行 $fcnt++; $total_size += $entry_info[$cnt]['size']; $compd_size += $entry_info[$cnt]['compressed_size']; } //echo "index :" .$entry_info[$cnt]['index'] ."\r\n"; //echo "file name: " .$entry_info[$cnt]['filename'] ."\r\n"; //echo "file size: " .$entry_info[$cnt]['size'] ."\r\n"; //echo "file date: " .date('Y-m-d H:i:s', $entry_info[$cnt]['mtime']) ."\r\n"; //echo "complession size: " .$entry_info[$cnt]['compressed_size'] ."\r\n"; //echo "prop: " .sprintf("%04x", $entry_info[$cnt]['prop']) ."\r\n"; $cnt++; $path_enm_prev = $path_enm_now; $layer_cnt_prev = $layer_cnt_now; } fwrite($Lstfp, "\r\n"); //ファイル数出力 fwrite($Lstfp, "***** FILE COUNT: ". $fcnt ."\r\n"); //フォルダ数出力 fwrite($Lstfp, "***** DIRECTORY COUNT: ". $dcnt ."\r\n"); //圧縮前ファイルサイズ合計出力 fwrite($Lstfp, "***** ORIGINAL FILES TOTAL SIZE: ". $total_size ."\r\n"); //圧縮後ファイルサイズ合計出力 fwrite($Lstfp, "***** COMPRESSED FILES TOTAL SIZE: ". $compd_size ."\r\n"); //圧縮率出力 if ($total_size != 0) fwrite($Lstfp, "***** COMPRESSIBILITY: ". intval($compd_size/$total_size*100) ."%\r\n"); //zipファイルサイズ出力 fwrite($Lstfp, "***** ZIP FILE SIZE: ". filesize($zip_name) ."\r\n"); } else { echo "file not found or empty!!!\r\n"; } fclose($Lstfp); //echo "end saruziplist !!!\n"; wb_message_box($window, "リストを出力しました。", MY_NAME, WBC_INFO); return; } //****************************************************************************** // 1行（ファイル／フォルダ）単位に出力 // $depth :階層の深さ // $name :表示する名前 // $type :出力タイプ（null：ブランク（｜のみ）、1：フォルダ、2：ファイル） // $no :ファイル番号（0〜） // $entry :ファイルエントリ情報 //****************************************************************************** function put_oneline($depth, $name, $type, $no=-1, $entry=null) { global $Lstfp; $sline = ""; if ($type == 2) $sline .= sprintf("%04d", $no+1); else $sline .= " "; //罫線（｜）出力 for ($icnt=0; $icnt<$depth; $icnt++) { $sline .= " |"; } switch ($type) { case 0: //ブランク行 //$sline .= "\r\n"; break; case 1: //フォルダ行 $sline .= "-" .$name; break; case 2: //ファイル行 $sline .= "-" .$name; break; } if ($type != 0) { //行の長さを固定長にする if (strlen($sline) < 46) { //空白を補填 $sline = str_pad($sline, 46); } else { //改行して、罫線を出力し、空白を補填 $sline .= "\r\n"; $snext = " "; for ($icnt=0; $icnt<$depth; $icnt++) { $snext .= " |"; } $snext = str_pad($snext, 46); $sline .= $snext; } //ファイル情報出力 if ($type == 1) { $sline .= "<DIR> "; } else { //ファイルサイズ $sline .= str_pad(sprintf("%d", $entry['size']), 9, " ", STR_PAD_LEFT); //ファイル属性 $sline .= " "; if (($entry['prop'] & 0x20) != 0) $sline .= "a"; else $sline .= "-"; if (($entry['prop'] & 0x01) != 0) $sline .= "r"; else $sline .= "-"; if (($entry['prop'] & 0x02) != 0) $sline .= "h"; else $sline .= "-"; if (($entry['prop'] & 0x04) != 0) $sline .= "s"; else $sline .= "-"; //最終更新日 $sline .= " " . date('Y-m-d H:i:s', $entry['mtime']); } } $sline .= "\r\n"; fwrite($Lstfp, $sline); return; } ?>

＜form.php＞
<?php /******************************************************************************* WINBINDER - form editor PHP file (generated automatically) *******************************************************************************/ // Control identifiers if(!defined('IDC_EDTZIP')) define('IDC_EDTZIP', 1001); if(!defined('IDC_CMBCHARSET')) define('IDC_CMBCHARSET', 1002); if(!defined('IDC_EDTLIST')) define('IDC_EDTLIST', 1003); if(!defined('IDC_BTNZIPSEL')) define('IDC_BTNZIPSEL', 1004); if(!defined('IDC_BTNOUTSEL')) define('IDC_BTNOUTSEL', 1006); if(!defined('IDC_BTNLISTUP')) define('IDC_BTNLISTUP', 1007); // Create window $winmain = wb_create_window(null, AppWindow, 'ＺＩＰファイルリスト出力', WBC_CENTER, WBC_CENTER, 540, 240, 0x00000000, 0); // Insert controls wb_create_control($winmain, Label, 'ZIPファイル', 20, 20, 80, 15, 0, 0x00000000, 0, 0); wb_create_control($winmain, Label, '作成元（文字コード）', 20, 60, 120, 15, 0, 0x00000000, 0, 0); wb_create_control($winmain, Label, '出力先', 20, 110, 55, 15, 0, 0x00000000, 0, 0); wb_create_control($winmain, EditBox, '', 105, 20, 315, 20, IDC_EDTZIP, 0x00000000, 0, 0); wb_create_control($winmain, PushButton, '参照', 435, 15, 60, 25, IDC_BTNZIPSEL, 0x00000000, 0, 0); wb_create_control($winmain, ComboBox, 'S-JIS,EUC,UTF-8', 145, 55, 120, 60, IDC_CMBCHARSET, 0x00000042, 1, 0); wb_create_control($winmain, EditBox, '', 105, 110, 315, 20, IDC_EDTLIST, 0x00000000, 0, 0); wb_create_control($winmain, PushButton, '参照', 440, 105, 60, 25, IDC_BTNOUTSEL, 0x00000000, 0, 0); wb_create_control($winmain, PushButton, 'リスト出力', 220, 160, 90, 25, IDC_BTNLISTUP, 0x00000000, 0, 0); // End controls ?>

＜bcp＞
MAINFILE saruziplist.phpw OUTFILE saruziplist.exe ICON res/sarumosunaru.ico WINDOWED COMPRESS DESTINATION / EMBED src/saruziplist.phpw EMBED src/saruziplist.form.php EMBED src/Zip.php EMBED src/PEAR.php DESTINATION include EMBED ..\..\WinBinder\phpcode\include\winbinder.php EMBED ..\..\WinBinder\phpcode\include\wb_generic.inc.php EMBED ..\..\WinBinder\phpcode\include\wb_resources.inc.php EMBED ..\..\WinBinder\phpcode\include\wb_windows.inc.php EXTENSION ..\..\WinBinder\binaries\php4\ext\php_winbinder.dll


■こんな感じ
　以下のような絵が出て、



　ZIPファイルと出力先を指定すると、こんな内容が出力されます。

***** ZIP FILE NAME: C:\My Documents\PPbugMan\初級編２\CD\おさるのかご屋2rev2.zip 0001-おさるのかご屋2rev2.pdf 2631384 a--- 2010-11-14 00:16:06 -「花」動画 <DIR> 0002 |-hana1-1.wmv 1154172 a--- 2009-09-20 21:06:42 0003 |-hana2-1.wmv 998196 a--- 2009-09-20 21:52:06 0004 |-hana3-1.wmv 2448272 a--- 2009-09-20 20:13:50 0005 |-hana4-1.wmv 2452604 a--- 2009-09-20 20:48:18 0006 |-hana5-1.wmv 1445920 a--- 2009-09-20 20:57:46 -「取っ手I」動画 <DIR> 0007 |-totteend.wmv 6045328 a--- 2009-06-18 05:36:50 0008 |-tottesta.wmv 3142924 a--- 2009-06-18 05:48:56 -photo <DIR> 0009 |-mk1-1.jpg 58112 a--- 2010-08-11 23:04:06 0010 |-mk1-2.jpg 58213 a--- 2010-08-11 23:03:28 0011 |-mk1-3.jpg 58529 a--- 2010-08-11 23:02:50 0012 |-mk1-4.jpg 58470 a--- 2010-08-11 23:02:16 0013 |-mk1-5.jpg 57915 a--- 2010-08-11 23:01:44 0014 |-mk2_1.jpg 58535 a--- 2009-05-10 06:44:36 0015 |-mk2_2.jpg 131845 a--- 2010-11-10 00:28:28 0016 |-mk3-1.jpg 40648 a--- 2010-08-15 11:37:50 0017 |-mk3-1s.jpg 18165 a--- 2010-08-12 15:17:06 0018 |-mk3-2.jpg 49628 a--- 2010-08-15 11:39:56 0019 |-mk3-3.jpg 32502 a--- 2010-08-15 11:40:24 0020 |-mk4-1.JPG 54886 a--- 2010-09-19 12:24:02 0021 |-mk4-2.JPG 56406 a--- 2010-09-19 12:23:46 0022 |-mk4-3.JPG 55682 a--- 2010-09-19 12:24:16 0023 |-mk4-4s.JPG 14960 a--- 2010-09-12 22:52:46 0024 |-mk4-5.JPG 60837 a--- 2010-09-05 03:20:34 0025 |-mk5-1.jpg 62728 a--- 2010-09-23 17:28:44 0026 |-mk5-2.jpg 59188 a--- 2010-09-23 05:05:54 0027 |-mk5-3.jpg 54292 a--- 2010-09-23 17:37:28 0028 |-mk5-4.jpg 50801 a--- 2010-09-23 17:36:48 0029 |-mk5-5.jpg 131071 a--- 2010-09-23 20:47:26 0030 |-mk6-1m.jpg 57194 a--- 2010-08-15 23:25:32 0031 |-mk6-2.jpg 49315 a--- 2010-09-19 12:26:50 0032 |-mk6-3.jpg 50311 a--- 2001-01-01 18:17:20 0033 |-mk6-4.JPG 139096 a--- 2010-09-19 12:28:12 0034 |-mk7-1.jpg 75744 a--- 2010-11-06 18:23:28 0035 |-mk7-2.jpg 58167 a--- 2010-10-23 06:27:34 0036 |-mk7-3.jpg 59094 a--- 2010-10-23 06:28:26 0037 |-mk7-4.jpg 41397 a--- 2010-11-07 00:04:50 0038 |-mk7b-1..jpg 25316 a--- 2009-05-10 22:11:00 0039 |-mk7b-2.jpg 56084 a--- 2009-10-12 08:17:30 0040 |-mk7b-3.jpg 22670 a--- 2009-05-10 22:07:36 0041 |-mk7b-4.jpg 64414 a--- 2009-10-12 08:17:32 0042 |-Thumbs.db 1068032 a-hs 2010-09-12 22:55:58 ***** FILE COUNT: 42 ***** DIRECTORY COUNT: 3 ***** ORIGINAL FILES TOTAL SIZE: 23309047 ***** COMPRESSED FILES TOTAL SIZE: 21553775 ***** COMPRESSIBILITY: 92% ***** ZIP FILE SIZE: 21558403

　EXEとスクリプトのソース一式はここからダウンロードいただけます。よろしければどうぞ。