ひっそり開発室

はじめての InnoSetup

2016-09-13T17:48:16+09:00

VBの依頼が来たんですが、
ひょんなことからインストーラーもお願いしますとか、
普通にインストーラー作るの面倒だし、
InnoSetupを使ってさらっと作ろうという方向で考えていたのだけれど・・・

案の定、お客さんの要望がどんどん膨らんでいって、
デフォルトのテンプレートだけじゃとても対応できないという。
1.シリアルの入力画面
2.ライセンスコードの入力画面
3.シリアル＋ライセンスの組み合わせのチェック
4.入力されたシリアル＋ライセンスの保存
5.他、画面の文言の調整

InnoSetupについては完全に初心者なもので
・Inno Setup 日本語デベロッパーズ
・Inno Setup Help
等のページを見ながらで
最初はほんとよくわからん状態。
日本語デベロッパーズだけじゃ
まったく情報が足らなくて理解できなかったのだけれど、
ひとまず InnoSetup Help の Setup Script Sections が大事でした。
それぞれのセクションを簡単に説明すると
----
[Setup] 基本設定
[Tasks] セットアップ時にショートカット等を作成する設定
[Files] インストールするファイルの設定
[Languages] セットアップ表示言語の設定
[Messages] セットアップ画面のメッセージ文字列の設定
[Registry] セットアップでレジストリに入力する設定
[Run] セットアップ後プログラムを実行する設定
[Code] セットアップ時に動作するプログラム設定
----
4は[Registry]で保存する形にしてしまえば解決かしら。
5も[Messages]で対応ができそう。
1-3は設定だけでは厳しそうなので
[Code]セクションで対応するしかないようです。

当初、シリアルとライセンスコードは
ランダムの英数字だけという認識でいたのですが、
シリアルはハイフンで2つに分けたものにして、
ライセンスはハイフンで4つにわけて入力させたいとか。
それだけならともかく、1のボックスで
ハイフンも一緒に入力する形でいいのかと聞いてみたらNGで
ハイフンをボックスの中に設置するか
ハイフンで区切るところでボックスを分けてほしいみたいな。
InnoSetupでできることもろくに把握してないのに無茶振りだわー

[Code]セクションはPascalでコーディングできます。
むかーしむかーしあるところでDelphiなんてさわっていたのが、
今頃役に立つとかなかなかの驚き。

しかしながら、日本語のサイトでInnoSetupをどんだけ探そうが
サンプルコードなんて出てこない始末。
仕方ないからHelpと英語サイトのサンプルを見ながら組み立て
サンプルを見てすぐわかったのは
----
TInputQueryWizardPage テキストボックス
TInputOptionWizardPage ラジオボタン
TInputDirWizardPage ディレクトリ選択ボックス
TInputFileWizardPage ファイル選択ボックス

上記のクラスでインストーラー画面のページに
それぞれ入力欄を表示することができるようになっている模様
ただし、テキストボックス・ラジオボタン等を
組み合わせて表示することは無理なので、
さらにカスタムしたいなら TWizardPage クラスを利用して、
自分でインストーラページを作成する必要があるようだ。

とりあえず、ある程度できそうなところまでは理解して、
ほっとしたところで・・・・え・・・・？
サンプルソースが見たいって？
今度気が向いたら載せます。

MBFPDF 1.0b 文字列の幅が合わない

2016-07-26T14:01:07+09:00

印刷用のPDFのために位置を制御しながら出力するプログラム。
PDF出力モジュールの部分で
お客さんから文字によっては重なったりしちゃうのがとても困ると・・・。
まぁそりゃー困るよねぇ。

ライブラリの関数を利用していて、
そっちに文字幅はお任せにしてたんだけど、
どうしてもうまくいかないので、
仕方なくライブラリを直接修正。

mbfpdf.php (元のソース)

function GetMBStringWidth($s)
{
  //Multi-byte version of GetStringWidth()
  $l=0;
  $cw=&$this->CurrentFont['cw'];
  $japanese = ($this->CurrentFont['registry']['ordering'] == 'Japan1');
  $nb=strlen($s);
  $i=0;
  while($i<$nb)
  {
    $c=$s[$i];
    if(ord($c)<128)
    {
      $l+=$cw[$c];
      $i++;
    }
    else
    {
      $hwkana = ($japanese && ord($c)==142);
      $l+=$hwkana ? 500 : 1000;
      $i+=2;
    }
  }
  return $l*$this->FontSize/1000;
}

[1バイト]ずつ判定してるので
マルチバイト文字が入った際に問題が起きることがある模様。
なので、マルチバイトが入る前提で処理を行って、
[1文字]ずつ判定していくように修正。

mbfpdf.php (修正後のソース)

function GetMBStringWidth($s)
{
  //Multi-byte version of GetStringWidth()
  $l=0;
  $cw=&$this->CurrentFont['cw'];
  $nb=mb_strlen($s);
  $i=0;
  
  while($i<$nb)
  {
    $c=mb_substr($s,$i,1);
    if(ord($c)<128)
    {
      $l+=$cw[$c];
    }
    else
    {
      $l+=mb_strwidth($c)*500;
    }
    $i++;
  }
  return $l*$this->FontSize/1000;
}

こんな感じでどうだろうか。

VisualStudio2015(VB.Net) + SQLite

2016-05-27T22:16:06+09:00

VB.Netでデータを入力した後、印刷するアプリを作成というお話が入って、
入力されたデータを蓄積して解析したいとか。

CSVでいいのかなーと聞いてみたら、
できればなんかのDBがいいなーとか
1台だけなら無償で使えるMSSQLをちょろっと入れて連動するんだけど
複数台で使うらしく、
それもセットアップはインストーラで設定しておしまいくらいのレベルがいいとか
DBインストールしなくていいものを考えてたら、
SQLiteかAccessが使えそうな感じ
今回はとりあえずSQLite

ツール→NuGet パッケージマネージャー→ソリューションのNuGetパッケージの管理
で、右上の検索ボックスで [SQLite] を検索して
System.Data.SQLite を選択してインストール

とりあえずこんな感じ

Dim Connection As New SQLite.SQLiteConnection
Dim Command As SQLite.SQLiteCommand
Dim DataReader As SQLite.SQLiteDataReader

'接続文字列を設定
Connection.ConnectionString = "Version=3;Data Source=test.db;New=False;Compress=True;"

'オープン
Connection.Open()

'コマンド作成
Command = Connection.CreateCommand

'SQL作成
Command.CommandText = "SELECT * FROM TEST"

'データリーダーにデータ取得
DataReader = Command.ExecuteReader

'データを出力
Do Until Not DataReader.Read
    Debug.Print(DataReader.Item("id").ToString)
    Debug.Print(DataReader.Item("data").ToString)
Loop

'破棄
DataReader.Close()
Command.Dispose()
Connection.Close()
Connection.Dispose()

2016/07/27追記
ちゃんとUsing使いましょ。

Using con As New SQLite.SQLiteConnection
    con.ConnectionString = "Version=3;Data Source=test.db;New=False;Compress=True;"
    con.Open()
    Using cmd As New SQLite.SQLiteCommand
        cmd.Connection = con
        cmd.CommandText = "select * from TEST"
        Using ldr As SQLite.SQLiteDataReader = cmd.ExecuteReader()
            Do Until Not ldr.Read
                Debug.Print(ldr .Item("id").ToString)
                Debug.Print(ldr .Item("data").ToString)
            Loop
        End Using
    End Using

End Using

Excel-VBA

2016-05-25T20:39:58+09:00

久々に思い出したように書いてみる。

完全に社外のExcel-VBAを解析・調整する仕事が飛んできて、
見てみたら恐ろしいくらいひどいソースコードだった・・・orz

・変数が日本語
・関数やプロシージャまで日本語
・段組に統一性が全く無し(if もループもどこまでだかわかりにくい)
・メインコードが700行（すぱげってぃ！）
・ほぼPublic変数で処理（Local変数と同じ名前のもあったり）

なんで、こんなものが回ってきたのかというと、
「できる」プログラマさんがいなくなってしまって
書き換えなきゃいけないとかで・・・
よくあるお話だけど、できるレベルの感覚がだいぶおかしい気しかしない。

解析を進めていると、
複数のワークブック・ワークシートを見に行っていて、
頻繁にいろんなBook/SheetをActivateをして
RangeやらCellやらWorkSheetを省略して書いているので
データ自体はどこを参照しているのかぱっと見で理解しにくいという。

たくさんWorkSheetを扱っていても
こんな感じでちゃんとWorkSheetを変数で扱って
明示してかけばわかりやすいですよっと。

Dim wbBook As Workbook
Dim wsSheet As Worksheet

Set wbBook = Workbooks.Open("w:\File.xls")
Set wsSheet = wbBook.Worksheets(1)

wsSheet.Cells(1, 1) = "Hello World!"

wbBook.Close
Set wsSheet = Nothing
Set wbBook = Nothing

テキストファイル処理

2013-07-25T17:48:29+09:00

複数のCSVテキストを取り込んで、
ひとつのCSVを作成したい。

プログラムの作業自体は簡単な話なんだけど、
データサイズが50万件300MのCSVで、
そのIDでつながってるサブデータを１つのテキストファイルとして出したいとか
一昔前にExcel-VBAとかで手軽につくったら
えらい処理時間がかかるようなサイズだなと。

内容はファイルの入出力と
中身のテキストのコンバートなんで
簡単だけどExcel-VBAで作ったらやっぱ時間かかるんだろうな
ってわけで検証してみました。

プログラムの中身は
テキストファイルを読み出して
そのまま1行ずつ出力していくだけのコピープログラム
CとExcel-VBAで比較

テキストファイルは17万行 19Mbyte
CPU Intel-i7 2600 / 3.4GHz
メモリ 8.00G

Excel-VBA 1.176sec
C 0.235secs

実際に処理とかいろいろ入れたら
どれくらいかかるのかしら。

faceboxにフォーム

2013-06-17T16:26:54+09:00

faceboxにフォームタグを突っ込んで
ポップ動作するHTMLを作ったのまではいいのだけど、
FirefoxとIE10では正常動作するのにIE7,8,9では動作せず。

JavaScriptやらいろいろ書き換えて対応しようかと思って
別ファイルで検証しようとしたら、そっちではうまく動作

書き換えたのって

<form method="POST" action="./">
     ↓
<form method="POST" action="./test.php">

だけなので

<form method="POST" action="./index.php">

と、書き換えたらうまく動作・・・。

原因よくわからんけど動作したからいっか。

カレンダー関数

2013-06-10T15:50:51+09:00

お客さんのところでカスタムカレンダー表示してほしいとか言われ作ってみた。

function calendar_list($y,$m){
	$dt = mktime(0,0,0,$m,1,$y);
	$wd = date('w',$dt);
	$res['year'] = date('Y',$dt);
	$res['mon'] = date('m',$dt);
	
	$p = 0;
	$mcl = array();
	$wcl = array();
	for ($i=0;$i<$wd;$i++){
		$wcl[$p] = array('',$p,0);
		$p++;
	}
	for ($i=1;$i<=31;$i++){
		$d = date('d',$dt);
		if ($i != $d){ break; }
//		$en = date_enable($dt);//----追加情報を加える関数
		$wcl[$p] = array($d,$p,$en);
		$p++;
		$dt+= 24*60*60;
		if ($p == 7){
			$mcl[] = $wcl;
			$wcl = array();
			$p = 0;
		}
	}
	if ($p > 0){
		while ($p < 7){
			$wcl[$p] = array('',$p,0);
			$p++;
		}
		$mcl[] = $wcl;
	}
	$res['list'] = $mcl;
	return $res;
}

この関数でリストを作ってSmarty使ってこんな感じ。

{foreach from=$CAL item=MN}
<table class="calendar_table" border=1>
  <caption>{$MN.year}年 {$MN.mon}月</caption>
  <th class="w0">日</th>
  <th class="w1">月</th>
  <th class="w2">火</th>
  <th class="w3">水</th>
  <th class="w4">木</th>
  <th class="w5">金</th>
  <th class="w6">土</th>
{foreach from=$MN.list item=WEEK}
<tr>
{foreach from=$WEEK item=DAT}
  <td class="w{$DAT[1]} e{$DAT[2]}">{$DAT[0]}</td>
{/foreach}
</tr>
{/foreach}
</table>
{/foreach}

実際に表示すると

2013年 06月
日	月	火	水	木	金	土
						01
02	03	04	05	06	07	08
09	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30

Facebox

2013-06-05T15:32:00+09:00

ユーザーに確認させるために
ポップアップウィンドウを表示したい！

そんな要望に応えるためにフェイスボックスを利用してみよう。
http://defunkt.io/facebox/

前提としてはjqueryが必要なので
圧縮ファイルに同梱されているlibの中のjquery.jsをコピー
/public_html/js/jquery.js

次にsrcの中のファイル4点をよくある風にコピー
/public_html/css/facebox.css
/public_html/js/facebox.js
/public_html/img/closelabel.png
/public_html/img/loading.gif

次にHTMLへの実装

header部にとりあえずこんな感じで

  <link rel="stylesheet" type="text/css" href="/css/facebox.css" media="all" />
  <script type="text/javascript" src="/js/jquery.js" charset="utf-8"></script>
  <script type="text/javascript" src="/js/facebox.js"></script>
  <script type="text/javascript">
    jQuery(document).ready(function($) {
      $('a[rel*=facebox]').facebox({
        loadingImage : '/img/facebox/loading.gif',
        closeImage   : '/img/facebox/closelabel.png'
      }) 
    })
  </script>

bodyの中にはこんなのを書いてみましょ

<a href="#pop1" rel="facebox" class="hint">ポップアップを試す</a></h4>
<div id="pop1" style="display: none;">
ポップアップしちゃいます<br />
オンラインヘルプとかも書くのに使えそうですね。<br />
</div>

実際に動かすとこんな感じ

ポップアップを試す

Lightbox プラグイン (LightboxImage)

2013-06-05T13:45:39+09:00

ちょっと前に作ったプラグイン
MTでLightboxを利用するのはあちこちのページで紹介されているものの
記事部分の画像にタグを追加することができるものが
見つからなかったので自分で作ってみました。

プログラムの中身的にはもっと洗練できそうな気はするのだけど
限られた時間の中で作ったのでご容赦。

◆プラグイン設定画面

・ブログごとに利用するフラグをつけることができます
・リンクタグに付加する属性 slimboxなどにも変更することができます。
・記事に貼り付ける画像のデフォルト最大サイズ（lightbox表示する画像ではない）を設定できます。

◆画像選択後の画面

・チェックON/OFFで既存の設定をそのまま利用できます。

◆ダウンロード
LightboxImage.lzh

◆概要
エントリーで利用選択する画像ファイルに対して
エントリー内でリンクタグに属性を付加します。
画像サイズが一定の数字を超えた場合に自動的に縮小します。

◆対応バージョン
Movable Type 5.2.2
MT5以降の他のバージョンでも恐らく利用は可能ですが検証はできていません。

◆インストール
[mt-dir]/plugins/
に展開したファイルをディレクトリごとコピーしてください。

◆設定
lightboxをダウンロードし、
http://leandrovieira.com/projects/jquery/lightbox/
ブログディレクトリにコピー

MT側テンプレートデザインで

タグ内に以下のHTMLを記述してください。
パスはそれぞれ合わせてください。(絶対パスでの記述をおすすめします。)

<script type="text/javascript" src="/js/jquery.js"></script>
<script type="text/javascript" src="/js/jquery.lightbox-0.5.js"></script>
<link rel="stylesheet" type="text/css" href="/css/jquery.lightbox-0.5.css" media="screen" />
<script type="text/javascript">
$(function() {
    $('.lightbox a').lightBox();
});
</script>

slimboxを利用する場合も似たような処理を行うことで設定できます。

◆注意事項
本ソフトウェアを利用して発生した、
いかなる損害も当方では責任を負えません。
自己責任での改変はご自由にどうぞ。

とりあえず

2013-03-13T18:59:21+09:00

とりあえず作ってみました。
どれくらい書くかはネタ次第
期待はしないでください。

日	月	火	水	木	金	土
						01
02	03	04	05	06	07	08
09	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30

日	月	火	水	木	金	土
						01
02	03	04	05	06	07	08
09	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30

日	月	火	水	木	金	土
						01
02	03	04	05	06	07	08
09	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28	29
30