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, мне и нужно узнать, что там за данные.

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

Ты вообще знаешь, что такое метод 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 стоят одни вопросы, и никак не узнать, что за ними скрывается. И преобразование в тсроку как раз и дает эти вопросы.

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