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

Вниз

Как выяснить полный адрес скрипта при сабмите формы.(TWebBrowser)   Найти похожие ветки 

 
Виталий   (2003-02-26 10:44) [0]

Используется TWebBrowser, есть следующая задача -
При загрузке страницы с формой необходимо узнать полный адрес скрипта, который будет вызываться при сабмите формы. Иногда в свойстве action указывается полный адрес, иногда нет. Решил пойти более простым путем - просто делаю так:

wb.OleObject.Document.forms.item(i).submit;

И в обработчике wbBeforeNavigate2 имею искомый URL:

procedure Tf_Main.wbBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
PostURL:=URL; // Сохраняем искомый УРЛ
Cancel:=true; // Запрещаем навигацию
end;


Но тут возникает проблема - если target="_blank", то обработчик wbBeforeNavigate2 не вызывается, а вызывается wbNewWindow2.
Вот тут я и зашел в путик, так как УРЛ достать я не могу (мож просто не знаю как).

Помогите! Есть ли возможность вытянуть УРЛ открываемой страницы из wbNewWindow2??
Если нет, то как можно по другому вытянуть необходимый мне УРЛ?


 
Виталий   (2003-03-06 18:49) [1]

Вопрос уже снят, всем спасибо за внимание!



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

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

Наверх





Память: 0.44 MB
Время: 0.025 c
14-674
kostya2000
2003-04-11 20:09
2003.05.01
Наш форум умерает!


9-369
Анат
2002-08-24 18:06
2003.05.01
А нужны ли они, квесты ?


1-514
shodan
2003-04-20 15:45
2003.05.01
Hint


3-464
СлБ
2003-04-14 13:46
2003.05.01
Параметры для TQuery


1-591
Михайлов Антон
2003-04-17 18:12
2003.05.01
Как разбить строку??





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