| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

POST и GET запросы [D5, D6, Win95/98, WinME, NT4, Win2k, WinXP]

Smoke ©   (2003-04-12 00:34:00) 

Помогите плз. если можете. Очень нужно просматривать все данные посылаемые браузером методом POST. Возвращаются при этом данные или нет не важно.

Заранее благодарен!

---

Slym   (2003-04-15 07:31:00) [1]

> int64 © (12.04.03 06:31)
> Если браузер IE

Работает если "свой браузер", а если чужой и любой???
Ответ говоришь не важен - тогда обычный сервер:
который выводит все что на него пришло...
Этот сервер (его хост и порт) усазываешь в настройках браузера: прокси сервер... туда вся инфа и полезет

---

int64   (2003-04-12 06:31:00) [2]

Если браузер IE, то юзай BeforeNavigate2.

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;

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

---

Наверх