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

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

WebBrowser и данные формы [D6, WinXP]

Vilux ©   (2003-12-15 21:22:00) 

Здравствуйте, подскажите пожалуйста,
как мне перехватить данные, которые отсылает форма при нажатии Submit в WebBrowser?

---

int64   (2003-12-16 21:06:00) [1]

function VarArrayToString(const V: Variant): string;
var
i, j: Integer;
begin
if VarIsArray(V) then
for i:= VarArrayLowBound(V, 1) 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;

---

SergP   (2003-12-16 12:17:00) [2]

Напиши прокси-сервер, конекться через него, а там уже можешь перехватить данные, которые отсылаются в POST-запросе.

---

Наверх