Динамическая обработка событий WebBrowser

[e.sibenkov]

Есть задача создать приложение (парсера) нескольких страниц одновременно.
Решил сделать это так: создать динамически необходимое кол-во WebBrowser и Memo (для отображение данных).

for ii:=1 to 5 do
             begin
              Memo := TMemo.Create(Self);
               with TWinControl(Memo) do
                  begin
                      Name := 'Memo' + intToStr(ii) ;
                      Parent:=Self;;
                                     end;
              WebBrowser:= TWebBrowser.Create(Self);
                   with TWinControl(WebBrowser) do
                       begin
                           Parent := Self;
                           Name := 'WebBrowser' + intToStr(ii) ;
                           Parent := Self;
                            WebBrowser.Navigate(adress[ii]);
                           WebBrowser.OnDocumentComplete:=WebBrowserDocumentComplete;

                        end;
             end;

Во время создание объектов сделал связку: после загрузки страницы выполнить событие.

  WebBrowser.OnDocumentComplete:=WebBrowserDocumentComplete;

При запуске программа ругается в строке WB_GetHTMLCode....

procedure TForm1.WebBrowserDocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OLEvariant);
var
 RegExp: TRegExpr;
 s: string;
 CurWebrowser : IWebBrowser;
 TopWebBrowser: IWebBrowser;
 Document     : OLEvariant;
 WebBrowser: TWebBrowser;
 Memo:Tmemo;
 WindowName, find   : string;
 j, k, i : integer;
begin
   WB_GetHTMLCode(Webbrowser, Memo.Lines);
......
end;

На сколько я понял здесь беда в Webbrowser и Memo.Lines так их нету.
Вопрос: как правильно их описать в процедуре так они все создаются динамически и вариант c циклом

WB_GetHTMLCode(Webbrowser(ii), Memo(ii).Lines)

не прошел у меня ((.

[Stilet]

При запуске программа ругается в строке WB_GetHTMLCode....

Я так понимаю, текст ругани нам угадывать нуна?
Ладно. Телепатирую: Такой функции не существует. Вывод прост - используй innerHTML свойства документа браузера для получения HTMLки.

[e.sibenkov]

Исходник прикрепил. В Файле setting при параметре countnum=1 все работает нормально на против ока браузера отображается html код.
При countnum=4, WebBrowser1,WebBrowser2,WebBrowser3 отображает почему то пусто, а только при WebBrowser4 в memo4 видно исходный код.
Мне надо так: показать WebBrowser1 и в Memo1 (исходный код WebBrowser1), в WebBrowser2 и в Memo2 (исходный код WebBrowser2) и т.д.

[Аватар]

Sender и есть твой WebBrowser. Только передавать TWebBrowser(Sender). А memo при создании можно в массив поместить Memos: array[1..5] of TMemo и индекс массива в WebBrowser.tag засунуть. По этому индексу из tag и брать нужный memo из массива

[e.sibenkov]

Можно более подробнее "для особо одаренных людей" как действовать с Sender и WebBrowser.