Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2002.07.04;
Скачать: [xml.tar.bz2];

Вниз

Как программно нажать на кнопку 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.008 c
14-10003
BJValentine
2002-06-04 17:17
2002.07.04
MS Excel 97


7-10033
alexspb
2002-04-09 18:52
2002.07.04
Как узнать имя пользователя-владельца файла в WinNT?


6-9944
DikobraZ
2002-04-21 18:36
2002.07.04
Сканнер портов подвисает...


14-10000
agrig
2002-06-04 09:54
2002.07.04
два вопроса по Install Shield Express


3-9690
zx
2002-06-10 09:43
2002.07.04
FreeReport 2.3





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский