Добрый день.

есть код

Код:

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 ничего не изменила

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

[Uniq!]

Что делать?

Пройти по шагам в Debug-режиме, и глянуть на какой строке происходит вылет(ошибка)

умно, умно, но не по теме
ошибка возникает при попытке передачи нуля в ВАРИАНТ, там так и написано: 'Invalid variant operation'
читаем внимательно

[M.A.D.M.A.N.]

Дак ты спросил "где косяк и что делать", тебе и ответили, как найти место этого косяка.

[Freeman]

Если внимательно приглядеться к представленному быдлокоду, можно увидеть, что в последней строчке переменная Data запросто может быть не определена:

Код:

    Data.Value:=SRStr;

В этой строчке в Data ожидается OleObject, но из-за отсутствия begin-end при невыполнении условия в if Data будет иметь вариантное значение Empty, что и вызовет исключение.

ага, как было сказано ранее :
ошибка возникает при попытке передачи нуля в ВАРИАНТ, там так и написано: 'Invalid variant operation'

хорошо что ты заметил пусть и не сразу

а теперь покажи свое не БЫДЛОКОД, если такой умный

[NumLock]

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

где косяк?

нет проверки результата GetElementByID на Null;

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

что делать?

добавить проверку.

[M.A.D.M.A.N.]

Слыш, ты чо такой дерзкий?

[NumLock]

Не получается, вот и нервничает
sorry for offtop

[M.A.D.M.A.N.]

Да это тот клоун походу, SeemanTM.

[NumLock]

вот еще его нытье на другом форуме http://www.sql.ru/forum/1115230/nepo...winxp-ili-win7
кста, не в первый раз что ему советуют он не понимает

[Freeman]

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

а теперь покажи свое не БЫДЛОКОД, если такой умный

Ага, ага, перед каждым быдлокодером расшаркиваться. В моей системе ценностей любой код, оформленный не по стандартам Borland/Embarcadero -- быдлокод. Сам же от этого и страдаешь ведь.

[Uniq!]

ВОТ ЭТО тема!!! О Гоги, я нашёл то, что искал на протяжении всего обучения в ВУЗЕ. Freeman в который раз, спасибо