Скачать: 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 вся ветка

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



Память: 0.46 MB
Время: 0.006 c