Показать сообщение отдельно
Старый 16.10.2013, 13:28   #12  
zuzka is offline
zuzka
Участник
Аватар для zuzka
 
131 / 10 (1) +
Регистрация: 29.07.2013
Есть проблема в работе с браузером из 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;
Все работает отлично - однако у пользователя с IE 10 выкидывает ошибку:
"Не удалось вызвать член getElementByID: Исключение из HRESULT: 0x800A01B6".
Кто-нибудь сталкивался с такими вещами?
__________________
Как только вы проиграете, все ваши прошлые победы забудут.