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

Вниз

PostData   Найти похожие ветки 

 
BlackSun   (2002-07-24 20:22) [0]

Народ, не подскажите, как бы узнать, что содержится в PostData при вызове OnBeforeNavigate в компоненте TWebBrowser?


 
int64   (2002-07-24 21:51) [1]

Например, перевести в стринг:

function VarArrayToString(const V: Variant): string;
var
i, j: Integer;
begin
if VarIsArray(V, True) then
for I := 0 to VarArrayHighBound(V, 1) do
begin
j := V[i];
result := result + chr(j);
end;
end;


 
BlackSun   (2002-07-26 07:06) [2]

Делаю все как ты написал, но программа ни разу не попадает в этот цикл, хотя пишет, что PostData: variant array of byte;
Если сделать принудительно цикл, то вылетает с ошибкой, что это не variant of array.
Кстати, вместо VarIsArray(V,True) нужно писать VarIsArray(V)...


 
int64   (2002-07-26 09:14) [3]

А как ты данные посылаешь?


 
BlackSun   (2002-07-27 20:20) [4]

Я не посылаю данные, я перехватываю их во время события OnBeforeNavigate, мне и нужно узнать, что там за данные.


 
int64   (2002-07-28 06:52) [5]

Если не посылаешь, откуда им там взятся!

Ты вообще знаешь, что такое метод POST?

//Нажми на эту кнопку:

procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
s:= "<form action="c:\temp\15.htm" method=post>"+
"<INPUT TYPE=TEXT MAXLENGTH=40 SIZE=22 NAME=name>"+
"<INPUT TYPE=submit>"+
"</form>";
WebBrowser1.Navigate("about:"+s);
end;


//Заполни и отошли форму в документе (на любой адресс).

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
caption:= VarArrayToString(PostData);
end;


Всё работает.


 
BlackSun   (2002-07-30 21:44) [6]

Я посмотрел, эта проблема уже неоднократно поднималась, но я так и не нашел решения. Некоторые советовали преобразовывать PostData в Unicode, но ничего не вышло. Просто в PostData стоят одни вопросы, и никак не узнать, что за ними скрывается. И преобразование в тсроку как раз и дает эти вопросы.



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

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

Наверх





Память: 0.56 MB
Время: 0.022 c
1-35241
Kosmach
2002-07-31 06:55
2002.08.12
ProgressBar


7-35482
[ KGB ] GENERAL
2002-05-26 23:22
2002.08.12
Интересный вопрос!!!


3-35150
roadrunner
2002-07-18 16:27
2002.08.12
Excell как мастер отчетов


14-35420
DenKop
2002-07-15 17:29
2002.08.12
Спецификация COM


1-35331
Starkom
2002-07-30 07:49
2002.08.12
помогите с GetPropValue()





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