Форум: "Основная";
Текущий архив: 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.45 MB
Время: 0.005 c