LHAによる圧縮と解凍のプログラム: 健康なエンジニアのブログ

<< 2010年12月 >>
日	月	火	水	木	金	土
			1	2	3	4
5	6	7	8	9	10	11
12	13	14	15	16	17	18
19	20	21	22	23	24	25
26	27	28	29	30	31

<< モロゾフのデンマーククリームチーズケーキ | TOP | C++Builderのイースターエッグ（うらわざ） >>

2005年07月31日

LHAによる圧縮と解凍のプログラム

日本人であれば、誰しも LHA形式（LZH形式）によるファイル圧縮を行ったことがあるのではないだろうか？
今回は、LHA（LZH）形式による圧縮／解凍プログラムを紹介する。

①まずは UnLha32 を用意する
　下記のサイトからUnLha32をダウンロードする。

　　Micco's HomePage
　　http://www2.nsknet.or.jp/~micco/micindex.html

　このパッケージから「UNLHA32.H」と「UNLHA32.DLL」を取得して使用する。
　（標準で含まれている「UnLha32.LIB」は使用しない。）

②以下の手順でインポートライブラリを作成する
　　・「UnLha32.DLL」を適当なフォルダにコピーする
　　・コマンドプロンプトを開き、上記のフォルダに移動する
　　・「IMPLIB UnLha32.LIB UnLha32.DLL」を実行して LIBファイル（インポートライブラリ）を作成する

③プロジェクトを作成して、上記で作成したインポートライブラリ（.LIB）をプロジェクトに追加する。

④フォームにボタン×２、メモ×１を配置して、下記の画面を作成する
　また、画面にTOpenDialogを貼り付け、OpenDialog1の「ofAllowMultiSelect」は「true」にする。
　（要は、圧縮の際、複数のファイルを選択できるようにする。）

⑤「Unit1.h」に「FileCtrl.hpp」を include する

⑥「Unit1.cpp」を下記のように編集する

//---------------------------------------------------------------------------
#include 　　//追加
#include 　　　　//追加

#include
#pragma hdrstop

#include "Unit1.h"
#include "unlha32.h"　　//追加
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
　　: TForm(Owner)
{
}
//---------------------------------------------------------------------------
//圧縮
void __fastcall TForm1::Button1Click(TObject *Sender)
{
　　//オープンダイアログ実行
　　if (OpenDialog1->Execute() == true)
　　{
　　　　//オープンダイアログでファイルが選択された場合
　　　　AnsiString asParam;
　　　　for (int index = 0; index < OpenDialog1->Files->Count; index++)
　　　　{
　　　　　　//選択されたファイル名をスペースで区切って１つの文字列にする
　　　　　　asParam += " " + OpenDialog1->Files->Strings[index];
　　　　}

　　　　//セーブダイアログの初期ディレクトリを設定
　　　　SaveDialog1->InitialDir = ExtractFileDir(OpenDialog1->FileName);

　　　　//セーブダイアログ実行
　　　　if (SaveDialog1->Execute())
　　　　{
　　　　　　//セーブダイアログで圧縮ファイル名が指定された場合
　　　　　　//パラメータ文字列の作成
　　　　　　asParam = "a " + SaveDialog1->FileName + asParam;

　　　　　　//圧縮処理
　　　　　　char bResult[4096];
　　　　　　int ret = Unlha(Handle, asParam.c_str(), bResult, sizeof(bResult));
　　　　　　if (ret == 0)
　　　　　　{
　　　　　　　　//処理結果が正常の場合
　　　　　　　　Memo1->Lines->Add(bResult);
　　　　　　　　Memo1->Lines->Add("圧縮完了");
　　　　　　}else
　　　　　　{
　　　　　　　　//処理結果が異常の場合
　　　　　　　　Memo1->Lines->Add("圧縮エラー");
　　　　　　}
　　　　}
　　}
}
//---------------------------------------------------------------------------
//解凍
void __fastcall TForm1::Button2Click(TObject *Sender)
{
　　//オープンダイアログ実行
　　if (OpenDialog1->Execute())
　　{
　　　　//オープンダイアログでファイルが選択された場合
　　　　//展開先のディレクトリを選択する
　　　　AnsiString SelectDir;
　　　　if (SelectDirectory("タイトル名", "\\", SelectDir))
　　　　{
　　　　　　//ディレクトリが選択された場合
　　　　　　//ディレクトリ名の最後に"\"を付加
　　　　　　SelectDir = IncludeTrailingBackslash(SelectDir);

　　　　　　//パラメータ文字列作成
　　　　　　AnsiString asParam;
　　　　　　asParam = "x " + OpenDialog1->FileName + " " + SelectDir;

　　　　　　//解凍処理
　　　　　　char bResult[4096];
　　　　　　int ret = Unlha(Handle, asParam.c_str(), bResult, sizeof(bResult));
　　　　　　if (ret == 0)
　　　　　　{
　　　　　　　　//処理結果が正常の場合
　　　　　　　　Memo1->Lines->Add(bResult);
　　　　　　　　Memo1->Lines->Add("解凍完了");
　　　　　　}else
　　　　　　{
　　　　　　　　//処理結果が異常の場合
　　　　　　　　Memo1->Lines->Add("解凍エラー");
　　　　　　}
　　　　}
　　}
}
//---------------------------------------------------------------------------

⑦できあがり
　圧縮、解凍のテストを行う。
　尚、ファイル圧縮時のファイル選択では、複数のファイルを選択できる。

⑧以下はソースと実行ファイル。
　開発環境 (lha_src.zip)
　実行ファイル (lha_exe.zip)

・・・もし、これらの情報が少しでも役に立ったら、右上の広告をクリックしてほしいな・・・。m(__)m

【関連する記事】

posted by かねやん at 09:46| Comment(4) | TrackBack(4) | C++Builder6 |

この記事へのコメント

TBをいただき、ありがとうございます。

最近Builder触ってないなぁ・・。
時間が経つと、自分が書いたプログラム
さえ読めなくなってしまうんですよね。
(´･ω･`)

Posted by めそ at 2005年07月31日 23:58

トラックバックいただきました。
C++Builderは、ここしばらく全然アップグレードされていないんですけど、次のDelphiに統合されたら、どうなるんでしょうかね。

Posted by Kaz at 2005年09月01日 21:09

http://www.berefood-maniaicix-orgy.barefootmaniac.net || http://www.berefood-maniac-jasmine-vid.barefootmaniac.net || http://www.barefod-maniacs-toesucking-julian-videos.barefootmaniac.net || http://www.toes-american-movies.lovely-feet.com || http://www.footfetish-teenie-pics.lovely-feet.com || http://www.foots-homosexuals-masturbation.lovely-feet.com || http://www.videos-handjobs-tugjobs.hand-jobz.com || http://www.handjobs-xxx-britney.hand-jobz.com || http://www.calem-toes-french-free.mrkameltoe.net || http://www.cameltoe-erotic-mpgs.mrkameltoe.net || http://www.nude-foto.ohputa.com || http://www.swinger-bolivia.ohputa.com || http://www.big-tities-round-asses-brandy-sex.titsroundasses.net || http://www.big-tities-round-ass-brandy-sex.titsroundasses.net || http://www.jodase-en-la-oficina-tocando-pelcula.xxxdesnudo.com || http://www.sexo-en-la-cama-rubia-pelcula.xxxdesnudo.com || http://www.pitki-foto.pff.cieszyn.pl || http://www.fiut-may-zdjcie.pff.cieszyn.pl || http://www.biseks-i-grube.xx.glogow.pl || http://www.seksi-faceci.xx.glogow.pl ||

Posted by delfd at 2006年04月04日 21:35

Posted by adult amatuer women at 2006年10月03日 09:16

コメントを書く

この記事へのトラックバック

Windows2000デバイスドライバ入門―基本I/O制御のテクニックからWDMドライバの作成まで
Excerpt: 「Windows2000デバイスドライバ入門―基本I/O制御のテクニックからWDMドライバの作成まで」へのトラックバックを受け付けました。
Weblog: amaseek.jp
Tracked: 2005-07-31 11:48

mature hugecock spanking free asian bondage
Excerpt: Hi
Weblog: domination cartoons 01/12
Tracked: 2005-12-01 23:54

asian teens
Excerpt: <a href="http://ulrichlord.homeip.net/asian/asian-big-boobs.html">asian</a> nice butt <a href="http://ulrichlord.homeip.net/asian/asian-spanking.html">asian</a> teen pussy <a href="http://ulrichlord.homeip.net/asian/asian-lingerie.html">asian beauties</a> asian sluts <a href="http://ulrichlord.homeip.net/asian/japan-schoolgirls.html">asian thumbs</a> hot teens <a href="http://ulrichlord.homeip.net/asian/asian-sex-express.html">asian</a> teen galler..
Weblog:
Tracked: 2005-12-29 02:52

voyeur sprocket watersports sticky
Excerpt: Hi
Weblog: metabolic 01/01
Tracked: 2006-01-02 06:50