|
![]() |
#1 |
Участник
|
Есть проблема в работе с браузером из Nav.
Существующий код открывает IE, вводит логин и пароль пользователя и клацает по кнопке. Код: iExplorer Automation 'Microsoft Internet Controls'.InternetExplorer HTMLDoc Automation 'Microsoft HTML Object Library'.HTMLDocument HTMLInputElem Automation 'Microsoft HTML Object Library'.HTMLInputElement _________________________________________________________________________________ SiteAdress := WebSetup."Web Site Adress"; UserLogin := WebSetup.Login; UserPassword := WebSetup."Open Password"; CLEAR(iExplorer); IF NOT CREATE(iExplorer, TRUE, TRUE) THEN ERROR(Text005); iExplorer.Visible(TRUE); iExplorer.Navigate(SiteAdress); // open url WHILE iExplorer.Busy DO; // wait for full load HTMLDoc := iExplorer.Document; // copy html page WHILE iExplorer.Busy DO; // wait fo full copy // set login HTMLInputElem := HTMLDoc.getElementById('LoginUserName'); HTMLInputElem.value := UserLogin; // set password HTMLInputElem := HTMLDoc.getElementById('LoginPassword'); HTMLInputElem.value := UserPassword; // enter site HTMLInputElem := HTMLDoc.getElementById('NAV_ENTER'); HTMLInputElem.click; "Не удалось вызвать член getElementByID: Исключение из HRESULT: 0x800A01B6". Кто-нибудь сталкивался с такими вещами?
__________________
Как только вы проиграете, все ваши прошлые победы забудут. |
|