Скачать: CL | DM;

и снова про WebBrowser   Найти похожие ветки 

← →
MetalFan ©   (2006-11-13 08:54) [0]

точнее про его надстройку - 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-13 16:39) [1]

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

---

← →
Dmitrij_K   (2006-11-13 16:41) [2]

.Click;

---

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

IHTMLElement.Click

---

← →
MetalFan ©   (2006-11-13 17:09) [4]

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

---

← →
MetalFan ©   (2006-11-15 19:38) [5]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.039 c