喫茶XRAY [Mr.XRAY掲示板]

> あと，問題は文字列の扱いですね．UTF-8 ...

少しやってみましたが無理があるようです．
下の図はコードそのテストの一部です．
logo.png 画像にテキスト書き込みで，サイズ変更して別名保存します．

[773] [06_ファイル名が日本語のファイルをアップロード ]
http://mrxray.on.coocan.jp/Delphi/plSamples/773_Indy_FTPGetPut.htm#06

のように  MECSUtils を使ったらと思ったけど残念 !!
ファイル名だから関係ないだろう !!
なんですが，溺れる者は何とかでして ... ハハハ．
だって，

[ ImageMagick のコマンドラインツールで PDF を JPEG 画像に変換]
http://mrxray.on.coocan.jp/Delphi/Others/ImageMagick.htm#04

ではファイル名に日本語を使用してますが，動作していますから．
コマンドラインからですと UTF-8 のファイルを使用すれば処理可能
なようですが，試していません．

[Unicode or UTF8 Format Text]
http://www.imagemagick.org/Usage/text/#unicode

implementation

uses
  magick_wand,
  ImageMagick;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  LReadPath  : UTF8String;
  LWritePath : UTF8String;
  Lwand      : PMagickWand;
  LDrawWand  : PDrawingWand;
  LText      : UTF8String;
begin
  LReadPath  := ExpandFileName('logo.png');
  LWritePath := ExpandFileName('logo2.png');

  MagickWandGenesis;

  Lwand     := NewMagickWand;
  LDrawWand := NewDrawingWand;
  try
    MagickReadImage(Lwand, PChar(LReadPath));

    DrawSetFontSize(LDrawWand, 300);
    LText := Utf8String('日本');
    MagickAnnotateImage(Lwand, LDrawWand, 150.0, 1500.0, 0.0, PChar(LText));
    MagickDrawImage(Lwand, LDrawWand);

    MagickScaleImage(Lwand, 250, 250);

    MagickWriteImage(Lwand, PChar(LWritePath));
  finally
    DestroyMagickWand(Lwand);
    DestroyDrawingWand(LDrawWand);
  end;
end;

最初の図が「日本」という文字列を描画したもの
次の図は「Hello!」という文字列を描画した結果