Как правильно парсить с TWebBrowser? Проблема с отображением.

[kojiger]

Здравствуйте, уважаемые участники форума.

У меня возникла такая проблема. И хотел бы задать два вопроса.

Вопрос №1.

Из загруженной страницы необходимо получать весь имеющийся код вместе с тегами, чтобы затем в последствии вытягивать необходимые данные.
Реализовал эту задачу следующим образом:

#1 procedure TfmBot.btnScanClick(Sender: TObject);
#2 var
#3 Document: IHTMLDocument2;
#4 begin
#5 Memo1.Lines.Clear;
#6 Document := WebBrowser1.Document as IHtmlDocument2;
#7 if Document <> nil then
#8 astr := (Document.all.Item(NULL, 0) as IHTMLElement).OuterHTML;
#9 Memo1.Text := astr;
#10 end;

На одном ПК все прекрасно работает. Далее, запускаю этот метод на другом ПК, в строке memo вместо данных:
"<?xml version="1.0" encoding="UTF-8"?>" (декларация XML, сообщающая браузеру, что данный документ построен в соответствии с правилами синтаксиса XML и в кодировке utf-8.)

Меняю в строке #8 параметр "NULL" на "1" и на другом ПК начинает все работать.
Собственно вопросы:
- скажите, пожалуйста что означает эта переменная именно в этой строке? (Я понимаю, что переменная Null имеет неопределенное значение. Любое выражение, использующее пустую переменную, приведет к пустому результату.)
- почему на одном ПК работает с NULL, а на другом с 1?
- что можно сделать, чтобы работало правильно с параметром NULL, как описано в различных источниках?


Вопрос №2.

Как в TWebBrowser можно нажать на кнопку "Next Page" (она располагается в виде обычного текста с сылкой)?


За ранее благодарен за ответы...