Нубокодер
Новичок
- Сообщения
- 75
- Репутация
- 0
Читаю с инета, сохраняю в файл и вывожу *.png картинку в окно:
Состряпал из примера, поэтому мало что понимаю. Помогите пожалуйста - нужно уменьшить изображение на выходе в 4 раза
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>
Global $hGUI, $hImage, $hGraphic, $hImage1
$url_pic = "http://galerey-room.ru/images/000430_1421874270.png"
$s_Dir = @ScriptDir & '/'
; Создаёт GUI
$hGUI = GUICreate("PNG", 750, 550)
InetGet ( $url_pic, $s_Dir & "001" & '.png', 17, 0 ) ; читаю рисунок и записываю в файл 001.png
; Загружю рисунок PNG из файла
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile ($s_Dir & "001" & '.png')
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
GUISetState()
; Цикл ожидающий выхода
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
; Очищает от ресурсов
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()
; Рисует рисунок PNG
Func MY_WM_PAINT($hWnd, $msg, $wParam, $lParam)
#forceref $hWnd, $Msg, $wParam, $lParam
_WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_UPDATENOW)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 25, 25)
_WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_VALIDATE)
Return $GUI_RUNDEFMSG
EndFunc
Состряпал из примера, поэтому мало что понимаю. Помогите пожалуйста - нужно уменьшить изображение на выходе в 4 раза