НЕпонятное с 'Invalid variant operation' WinXP или Win7

[Pcrepair]

Добрый день.

есть код

procedure TMain.ListBox2KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
const  WebSearchId='text';
var SRStr:string;  Data:variant;
begin   (*перенос значения строки в окно ввода страницы в браузере*)
  if (Key = VK_RETURN) then
  SRStr:=(ListBox2.Items[ListBox2.ItemIndex]);

  if not Assigned(Wbbr.Document) then Exit;
  if Wbbr.OleObject.Document.all.tags('FORM').Length <> 0 then
  Data:=Wbbr.Oleobject.Document.GetElementByID(WebSearchId);
  Data.Value:=SRStr;
end;

1. Компилляция происходит нормально.
2. при запуске программы в WinXP все нормально (ну кроме того что под ИЕ8 не работает часть функций)
3. при запуске программы в Win7 (IE9) все работает, но при запуске процедуры вылазит : First chance exception at $7584D36F. Exception class EVariantInvalidOpError with message 'Invalid variant operation'. Process KWFinder.exe (1024), источник

unit System.Variants;

procedure VarInvalidOp;
begin
  raise EVariantInvalidOpError.Create(SInvalidVarOp);
end;

Компиляция в Win7 ничего не изменила

Вопросы : где косяк? и что делать?

[Alex11223]

WinXP ИЕ8
Win7 (IE9)

А вы в курсе, что WebBrowser по умолчанию использует режим IE7, независимо от того, стоит ли более новый? Если не изменить это в реестре или HTML код не содержит специальный параметр.
http://msdn.microsoft.com/en-us/libr...wser_emulation
http://programmersforum.ru/showthrea...=264992&page=2

А для GetElementByID разве Variant нужен, а не IHTMLElement2?

[Pcrepair]

не, мы не в курсе. всего не знает никто
на странице сервиса есть:

<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7, IE=edge"/>

но этот сервис работает корректно только с ИЕ9 и выше (ИЕ8 зависает)
есть стандартный код передачи значения:

var Data:variant;
begin
  (*Вписываю логин в форму на сайте.*)
  Data:=Webbr.oleobject.document.getelementbyid('login-0');  
  Data.value:=LabeledEdit1.Text;

бяда одна - на ХР все работает, на Вынь7 идет исключение Invalid variant operation
Что касается реестра.... ? попробуем, там еще перевести нужно

[Alex11223]

Да про версию IE это вряд ли имеет отношение к вопросу раз в ХР работало.

Скорее уж это:

А для GetElementByID разве Variant нужен, а не IHTMLElement2?

[northener]

Сообщение от Pcrepair

не, мы не в курсе. всего не знает никто

Привет, троешник с амбициями!
А кто это "мы"?

[Stilet]

Да про версию IE это вряд ли имеет отношение к вопросу раз в ХР работало.

А по-моему как раз в ней и все дело. Меня вот эта часть кода смущает: Wbbr.OleObject.
Зачем идти через OLE, если есть Wbbr.Document?

[Pcrepair]

и еще раз:
есть стандартный код передачи значения:

var Data:variant;
begin
  Data:=Wbbr.Oleobject.Document.GetElementByID(WebSearchId);
  Data.Value:=SRStr;

не мной придуманный, а самим билли (или его индусами)
ошибка возникает потому что в Data.Value передается НУЛЬ
а нуль туда передается потому что ИЕ8 и ИЕ9 по разному делают ДОМ:

IE8 <INPUT id=uniq141044814648023 class=b-form-input__input value="сбор мака" name=text jQuery18308003793014671061="18">
IE9 <input id="uniq141044933918717" class="b-form-input__input" name="text">

еще кое кто кое где писал что OLE и IHTMLElementCollection это типа одно и то же. прийдется проверять, но возможно кто что то уже знает?