и снова про 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

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

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

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