|
|
#12 |
|
Участник
|
Есть проблема в работе с браузером из 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". Кто-нибудь сталкивался с такими вещами?
__________________
Как только вы проиграете, все ваши прошлые победы забудут. |
|
|