[Автоматизация] Объединить 2 картинки в одну

[Trans]

Ребят подскажите как "склеить" 2 картинки в одну?
1
К ней нужно добавить


Чтоб получился такой вариант



Добавлено:

Сообщение автоматически объединено: 6 Фев 2013

решил проблему

Спойлер

#include <GDIPlus.au3>
Dim $aImgs[2] = ["1.jpg","3.jpg"]

_GDIPlus_Startup()

Dim $ahImage[UBound($aImgs)]

For $i = 0 To UBound($aImgs)-1
    $ahImage[$i] = _GDIPlus_ImageLoadFromFile($aImgs[$i])
Next

$iWidth = _GDIPlus_ImageGetWidth($ahImage[1])
$iHeight = _GDIPlus_ImageGetHeight($ahImage[1])

$hNewBitmap = _WinAPI_CreateBitmap($iWidth, $iHeight* UBound($aImgs), 1, 32)
$hNewBitmap2 = _GDIPlus_BitmapCreateFromHBITMAP($hNewBitmap)
$hGraphic = _GDIPlus_ImageGetGraphicsContext($hNewBitmap2)

For $i = 0 To UBound($ahImage)-1
    _GDIPlus_GraphicsDrawImageRect($hGraphic,$ahImage[$i],0,$i*$iHeight,$iWidth,$iHeight)
    _GDIPlus_ImageDispose($ahImage[$i])
Next

_GDIPlus_ImageSaveToFile($hNewBitmap2,"NewFile.jpg")
_GDIPlus_GraphicsDispose($hGraphic)
_WinAPI_CloseHandle($hNewBitmap)
_GDIPlus_ImageDispose($hNewBitmap2)

_GDIPlus_Shutdown()

Exit

 

[joiner]

Trans [?]

решил проблему

все решает поиск http://autoit-script.ru/index.php/topic,10965.0.html