CreateOleObject('InternetExplorer.Application') ошибка invalid variant operation

@nontxt · Регистрация: 13.01.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток!
Решил написать небольшую программу-анализатор информации на странице вот код:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 
var
   IE: Variant;
   output,HTML: string;
begin
    IE := CreateOleObject('InternetExplorer.Application');
  IE.Navigate('https://steamcommunity.com/market/listings/730/Glock-18%20%7C%20Wraiths%20%28Battle-Scarred%29?l=russian');
  While IE.Busy do begin end;
  HTML:= IE.Document.body.innerHTML ;
  output:='';
  Delete(HTML,1,pos('$J(document).ready(function(){',HTML)+length('$J(document).ready(function(){')-1);
  output:=copy(HTML,1,pos('"]];',HTML)+2);
  Memo1.Lines.Add(output);
end;
 
end.

Но столкнулся с такой проблемой что тип Variant очень опасная штука и я понятия не имею какой тип использовать для создания объекта InternetExplorer(WebBrowser не использую по определению что мне нужен только HTML код)
Он опасен тем что не определен и очень странно себя ведет, например если выполнить этот код то с вероятностью 50% вы получите ошибку invalid variant operation а Debug напишет следующее сообщение: Exception class EVariantInvalidOpError with message 'Invalid variant operation'.
Но в редких случаях ошибки нет и я получаю то что нужно

В чем причина?

P.S. также на появление ошибки влияют переменные с другим типом(не Variant) output,HTML: string;
P.S.S Версия Delphi XE4

Добавлено через 6 минут
Также если есть предложение что использовать вместо InternetExplorer(для повышения скорости) пожалуйста поделитесь.

@mss · 14.10.2015, 20:54

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

WebBrowser не использую по определению что мне нужен только HTML код

WebBrowser и InternetExplorer.Application - одни и те же фаберже, с видами соответственно в профиль и в анфас.

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

нужен только HTML код

Для заколачивания гвоздей совершенно не обязательно использовать микроскоп (WebBrowser, он же InternetExplorer.Application) - для этого есть молоток (Indy TIdHTTP, Synapse THTTPSend)

@nontxt · 14.10.2015, 21:06 **[ТС]**

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

для этого есть молоток (Indy TIdHTTP, Synapse THTTPSend)

Увы но я не зря написал про IE тк на сайт по дефолту написан на английском языке а приставка в URL: "?l=russian" переводит все содержимое на русский язык(скорее всего при помощи java)
Если использовать TIdHTTP просто выскакивает ошибка

@mss · 14.10.2015, 21:09

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

скорее всего при помощи java

Тогда какой смысл пытаться выковыривать из текста полученного документа JS-скрипт ?

@nontxt · 14.10.2015, 21:19 **[ТС]**

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

Тогда какой смысл пытаться выковыривать из текста полученного документа JS-скрипт ?

Вы не поняли наверное(я и сам толком не понимаю как реализована смена языка на сайте) суть в том что при смене языка меняется наполнение документа
Если в indy обратиться к этой странице то indy не поймет что ему делать с этой частью: "?l=russian" и выдаст ошибку
в TWebBrowser такого нет и он переведет страницу.
Возможно я ошибаюсь и смена языка происходит с использованием чего-то другого, но то что indy не может его обработать уже проверено.

@mss · 14.10.2015, 21:35

Проверил - никаких ошибок Инди не выдает

Честно возвращает текст страницы - и с тем самым аппендиксом в URL и без него

Единственная разница - делал обычный запрос, а не через SSL, чтобы не городить огород

@nontxt · 14.10.2015, 21:56 **[ТС]**

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

Проверил - никаких ошибок Инди не выдает

Хм..сам только что проверил, действительно нет ошибок.

Ошибки были когда использовал потоки Thread
Удивительно что при этом апендиксе поток зависал а инди при этом писала Disconnect

@mss · 14.10.2015, 21:58

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

Ошибки были когда использовал потоки Thread

Значит криво использовал.

@nontxt · 14.10.2015, 22:28 **[ТС]**

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

Значит криво использовал.

Увы но это не отменяет проблему того что язык и тем самым контент не меняется
Можете сравнить <title> html браузера и инди, часть переводится а часть нет
Есть идеи как это побороть?

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	14.10.2015, 20:54	2
	Сообщение от nontxt WebBrowser не использую по определению что мне нужен только HTML код WebBrowser и InternetExplorer.Application - одни и те же фаберже, с видами соответственно в профиль и в анфас. Сообщение от nontxt нужен только HTML код Для заколачивания гвоздей совершенно не обязательно использовать микроскоп (WebBrowser, он же InternetExplorer.Application) - для этого есть молоток (Indy TIdHTTP, Synapse THTTPSend) 0

@nontxt 1 / 1 / 2 Регистрация: 13.01.2014 Сообщений: 30
	14.10.2015, 21:06 [ТС]	3
	Сообщение от mss для этого есть молоток (Indy TIdHTTP, Synapse THTTPSend) Увы но я не зря написал про IE тк на сайт по дефолту написан на английском языке а приставка в URL: "?l=russian" переводит все содержимое на русский язык(скорее всего при помощи java) Если использовать TIdHTTP просто выскакивает ошибка 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	14.10.2015, 21:09	4
	Сообщение от nontxt скорее всего при помощи java Тогда какой смысл пытаться выковыривать из текста полученного документа JS-скрипт ? 0

@nontxt 1 / 1 / 2 Регистрация: 13.01.2014 Сообщений: 30
	14.10.2015, 21:19 [ТС]	5
	Сообщение от mss Тогда какой смысл пытаться выковыривать из текста полученного документа JS-скрипт ? Вы не поняли наверное(я и сам толком не понимаю как реализована смена языка на сайте) суть в том что при смене языка меняется наполнение документа Если в indy обратиться к этой странице то indy не поймет что ему делать с этой частью: "?l=russian" и выдаст ошибку в TWebBrowser такого нет и он переведет страницу. Возможно я ошибаюсь и смена языка происходит с использованием чего-то другого, но то что indy не может его обработать уже проверено. 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	14.10.2015, 21:35	6
	Проверил - никаких ошибок Инди не выдает Честно возвращает текст страницы - и с тем самым аппендиксом в URL и без него Единственная разница - делал обычный запрос, а не через SSL, чтобы не городить огород 0

@nontxt 1 / 1 / 2 Регистрация: 13.01.2014 Сообщений: 30
	14.10.2015, 21:56 [ТС]	7
	Сообщение от mss Проверил - никаких ошибок Инди не выдает Хм..сам только что проверил, действительно нет ошибок. Ошибки были когда использовал потоки Thread Удивительно что при этом апендиксе поток зависал а инди при этом писала Disconnect 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	14.10.2015, 21:58	8
	Сообщение от nontxt Ошибки были когда использовал потоки Thread Значит криво использовал. 0

@nontxt 1 / 1 / 2 Регистрация: 13.01.2014 Сообщений: 30
	14.10.2015, 22:28 [ТС]	9
	Сообщение от mss Значит криво использовал. Увы но это не отменяет проблему того что язык и тем самым контент не меняется Можете сравнить <title> html браузера и инди, часть переводится а часть нет Есть идеи как это побороть? 0