Как показать значение переменной в окне GUI

[at]

Как отобразить чисельное значение переменной из окна приложения Delphi

$vZeloe_Zhislo = ControlGetText('Delphi-programm', '', '[CLASS:TEdit; INSTANCE:18]')

В окне программы autoit

$vOkno_Programmy = GUICtrlCreateInput("Здесь должно быть значение из Delphi", 64, 240, 33, 21)

 

[joiner]

GUICtrlSetData($vOkno_Programmy, $vZeloe_Zhislo)

 

[at]

А можно в моем скрипте показать, как это реализуется ?

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
$vControl = GUICreate('Control', 291, 423, 192, 113)
GUICtrlCreateGroup('', 0, 0, 289, 369)
$vDelphi = GUICtrlCreateLabel('Число из Delphi', 8, 192, 91, 17) 
$vOkno_Programmy = GUICtrlCreateInput('0', 94, 192, 53, 21)
GUICtrlCreateGroup('', -99, -99, 1, 1)
$vStatusBar1 = _GUICtrlStatusBar_Create($vControl)
$vClose = GUICtrlCreateButton('Close', 208, 376, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1 ;основной цикл
    
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE, $vClose
            Exit
    
		$vZeloe_Zhislo = ControlGetText('Delphi-programm', '', '2011')
	EndSwitch
WEnd

 

[joiner]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
$vControl = GUICreate('Control', 291, 423, 192, 113)
GUICtrlCreateGroup('', 0, 0, 289, 369)
$vDelphi = GUICtrlCreateLabel('Число из Delphi', 8, 192, 91, 17)
$vOkno_Programmy = GUICtrlCreateInput('0', 94, 192, 53, 21)
GUICtrlCreateGroup('', -99, -99, 1, 1)
$vStatusBar1 = _GUICtrlStatusBar_Create($vControl)
$vClose = GUICtrlCreateButton('Close', 208, 376, 75, 25)
$vpaste = GUICtrlCreateButton('вставить', 100, 376, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1 ;основной цикл

    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE, $vClose
            Exit
			case $vpaste
$vZeloe_Zhislo = ControlGetText('123.txt - AkelPad', '', 'AkelEditW1')
GUICtrlSetData($vOkno_Programmy, $vZeloe_Zhislo)
    EndSwitch
WEnd

 

[at]

Спасибо, а как сделать, чтобы число постоянно отображалось в окне программы.

 

[joiner]

в начале скрипта пишешь

$vZeloe_Zhislo = ControlGetText('123.txt - AkelPad', '', 'AkelEditW1')

далее в описании окна строку

$vOkno_Programmy = GUICtrlCreateInput('0', 94, 192, 53, 21)

изменяешь на

$vOkno_Programmy = GUICtrlCreateInput($vZeloe_Zhislo, 94, 192, 53, 21)

при запуске скрипта будет считывание и запись в

$vOkno_Programmy

 

[at]

Все, работает. Спасибо, разобрался.

Сразуже появился связанный вопрос: http://autoit-script.ru/index.php/topic,6574.new.html#new ?