Главная страница
    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.44 MB
Время: 0.007 c
3-58544
dimaska
2003-08-27 19:21
2003.09.18
Построение иерархической структуры в МSSQL


3-58590
MakNik
2003-08-26 16:15
2003.09.18
Uniqueidentifier


14-58906
race1
2003-08-29 07:47
2003.09.18
тысячи исходников


6-58810
Igpr
2003-07-17 09:31
2003.09.18
Закачка базы с Oracl`а ч/з TWebBrowser.


1-58753
SIW
2003-09-06 16:40
2003.09.18
Проблема с прорисовкой...





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