Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.02;
Скачать: CL | DM;

Вниз

TWebBrowser   Найти похожие ветки 

 
Lider   (2002-02-14 21:44) [0]

Какими способами можно моей программке на delphi из WebBrowser"a (на делфовой форме) достать,например, введённое в стандартной форме html"я (поле "input", кнопки "submit" & "reset) текст из "input" при нажатии на кнопку "submit"?


 
Лёша ©   (2002-02-15 05:10) [1]

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
Coll : IHTMLElementCollection;
Doc: IHTMLDocument2;
i: integer;
begin
Doc:= (WebBrowser1.Document as IHTMLDocument2);
if Doc<>nil then
begin
Coll:=Doc.All.Tags("INPUT") as IHTMLElementCollection;
for i:=0 to Coll.length-1 do
with (Coll.item(i,varEmpty) as IHTMLInputElement) do
if type_="text" {тип элемента INPUT} then
//if name="id" {имя элемента INPUT} then
Caption:=value;
end;
end;


 
Lider   (2002-02-16 01:40) [2]

Уж чё-то сложно для меня новичка, но работает. Нельзя ли подробнее что это за типы переменных и всякие операторы из mshtml или подкинь плииизз доки.


 
Lider   (2002-02-16 17:30) [3]

А как исходя из этой прожки к фреймам обращаться?. Я так понял , что она ищет inputы только на главной странице.


 
Лёша ©   (2002-02-17 02:13) [4]

2 Lider (16.02.02 01:40)
Что это за типы переменных и всякие операторы описанно в MSDN (WebBrowser object). Хотя большенство информации было здесь на форумах.

2 Lider (16.02.02 17:30)
Возьми на сайте http://www.euromind.com/iedelphi/embeddedwb.htm компонент. Тот же TWebBrowser только дополненный. У него есть функции работы с фреймами. Каждый фрейм это отдельный TWebBrowser. Поэтому получи по очереди каждый интерфейс и для каждого документа выполни ту же процедуру поиска input-ov.

var i: integer;
TempBrowser: IWebBrowser2;
TempDoc: IHTMLDocument2;
begin
for i:=0 to EmbeddedWB1.FrameCount-1 do
begin
TempBrowser:= EmbeddedWB1.GetFrame(i);
TempDoc:= TempBrowser as IHTMLDocument2;

............

end;
end;


 
Лёша ©   (2002-02-17 02:30) [5]

TempDoc:= TempBrowser.Document as IHTMLDocument2;


 
RainMan   (2002-02-20 06:57) [6]

Удалено модератором



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

Текущий архив: 2002.05.02;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
3-2480
KoLega
2002-04-10 18:01
2002.05.02
Нехочу использовать доступ к базе через BDE, а хочу через ADO, но


3-2497
Sam
2002-04-11 17:23
2002.05.02
MySQL and Delphi6


3-2481
СергейКнязев
2002-04-11 12:44
2002.05.02
Как создать дерево данных из таблицы


4-2710
skywalker
2002-02-27 11:50
2002.05.02
Окно в потоке


14-2683
Santus
2002-03-25 20:38
2002.05.02
Нет