G
GenoTIP
Гость
Подскажите как добавить подгрузку изображения в GUI с заданной периодичностью, к примеру 2 сек. Картинка должна обновляться внутри GUI средствами её перезакачки в папку скрипта, заранее спасибо.
Код:
#include <IE.au3>
#include <GDIPlus.au3>
#include <GuiConstantsEx.au3>
InetGet("http://j63.forexpf.ru/delta/prochart?type=EURUSD&amount=335&chart_height=355&chart_width=2562&grtype=2&tictype=0&iId=5", "prochart.gif")
;Global $hGUI, $hImage , $hGraphic
; Create GUI
$hGUI = GUICreate("ProFinance", 660, 367)
$iX = GUICtrlCreateInput("X начало", 8, 336, 73, 21)
$iY = GUICtrlCreateInput("Y начало", 88, 336, 73, 21)
$iXEnd = GUICtrlCreateInput("X конец", 168, 336, 73, 21)
$iYEnd = GUICtrlCreateInput("Y конец", 248, 336, 73, 21)
$ButtonNewCoord = GUICtrlCreateButton("Задать", 328, 336, 75, 21)
GUISetState()
; Load PNG image
_GDIPlus_StartUp()
$hImageLoaded = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\prochart.gif")
$iWidth = _GDIPlus_ImageGetWidth($hImageLoaded)
$iHeight = _GDIPlus_ImageGetHeight($hImageLoaded)
$hImageInGUI = _GDIPlus_BitmapCloneArea($hImageLoaded, $iWidth-661, $iHeight-340, 661, 326); Картинка внутри GUI в которой проходит поиск
; Draw PNG image
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImageInGUI, 0, 0) ;Показать картинку в GUI
_GDIPlus_GraphicsDrawRect($hGraphic ,GUICtrlRead($iX), GUICtrlRead($iY), GUICtrlRead($iXEnd), GUICtrlRead($iYEnd)) ; Рамка вокруг обрасти поиска
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $ButtonNewCoord ; Обновляем границы поиска на картинке
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImageInGUI, 0, 0) ;Показать картинку в GUI
_GDIPlus_GraphicsDrawRect($hGraphic ,GUICtrlRead($iX), GUICtrlRead($iY), GUICtrlRead($iXEnd), GUICtrlRead($iYEnd))
EndSwitch
WEnd
; Clean up resources
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_ShutDown()