ImageKit6で複数の画像を1枚に結合したい。

質問

こんにちは。
開発環境ですが、
WindowsXP Pro SP3
Delphi7
でImageKit6のActivXコンポーネントを使ってます。

表題のとおりですが、複数の画像を連結させたいのですが、どのようにするのかわかりません。
マニュアルも一通り見てみたつもりですがわかりませんでした。

具体的には、たとえば、4枚のtif画像があったとして、それを1枚に結合して縮尺変えてpngで保存する。ということをやりたいと思っております。

[1][2]
[3][4]
　↓
[合成]

画像を読み込んで幅高さ変更や減色をして保存するところはわかるのですが、連結部分がわかりません。
今のとこのサンプルを下記に書いておきます。
------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
dir: String;
begin
//ファイル読み込み
dir := 'c:\tmp\imagekit\';
IkFile.FileName := dir + 'test.tif';
if IkFile.LoadFile(ikLoadTIFF) = False then Exit;
IkCommon.ImgHandle := IkFile.ImgHandle;

try

if IkCommon.GetImageType() = False then Exit;

//幅、高さ変更
IkEffect.InImgHandle := IkFile.ImgHandle;
if IkEffect.Resize(100,50,false) = False then Exit;
IkCommon.FreeMemory(); //変換前のメモリハンドルを解放
IkFile.ImgHandle := IkEffect.OutImgHandle;
IkCommon.ImgHandle := IkFile.ImgHandle; //変換後のメモリハンドルを解放するために設定

//減色
IkEffect.InImgHandle := IkFile.ImgHandle;
if IkEffect.ConvertColor(8, False, False, 0) = False then Exit;
IkCommon.FreeMemory(); //変換前のメモリハンドルを解放
IkFile.ImgHandle := IkEffect.OutImgHandle;
IkCommon.ImgHandle := IkFile.ImgHandle; //変換後のメモリハンドルを解放するために設定

//保存
IkFile.FileName := fn + 'test.png';
IkFile.SaveFile(ikSavePNG);
finally
IkCommon.FreeMemory();
IkFile.ImgHandle := 0;
end;
end;
------------------------------------------------------------

もしサンプル書いていただく際はDelphiじゃなくても、CでもVBでもなんでも結構です。
よろしくお願いいたします。

回答No.1

kashi1031 · ベストアンサー

自己解決

補足

自己解決しました。
IkEffect.Layer
を使って画像をマージすることができました。

下記に解決内容を書いておきます。
------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
Trans: Smallint;
Red1, Green1, Blue1: Smallint;
Red2, Green2, Blue2: Smallint;
x1, y1: Longint;
Clip, Ret: WordBool;

dir: String;
imgW,imgH: Integer;
imgHandle1,imgHandle2: Integer;
begin
// 貼り付け処理
Trans := 255; // 透かしの割合
Red1 := 0; // 透明色色指定（赤）
Green1 := 0; // 透明色指定（緑）
Blue1 := 0; // 透明色指定（青）
Red2 := 255; // 無効領域の色指定（赤）
Green2 := 255; // 無効領域の色指定（緑）
Blue2 := 255; // 無効領域の色指定（青）
Clip := False; // クリッピングの有無

//ファイル読み込み
dir := 'c:\tmp\imagekit\';
IkFile.FileName := dir + 'test1.tif';
if IkFile.LoadFile(ikLoad) = False then Exit;
IkCommon.ImgHandle := IkFile.ImgHandle;

//元画像サイズ取得
IkCommon.GetImageType;
imgW := IkCommon.ImgWidth;
imgH := IkCommon.ImgHeight;

//イメージハンドル保存
imgHandle1 := IkCommon.ImgHandle;

//ファイル読み込み
IkFile.FileName := dir + 'test2.tif';
if IkFile.LoadFile(ikLoad) = False then Exit;
IkCommon.ImgHandle := IkFile.ImgHandle;

//イメージハンドル保存
imgHandle2 := IkCommon.ImgHandle;

//新しいイメージ作成
IkCommon.CreateImage(imgW*2, imgH, 8, Red1, Green1, Blue1);

IkEffect.InImgHandle := IkCommon.ImgHandle;
x1 := 0;
y1 := 0;
//イメージ合成
IkEffect.Layer(IkEffect.InImgHandle, imgHandle1, Trans, True, Red1, Green1, Blue1, Red2, Green2, Blue2, x1, y1, Clip);
//合成前画像のメモリハンドルを解放
IkCommon.ImgHandle := IkEffect.InImgHandle;
IkCommon.FreeMemory();
//読み込んだ画像のメモリハンドル解放
IkCommon.ImgHandle := imgHandle1;
IkCommon.FreeMemory();
IkEffect.InImgHandle := IkEffect.OutImgHandle;

x1 := imgW;
y1 := 0;
//イメージ合成
IkEffect.Layer(IkEffect.InImgHandle, imgHandle2, Trans, True, Red1, Green1, Blue1, Red2, Green2, Blue2, x1, y1, Clip);
//合成前画像のメモリハンドルを解放
IkCommon.ImgHandle := IkEffect.InImgHandle;
IkCommon.FreeMemory();
//読み込んだ画像のメモリハンドル解放
IkCommon.ImgHandle := imgHandle2;
IkCommon.FreeMemory();
IkEffect.InImgHandle := IkEffect.OutImgHandle;

//保存
IkFile.ImgHandle := IkEffect.OutImgHandle;
IkFile.FileName := dir + 'test.png';
IkFile.SaveFile(ikSavePNG);

//合成後画像のメモリハンドル解放
IkCommon.ImgHandle := IkEffect.OutImgHandle;
IkCommon.FreeMemory();
IkFile.ImgHandle := 0;
end;
------------------------------------------------------------