![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Добрый день.
есть код Код:
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; 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; Вопросы : где косяк? и что делать? |
#2
|
||||
|
||||
![]() Что делать?
Пройти по шагам в Debug-режиме, и глянуть на какой строке происходит вылет(ошибка) |
#3
|
|||
|
|||
![]() умно, умно, но не по теме
ошибка возникает при попытке передачи нуля в ВАРИАНТ, там так и написано: 'Invalid variant operation' читаем внимательно |
#4
|
||||
|
||||
![]() Дак ты спросил "где косяк и что делать", тебе и ответили, как найти место этого косяка.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#5
|
||||
|
||||
![]() Если внимательно приглядеться к представленному быдлокоду, можно увидеть, что в последней строчке переменная Data запросто может быть не определена:
Код:
Data.Value:=SRStr; Не стоит путать форумы с богадельнями. © Bargest |
#6
|
|||
|
|||
![]() ага, как было сказано ранее :
ошибка возникает при попытке передачи нуля в ВАРИАНТ, там так и написано: 'Invalid variant operation' хорошо что ты заметил пусть и не сразу а теперь покажи свое не БЫДЛОКОД, если такой умный |
#7
|
||||
|
||||
![]() Цитата:
Цитата:
Пишу программы за еду. __________________ |
#8
|
||||
|
||||
![]() Слыш, ты чо такой дерзкий?
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#9
|
||||
|
||||
![]() Не получается, вот и нервничает
![]() sorry for offtop Пишу программы за еду. __________________ |
#10
|
||||
|
||||
![]() Да это тот клоун походу, SeemanTM.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#11
|
||||
|
||||
![]() вот еще его нытье на другом форуме http://www.sql.ru/forum/1115230/nepo...winxp-ili-win7
кста, не в первый раз что ему советуют он не понимает Пишу программы за еду. __________________ |
#12
|
||||
|
||||
![]() Цитата:
![]() Не стоит путать форумы с богадельнями. © Bargest |
Этот пользователь сказал Спасибо Freeman за это полезное сообщение: | ||
Uniq! (14.09.2014)
|
#13
|
||||
|
||||
![]() ВОТ ЭТО тема!!! О Гоги, я нашёл то, что искал на протяжении всего обучения в ВУЗЕ. Freeman
![]() |