Ребят подскажите как "склеить" 2 картинки в одну?
1
К ней нужно добавить
Чтоб получился такой вариант
Добавлено:
решил проблему
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