| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

и снова про WebBrowser [D6, WinXP]

MetalFan ©   (2006-11-13 08:54:00) 

точнее про его надстройку - TEmbeddedWB;
что имеем:

var
 lHTMLDoc: IHTMLDocument2;
 lHTMLElements: IHTMLElementCollection;
 lDisp: IDispatch;
 lForm: IHTMLFormElement;
begin

if not((embdwb.Document <> nil) and
    Succeeded( embdwb.Document.QueryInterface(IID_IHTMLDocument2, lHTMLDoc ))) then
     lHTMLDoc := nil;
 if not Assigned( lHTMLDoc ) then Exit;
   lHTMLElements := lHTMLDoc.all;
..
заполняем нужные поля
..
 lDisp := lHTMLDoc.forms.item(AFormName, 0);
 Result := Assigned( lDisp ) and
           Succeeded( lDisp.QueryInterface(IID_IHTMLFormElement, lForm ));
 if not Result then Exit;
 lForm.submit;
...
 надо бы дождаться загрузки страницы....
...
end;

 как мне дождаться загрузки страницы в ответ на submit?
код типа
while embdwb.ReadyState <> READYSTATE_COMPLETE  do
   Application.ProcessMessages;
не срабатывает... ReadyState уже равен READYSTATE_COMPLETE(
спасибо за ответы и советы!

---

MetalFan   (2006-11-15 19:38:00) [1]

а еще вопросик) а как удалить элемент?

---

MetalFan   (2006-11-13 17:09:00) [2]

[2],[3]
вот черт, слона то я и не заметил! спасибо! видимо в час ночи голова уже плохо соображала %)

---

Dmitrij_K   (2006-11-13 16:41:00) [3]

.Click;

---

Dmitrij_K   (2006-11-13 16:41:00) [4]

IHTMLElement.Click

---

MetalFan   (2006-11-13 16:39:00) [5]

сдедал простановку флага в OnDocumentComplite... вроде работает правильно.
теперь вопрос номер 2 в эту же тему.
есть HTML элемент на форме <input type=submit name=somename...
как его программно нажать?
не нашел в MSDN что-то типа IHTMLSubmitElement....
IHTMLInputElement( lctrl ).Form.Submit не проходит почемуто(

---

Наверх