Форум: "Основная";
Текущий архив: 2007.01.07;
Скачать: [xml.tar.bz2];
Внизи снова про 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 вся ветка
Форум: "Основная";
Текущий архив: 2007.01.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c