Что нового

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

Trans

Знающий
Сообщения
257
Репутация
6
Ребят подскажите как "склеить" 2 картинки в одну?
1
К ней нужно добавить


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



Добавлено:
Сообщение автоматически объединено:

решил проблему
Код:
#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
 
Верх