Ex:Img.Infoコマンド - ダウンロードマクロ・コマンド (Download Macro Command) - PROSERPINE (プロセルピナ)

				プロセルピナ
Top	Internet Mail	Private Proxy	Capture Device		Download	Config and Words	Online Help	Online Home

[BACK]

☞ Top > FileDownload > Macro > Ex: Command > Img.Info

Ex:Img.Infoコマンド

Download Top | Macro Top | Command | ExCommand

書式

Ex:Img.Info: (Parameters)

パラメータ :
src= : 元になる画像ファイル
O:width= : 画像の幅(px) (optional)
O:width= : 画像の高さ(px) (optional)
O:rslt= : コマンド実行結果 (optional)

O:rslt= で指定した文字列変数に、処理結果が設定されます。 OK: が設定されていた場合は正常終了、 NG: で開始される文字列が設定されていた場合はエラーです。

記述例: 2

この例では、画像に文字を書き込むとき、画像のサイズからフォントの大きさを決定します。

:macro{
 // Upload時に起動されるツイッターマクロ
 // input: [0]画像ファイル [1]書き込む文字列
 // 
 input[0]=Dir.DeskTop "\\test.jpg"
 input[1]="画像に文字を書き込むテスト"
 
 str["書体"]=Dir.Work "\\fontObject.bin"
 Ex:Img.Info: src=input[0] O:width=intl["w"] O:height=intl["h"]
 intl["fontSz"]=intl["h"]
 culc: intl["fontSz"]/=20
 //Ex:Popup: "w=" intl["w"] ", h=" intl["h"] ", sz=" intl["fontSz"]
 
 Ex:Img.GetObject: type="Font" size=intl["fontSz"] bold=true dest=str["書体"] O:rslt=strl["処理結果"]
 
 file pathInfo: file=input[0] strl.index=1000
 str["出力"]=input[0] ".tmp." strl[1002]
 
 Ex:Img.Write: src=input[0] dest=str["出力"] w=input[1] w.Font=str["書体"] w.Color="Black" w.PenColor="LightGray" w.xPos=3 w.yPos=3 quality=100
 if (str["出力"].isFile == "true") {
   intl["sleep"]=0
   while (true) {
     file rename: src=str["出力"] to=input[0] O:dest=strl["rslt"] ov=true
     if (strl["rslt"].isFile == "true") { break; }
     sleep: 1000
     intl["sleep"]+=1000
     if (intl["sleep"] > 10000) { break; }
     }
   }
end:
}

【コピペで確認】 上記のサンプルコードはメモ帳モードで開いたテキストフォームにコピー＆ペーストして、 テストモード実行で動作確認することができます。
(デスクトップに test.jpg という画像ファイルを用意してください)

デスクトップにある画像ファイル test.jpg に、「画像に文字を書き込むテスト」という文字を書き込むサンプルです。

画像に書き込むフォントは、Ex:Img.GetObjectコマンドで作成したフォントオブジェクト(binファイル、上記例ではワークディレクトリの fontObject.bin) で指定します。
このフォントオブジェクトを作成するときに、フォントサイズを指定しますが、ここではそれを画像の縦高の２０分の１に指定しています(culcコマンドによる割り算)。

画像への文字の書き込みは Ex:Img.Writeコマンドで行います。
フォントオブジェクトは、w.Font= のパラメータで指定します。
書き込んだファイルは、一旦、デスクトップの test.jpg.tmp.XXX というファイルに出力され (XXXは、この例では jpg になります)、その後、file renameコマンドで test.jpg に上書きしています。

上記例では、test.jpgが何らかの処理中で test.jpg.tmp.XXXをtest.jpgにリネームできなかったときは１秒待って (sleepコマンド)、再度リネームする処理になっています。

[BACK]

プロセルピナ

書式

記述例: 1

記述例: 2