Добрый день.
есть код
Код:
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 ничего не изменила
Вопросы : где косяк? и что делать?