| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TWebBrowser [D5, D6]
Lider © (2002-02-14 21:44:00)Какими способами можно моей программке на delphi из WebBrowser"a (на делфовой форме) достать,например, введённое в стандартной форме html"я (поле "input", кнопки "submit" & "reset) текст из "input" при нажатии на кнопку "submit"?
RainMan (2002-02-20 06:57:00) [1]Удалено модератором
Лёша (2002-02-17 02:30:00) [2]
TempDoc:= TempBrowser.Document as IHTMLDocument2;
Лёша (2002-02-17 02:13:00) [3]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;
Lider (2002-02-16 17:30:00) [4]А как исходя из этой прожки к фреймам обращаться?. Я так понял , что она ищет inputы только на главной странице.
Lider (2002-02-16 01:40:00) [5]Уж чё-то сложно для меня новичка, но работает. Нельзя ли подробнее что это за типы переменных и всякие операторы из mshtml или подкинь плииизз доки.
Лёша (2002-02-15 05:10:00) [6]
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;
| |
