ImageMagickでドラッグ＆ドロップされた画像の影付縮小画像を一括作成３

※2009/2/11の記事で、画像形式の変更が出来ていなかったミスを修正しました。
※ImageMagickの最新版6.4.8-4で出るエラーを修正したもの

久しぶりに、ImageMagickの最新版6.4.8-4をダウンロードしてインストールしてみました。
すると、自分が作ったImageMagickを使ったVBSを実行すると、[Microsoft VisualC++ Runtime Library] Runtime Error! R6034というエラーが出て、使えなくなってしまいました。



ImageMagickをアップデート前のバージョンを6.4.2-1に戻すと、また実行できるのですが...最新版に出来ないままだと気持ち悪い！

「R6034」で検索すると、ＭＳＤＮのページの説明「アプリケーションがマニフェストを使用しないでＣランタイムライブラリを読み込もうとしました」...意味分からん！
しばらくうなって、VC++のランタイムエラーならと、「VC++ランタイム」で検索をすると「Microsoft Visual C++ 2008 再頒布可能パッケージ (x86)」（SP1）というのがでてきました。これをダウンロードしてインストールしてみると...上のエラーは出なくなりました。ホッ。ImageMagickのページのどこかに説明があったのかな？

ところが、さらに迷ったことに、使えるコードと使えないコードが出てきました。具体的には、2008/8/31と2008/11/04のコードが、ファイルをドラッグアンドドロップしても何も起こりません。エラーメッセージが発生しないので、処理が進んだかのように動作しますが、実際には結果のファイルが出力されません。その前のソースは使えました。

いろいろとコードを書き換えながら試していると、どうやら画像のあるフォルダ又は画像ファイル名に日本語が含まれている場合にうまくいかないらしいと判明しました。バージョン6.4.2だと大丈夫だったのに、なぜ？

とは思いつつ、出力ファイル名に日本語が入っていると文字化けしていたので、入力ファイル名もエスケープを使って工夫して、また同じような使い勝手で使えるようにしたのが、下のコードです。

Option Explicit '------------------------------------------------------------------------------ 'ImageMagickでドラッグ＆ドロップされた画像の影付縮小画像を一括作成３ '------------------------------------------------------------------------------ '　説明：Windowsで、ImageMagick(この<a href="http://www.seesaa.jp/afr.pl?affiliate_id=596867&keyword=%83X%83N%83%8A%83v%83g" class="affiliate-link" target="_blank">スクリプト</a>の作成時のバージョンは6.4.2)が '　　　　インストールされている環境で、ドラッグ＆ドロップされた画像の影付縮小 '　　　　画像を一括作成する。縮小画像は元の画像があるフォルダに作成される。 '　　　　指定オプションの数値等を変えることで、縮小画像の大きさや影の色・方向 '　　　　等が変更できる。 '　作成者：Ｍ '　作成日：2008/08/31 '　更新日：2008/11/04 '　　　　　・縦又は横辺の長さの指定を基準とし、縦横比を維持した縮小を可能とした '　　　　　・指定した色の枠を付けられるようにした '　　　　　・色空間の変換を可能とした '　更新日：2009/01/11 '　　　　　・日本語が含まれるフォルダ又は画像ファイル名も変換可能に修正 '------------------------------------------------------------------------------ '::::::■指定オプション■:::::::::::::::::::::::::::::::::::::::::::::::::::::: '--縮小後の画像のサイズをピクセル数で指定 Dim numOutSizeWidth : numOutSizeWidth = 100 '幅／0の場合、縦辺は縦横比を維持 Dim numOutSizeHeight: numOutSizeHeight= 100 '縦／0の場合、横辺は縦横比を維持 '--元の画像の幅縦比率が、上記指定の幅縦比率異なる場合の処理を数値で指定 '--（numOutSizeWidth又はnumOutSizeHeightのどちらかが0の場合は無効） '--1:短辺を基準に縮小して、余分を削除する '--2:長辺を基準に縮小して、不足分に余白を追加 Dim numOutSizeType: numOutSizeType=1 '--画像に追加する枠の幅をピクセル単位の数値で指定 Dim numBorderWidth: numBorderWidth=0 '--画像に追加する枠の色を"#rrggbb"形式で指定（numBorderWidth>0の場合に有効） Dim strBorderColor: strBorderColor="#000000" '--色空間の変換 Dim strColorSpace: strColorSpace="RGB" 'WEB上で表示させる場合はRGBを指定 ' 色空間の指定の詳細は以下を参照 ' <a href="http://www.imagemagick.org/script/command-line-options.php#colorspace" target="_blank">http://www.imagemagick.org/script/command-line-options.php#colorspace</a> '--追加余白、影がつく部分の背景色、影の色を、#rrggbb形式で指定 '--（ただし、出力画像形式がpngの場合、影の背景色は透明となる） Dim strSPColor : strSPColor ="#ffffcc" '追加余白の色(numOutSizeType=2の時) Dim strBGColor : strBGColor ="#ffffff" '影がつく部分の背景色 Dim strShadowColor: strShadowColor="#444444" '影の色 '--影の透明度、幅、方向を数値で指定 Dim numShadowOpac : numShadowOpac =75 '影の透明度(％) Dim numShadowSigma: numShadowSigma=2 '影の幅(ピクセル数) Dim numShadowPosX : numShadowPosX =4 '影の方向(横)numShadowSigma*2まで Dim numShadowPosY : numShadowPosY =4 '影の方向(縦)numShadowSigma*2まで '--出力画像形式を拡張子名で指定（ImageMagickが対応しているもののみ） Dim strOutFileExt : strOutFileExt ="jpg" '--出力ファイル名の前後に付ける文字列を指定 Dim strOutPrefix : strOutPrefix ="" '前に付ける文字列 Dim strOutSuffix : strOutSuffix ="-s" '後に付ける文字列 ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: 'その他の変数宣言 Dim strFilePath,strOutSizeType,strInFile,strInName,strInBase,strTmpName,strData Dim strOutName Dim strShadowOpt,strShadowPosX,strShadowPosY,strAdjSize Dim objArgs,objIMO,objFSO,objFile,objWSH Dim numCvf,numAdjWidth,numAdjHeight numCvf = 0 'ドラッグアンドドロップされたファイルを配列に格納 Set objArgs = WScript.Arguments If objArgs.Count = 0 Then Err.Description = "画像ファイルを、このファイルのアイコンに" &vbCrLf& _ "ドラッグ＆ドロップしてください。" &vbCrLf& _ "処理を中断します。" subShowError() : WScript.Quit(-1) End If If Abs(numShadowPosX) - numShadowSigma*2 > 0 Then Err.Description = "numShadowPosXの絶対値が、" &vbCrLf& _ "numShadowSigma*2以下となるようにしてください。" &vbCrLf& _ "処理を中断します。" subShowError() : WScript.Quit(-1) End If If Abs(numShadowPosY) - numShadowSigma*2 > 0 Then Err.Description = "numShadowPosYの絶対値が、" &vbCrLf& _ "numShadowSigma*2以下となるようにしてください。" &vbCrLf& _ "処理を中断します。" subShowError() : WScript.Quit(-1) End If If strOutPrefix="" And strOutSuffix="" Then Err.Description = "strOutPrefixとstrOutSuffixには、どちらか" &vbCrLf& _ "(又は両方)に何か文字列を指定してください。" &vbCrLf& _ "処理を中断します。" subShowError() : WScript.Quit(-1) End If If numOutSizeType = 1 Then strOutSizeType = "^" ElseIf numOutSizeType = 2 Then strOutSizeType = ">" Else Err.Description = "strOutSizeTypeは、1又は2を指定してください。"&vbCrLf& _ "処理を中断します。" subShowError() : WScript.Quit(-1) End If If numShadowPosX < 0 Then strShadowPosX = "-" Else strShadowPosX = "+" If numShadowPosY < 0 Then strShadowPosY = "-" Else strShadowPosY = "+" strShadowOpt = numShadowOpac & "x" & numShadowSigma & _ strShadowPosX & Abs(numShadowPosX) & _ strShadowPosY & Abs(numShadowPosY) numAdjWidth = numOutSizeWidth - numShadowSigma*4 - numBorderWidth*2 numAdjHeight = numOutSizeHeight- numShadowSigma*4 - numBorderWidth*2 If numOutSizeWidth<=0 And numOutSizeHeight<=0 Then Err.Description = "numOutSizeWidthとnumOutSizeHeightは、"&vbCrLf& _ "必ずどちらかを１以上にしてください。"&vbCrLf& _ "処理を中断します。" subShowError() : WScript.Quit(-1) ElseIf numOutSizeWidth = 0 Then strAdjSize = "x" & numAdjHeight strOutSizeType = "" ElseIf numOutSizeHeight = 0 Then strAdjSize = "" & numAdjWidth strOutSizeType = "" Else strAdjSize = numAdjWidth & "x" & numAdjHeight End If If strOutFileExt ="png" Then strBGColor = "none" End If 'ファイルシステムオブジェクトを作成 Set objFSO = CreateObject("Scripting.FileSystemObject") 'ImageMagickオブジェクトを作成 Set objIMO = CreateObject("ImageMagickObject.MagickImage.1") 'WshShellオブジェクトを作成 Set objWSH = CreateObject("WScript.Shell") '格納された配列からファイル名(フルパス)を一つずつ取り出し、画像処理する。 For Each strInFile in objArgs If objFSO.FileExists(strInFile) Then 'ファイルのあるディレクトリを取得 strFilePath = Replace(strInFile , objFSO.GetFileName(strInFile) , "") 'カレントディレクトリを画像のあるフォルダに変更 objWSH.CurrentDirectory = strFilePath strInName = objFSO.GetFileName(strInFile) strInBase = objFSO.GetBaseName(strInFile) strOutName = strOutPrefix & strInBase & strOutSuffix & "." & strOutFileExt If objFSO.FileExists(strFilePath & strOutName) Then Err.Description = "変換後のファイル名と同じ名前のファイルが存在します。" _ & vbCrLf & strOutName _ & vbCrLf & "処理を中断します。" subShowError() : WScript.Quit(-1) End If '日本語を含むファイル名はImageMagickで扱えないので、対象ファイルを一時的な 'ファイル名で複製してIMへ入力。同名で上書き出力し、出力ファイル名に変更。 strTmpName = "~$" & objFSO.GetTempName() & escape(strInName) strData = objFSO.CopyFile(strInName , strTmpName , false) On Error Resume Next '--ImageMagick操作時に囲む（始まり） ' <a href="http://www.imagemagick.org/script/convert.php" target="_blank">http://www.imagemagick.org/script/convert.php</a> strData = objIMO.Convert(strTmpName, _ "-thumbnail",strAdjSize & strOutSizeType, _ "-background",strSPColor,_ "-gravity","center", _ "-extent",strAdjSize, _ "-bordercolor",strBorderColor, _ "-border",numBorderWidth, _ "(","+clone", _ "-background",strShadowColor, _ "-shadow",strShadowOpt, ")", _ "+<a href="http://www.seesaa.jp/afr.pl?affiliate_id=596867&keyword=swap" class="affiliate-link" target="_blank">swap</a>", _ "-background",strBGColor, _ "-layers","merge", _ "+repage", _ "-colorspace",strColorSpace, _ strTmpName) If Err.Description <> "" then subShowError() : WScript.Quit(-1) On Error Goto 0 '--ImageMagick操作時に囲む（終わり） numCvf = numCvf +1 '処理した画像数をカウント End If '一時ファイル名から出力後ファイル名へ戻す If objFSO.FileExists(strTmpName) Then Set objFile = objFSO.GetFile(strTmpName) objFile.Name = strOutName End If Next '--通常終了処理 subReleaseObject() MsgBox "終了（処理数：" & numCvf & "ファイル）" WScript.Quit(0) '--終了前処理 Sub subReleaseObject() Set objFSO = Nothing Set objFile = Nothing Set objIMO = Nothing Set objArgs = Nothing End Sub '--エラー処理 Sub subShowError() subReleaseObject() MsgBox "[エラー番号]：" & Err.<a href="http://www.seesaa.jp/afr.pl?affiliate_id=596867&keyword=Number" class="affiliate-link" target="_blank">Number</a> &vbCrLf& _ "[エラー内容]：" & vbCrLf & Err.Description &vbCrLf& _ "[エラーソース]：" & Err.Source ,vbCritical,"エラー" Err.Description = "" End Sub