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

Вниз

Как программно нажать на кнопку Submit?   Найти похожие ветки 

 
der ©   (2002-04-19 14:04) [0]

Была такая тема. Там дали ответом пример
procedure TForm1.Button1Click(Sender: TObject);
var
Coll : IHTMLElementCollection;
i : integer;
Doc : IHtmlDocument2;
begin
Doc:= WebBrowser1.Document as IHTMLDocument2;
Coll:= Doc.All.tags("INPUT") as IHTMLElementCollection;
for i:=0 to Coll.length-1 do
if (Coll.item(i,varEmpty) as IHTMLInputElement).value="But1"
then (Coll.item(i,varEmpty) as IHTMLElement).click;
end;

что такое?
Coll : IHTMLElementCollection;
i : integer;
Doc : IHtmlDocument2;


 
gek ©   (2002-04-19 14:17) [1]

IHTMLElementCollection - набор элементов страницы


 
ec   (2002-04-19 14:32) [2]

Лучше посмотри каким методом отсылается форма Post или Get
а затем NMHTTP.Post или Get("Submit=ok&vasja=lamer");


 
der ©   (2002-04-19 14:57) [3]

отсылается методом POST.
Короче, ситуация такова:
есть страница с несколькими radiobutton и кнопочкой, которя отсылает номер radiobutton.
<form name=forma action= http://www.address.ru/cgi-bin/var.pl method=POST>
<input type=radio name=vote value=1>Вариант 1<br>
<input type=radio name=vote value=2>Вариант 2<br>
<input type=radio name=vote value=3>Вариант 3<br>
<input type=submit value=Отправить>
</form>
мне надо периодически отправлять value=2.
Как это сделать. С программированием для инета не сталкивался ни разу.
Помогите, пож-та!!!



 
ec ©   (2002-04-22 15:29) [4]

В место Post напиши GET, затем в IE посмотри что он наверху в урле напишет.
потом в делфи
NMHTTP.Get("что получил");
Не обязательно это POS"om шубмитиь, GET тоже работает



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

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

Наверх




Память: 0.47 MB
Время: 0.012 c
14-9973
VJar
2002-06-02 00:29
2002.07.04
Ищу компоненту или исходник


7-10023
Airs
2002-04-08 16:54
2002.07.04
Адреса и BIOS


1-9833
AMQ
2002-06-14 17:26
2002.07.04
JPEG in EXE


4-10056
Sirus
2002-05-07 13:15
2002.07.04
Нужно запустить DOS приложение, подождать его завершения и ...


1-9856
volph
2002-06-21 15:01
2002.07.04
Parameters.ParamByName( GUID ).Value