Webbrowser (событие по изменению кода html)

[Fahman]

Доброго времени суток, Есть браузет webbrowser в delphi вот я его и использую загрузил одну данамическую страницу вот и хотел бы у вас узнать можно ли когда страница сама изменяется брать и выдергивать из нее код? Ну вот короче страничка
хочу просто цену нужную отображать и не хотелось бы брать каждый раз и делать запрос а хотелось бы просто чтоб когда данные сами изменились то текст сам спарсился
Вот мой код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw, regExpr, ActiveX;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure WebBrowser1DownloadComplete(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var ps: IPersistStreamInit;
      ss: TStringStream;
      sa: IStream;
      s: string;
begin
ps := WebBrowser.Document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;
// перехожу по странице
procedure TForm1.Button1Click(Sender: TObject);
begin
     webbrowser1.Navigate(edit1.Text);
end;

//Тут я начал парсить


// После загрузки я вывожу в label результат так вот
// Чтоб постоянно не парсить можно сделать так чтоб при обновлении
//данных все обновлялось автоматом?

procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
end;

procedure TForm1.Memo1Change(Sender: TObject);
 var
RegExp: TRegExpr;
begin
 RegExp := TRegExpr.Create;
 RegExp.InputString :=Memo1.Text;
 RegExp.Expression :='<td class="lines">(.*?)</td>';
 if RegExp.Exec then
 begin
 label1.Caption:=(RegExp.Match[1]);
 end;
 RegExp.Free;
end;

end.

[Человек_Борща]

Если IE ниже 9й версии - забудьте.
А так гуглим HTML DOM Mutation Events
http://stackoverflow.com/questions/5...ts-replacement

[Fahman]

Сообщение от Человек_Борща

Если IE ниже 9й версии - забудьте.
А так гуглим HTML DOM Mutation Events
http://stackoverflow.com/questions/5...ts-replacement

Спасибо, а как проверить какая версия у меня? можно же переустановить данный компонент?

[Stilet]

можно же переустановить данный компонент?

Не поможет. Он тянет все из винды. Я даже не уверен в том что установка нового IE исправит дело.

[Человек_Борща]

Не поможет. Он тянет все из винды. Я даже не уверен в том что установка нового IE исправит дело.

На XP, сервер 2003 максимум 8 IE поставите.
На Windows 7, 8 можете не волноваться.

можно же переустановить данный компонент?

Нельзя. Это компонент операционной системы.

Чем старше версии IE, том лучше реализована поддержка событий мутации DOM-дерева.

[Fahman]

Сообщение от Человек_Борща

На XP, сервер 2003 максимум 8 IE поставите.
На Windows 7, 8 можете не волноваться.


Нельзя. Это компонент операционной системы.

Чем старше версии IE, том лучше реализована поддержка событий мутации DOM-дерева.

получается что вин 7,8 не проблема а на ХР надо переустановить? и только до 8 версии максимум, плохо это....

[DIONISKA]

Можно-же обойтись и без TWebBrowser. Судя по коду страницы по ссылке данные обновляются раз в 30 секунд, причём все они тянутся из ajax по запросу:

https://informers.instaforex.com/ru/quotes_online/ajax/tickers=EURUSD,GBPUSD,USDJPY,USDCAD,USDCHF,USDCAD,EURJPY,EURCHF,GBPJPY,GBPCHF,GOLD&callback=update_quotes?_=0

(опять-же в запросе можно убрать ненужные поля, например GOLD)- можно брать этот ajax, где-нибудь в потоке раз в 30 секунд(при весе около 1,5 кб вряд-ли это загрузит сеть), парсить и сравнивать значения со старыми, а там уже выводить нужные значения, строить графики и пр.

и да:

когда страница сама изменяется брать и выдергивать из нее код?

Очевидно-же что страница точно изменится не позднее чем через 1 минуту, ибо там есть поле со временем

[Человек_Борща]

DIONISKA, человеку надо ловить мутации конкретных узлов DOM, т.е. когда работает AJAX а не перезагружать всю страницу. Темболее что после перезагрузки всей страницы, нужных данных может просто не быть, для этого AJAX и придуман. Например сокрытие номеров телефонов/email'ов и прочего.

получается что вин 7,8 не проблема а на ХР надо переустановить?

Да. Заменить Windows XP на Windows 7. На Windows 7, установить IE 10.
В добавок запрашивать IHTMDocument8 а не IHTMLDocument2

[DIONISKA]

человеку надо ловить мутации конкретных узлов DOM, т.е. когда работает AJAX а не перезагружать всю страницу.

Единственное что я понял из топика это то, что ТС после загрузки страницы копирует код html из TWebBrowser а затем парсит нужные ему значения, при этом желает узнавать когда данные были изменены.
Я предлагал самому подгружать и обрабатывать ajax(не загружая страницу), который и так подгружает та страница один раз в 30 секунд:

setInterval("start_update_quotes()", 30000);

ps: Насколько я понял тот-же MutationObserver требует IE 11 версии, а в поставке с win7 раньше шла 10-я версия(или я что-то пропустил?)

[Человек_Борща]

Я предлагал самому подгружать и обрабатывать ajax(не загружая страницу), который и так подгружает та страница

Бред пишите уважаемый. AJAX подгружает новый HTML код(какую-то часть, а не весь документ) куда-то а JS вставляет этот HTML куда-то на странице. Таким образом в оригинальном HTML этих новшевств нету. И перезагрузив страницу вы ничего не добъётесь.