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

Вниз

Проблема с Submit у TWebBrowser   Найти похожие ветки 

 
tasman   (2003-07-15 06:29) [0]

Доброго времени суток!
У меня появилась небольшая проблема.

Я использую такой код для отправки формы на сервер. Перед этим я аналогичным способом заполняю поля этой формы. Но сервер интерпритирует это как попытку несанкционированого доступа и сообщает, что мои действия привели к неправильной интерпритации данных сервером. Но при этом если вручную нажать кнопку Submit в окне WebBrowser"а то все нормально и не какой ошибки не возникает!

WebBrowser1.ControlInterface.Document.QueryInterface(IHtmlDocument2,iDoc);

IDisp:=iDoc.all.tags("Form");
if assigned(IDisp) then begin
IDisp.QueryInterface(IHTMLElementCollection,iColl);
if assigned(iColl) then begin
for i:=1 to iColl.Get_length do begin
iDisp:=iColl.item(pred(i),0);

iDisp.QueryInterface(IHTMLFormElement,iFormElement);
if assigned(iFormElement) and (iFormElement.name="")then
begin
iFormElement.submit;
end;

end;
end;
end;



Из-за чего это может возникать и как этого можно избежать?

Спасибо! С наилучшими пожеланиями Valera.


 
Ihor Osov'yak   (2003-07-16 00:58) [1]

Дык таким же способом поищи IHtmlElement к кнопочке submit и следай click..

Всегда так делаю, проблем еще ни разу не возникало.. Может на кнопочку какой-то скрипт навешан, не делаешь клика - он не выполняется.. Вот сервер это и ловит..


 
tasman   (2003-07-19 08:22) [2]

2 Ihor Osov"yak

Спасибо! Твой способ не пробовал - нашел другой. Работает:
ovElements := WebBrowser1.OleObject.Document.forms.item(0).elements;
for i := 0 to (ovElements.Length - 1) do
begin
if (lowercase(ovElements.item(i).tagName) = "input") and
(lowercase(ovElements.item(i).type) = "submit") then
ovElements.item(i).Click;
end;



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

Форум: "Сети";
Текущий архив: 2003.09.18;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.015 c
1-58744
Dlin
2003-09-06 18:58
2003.09.18
Без формы


14-58863
xman
2003-08-30 18:56
2003.09.18
Кто знает


14-58851
Rouse_
2003-08-31 04:17
2003.09.18
Лог загрузки одной фотографии


4-58975
Andrew_p
2003-07-16 21:03
2003.09.18
Перехват сообщения Windows прокручивания колесика мыши


6-58816
DenKop
2003-07-11 02:06
2003.09.18
Upload FTP несовпадения размеров исходного и полученного файлов





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский