Проверка текста в WebBrowser

[keholem]

Доброго дня, Форумчане!
Возникла такая проблема: нужно проверить или получить определенный кусок исходного кода страницы загруженной в WB.

Ну хотелось бы сделать это без использования подобных функций:

function SaveHTML(Strings:TStrings;WB: TWebBrowser):boolean;
var
 PersistStream: IPersistStreamInit;
 MS: TMemoryStream;
 Stream: IStream;
 SaveResult: HRESULT;
begin
 PersistStream := WB.Document as IPersistStreamInit;
 MS := TMemoryStream.Create;
 Result:=false;
 try
  Stream := TStreamAdapter.Create(MS, soReference) as IStream;
  SaveResult := PersistStream.Save(Stream, True);
  if FAILED(SaveResult) then exit;
  Result:=true;
  MS.position:=0;
  Strings.LoadFromStream(MS);
 finally
  MS.Free;
 end;
end;

Это не совсем удобно постоянно загружать текст в stringlist, а потом с ним работать, к тому же она почему-то криво работает, если загружаешь страницу первый раз и сразу вызвать эту функции, то вывалится ошибка. Можно ли это сделать как-то по другому, что-то на подобие pos(text,webbrowser1)<>0 ?

[Stilet]

Я не знаю что именно тебе нужно получить, но можно примерно так:

var all,tbls:IHTMLElementCollection; d:IHTMLDocument2;
...
  d:=IHTMLDocument2(WB.Document);
  all:=d.all;
  tbls:=IHTMLElementCollection(all.tags('TABLE'));

Получить скажем коллекцию таблиц.

[keholem]

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

Я не знаю что именно тебе нужно получить, но можно примерно так:

var all,tbls:IHTMLElementCollection; d:IHTMLDocument2;
...
  d:=IHTMLDocument2(WB.Document);
  all:=d.all;
  tbls:=IHTMLElementCollection(all.tags('TABLE'));

Получить скажем коллекцию таблиц.

Ну предположим мне нужно получить содержимое определенного div блока, например:

<div id="container">
....
</div>

[Stilet]

Ну напиши там вместо TABLE слово DIV.
Получишь коллекцию, которую пройдешь в цикле:

for i:=0 to tbls.length-1 do begin
     c:=tbls.item(i,0) as IHTMLElement;
     if c.id='container' then begin
      ...:=c.innerHTML;
     end;
   end;

[keholem]

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

Ну напиши там вместо TABLE слово DIV.
Получишь коллекцию, которую пройдешь в цикле:

for i:=0 to tbls.length-1 do begin
     c:=tbls.item(i,0) as IHTMLElement;
     if c.id='container' then begin
      ...:=c.innerHTML;
     end;
   end;

а без цикла не как?

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

Ну напиши там вместо TABLE слово DIV.
Получишь коллекцию, которую пройдешь в цикле

Попробовал, когда нажимаю на кнопку, программа просто завершается без ошибок.

var
tbls:IHTMLElementCollection;
  c: IHTMLElement;
  d: IHTMLDocument2;
  all: IHTMLElementCollection;
...
    d:=IHTMLDocument2(WebBrowser1.Document);
    all:=d.all;
    tbls:=IHTMLElementCollection(all.tags('DIV'));

for i:=0 to tbls.length-1 do begin
     c:=tbls.item(i,0) as IHTMLElement;
     if c.id='container' then begin
     showmessage(c.innerHTML);
    // ...:=c.innerHTML;
     end;
   end;

[ResourceSpace]

Uses MSHTML;

Procedure TForm1.ToolButton1Click(Sender: TObject);
Var Doc: IHTMLDocument3;
Begin
WB.Navigate('http://www.programmersforum.ru/showthread.php?t=281607');
While WB.ReadyState<>READYSTATE_COMPLETE Do // While WB.Busy Do
      Application.ProcessMessages;
WB.Document.QueryInterface(IID_IHTMLDocument3, Doc);
Doc.getElementById('posts').style.border:='solid red 40px';
End;

[keholem]

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

Uses MSHTML;

Procedure TForm1.ToolButton1Click(Sender: TObject);
Var Doc: IHTMLDocument3;
Begin
WB.Navigate('http://www.programmersforum.ru/showthread.php?t=281607');
While WB.ReadyState<>READYSTATE_COMPLETE Do // While WB.Busy Do
      Application.ProcessMessages;
WB.Document.QueryInterface(IID_IHTMLDocument3, Doc);
Doc.getElementById('posts').style.border:='solid red 40px';
End;

и что это?

[Stilet]

а без цикла не как?

А чем цикл не устроил?

когда нажимаю на кнопку, программа просто завершается без ошибок.

Ну а что показывает в отладке tbls.length?

[keholem]

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

Ну а что показывает в отладке tbls.length?

Я не понимаю как пользоваться откладчиком, сколько раз пробовал, не чего не выходит.

через try except отловил:

eoleexception ошибка с сообщением: не поддерживается

что это значит?

[Stilet]

сколько раз пробовал, не чего не выходит.

1) Становишься на строку, с которой будешь отлаживать
2) Жмешь F5 - Появляется точка прерывания (бряк)
3) Просто запускаешь программу (В меню Run выбери запуск и отладчиком)
4) Прога брякается на бряке - начинается отладка
5) Мышкой наводишь на переменную, или свойство - в хинте вылезает ее значени
6) Жмешь F7 - отладка проскакивает на следующий оператор вглубь программы - происходит трассировка (или пошаговка, если по русски)

что это значит?

Скорее всего какой-то из интерфейсов не может быть использован. Нужно знать на какой строке ошибка, поэтому делай пошаговку.