delphi 中如何查看网页POSTDATA
2015-10-29 15:50
561 查看
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp := WebBrowser2.Application;
Cancel := False;
end;
procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
I: Integer;
sText :String;
vPostData:OleVariant;
nLen :Integer;
szData:String;
begin
vPostData := PostData;
if VarIsArray(vPostData,True) then
begin
nLen := VarArrayHighBound(vPostData,1) - VarArrayLowBound(vPostData,1)+1;
SetLength(szData,nLen);
for I := 0 to nLen - 1 do // Iterate
begin
szData[I+1] := Chr(Byte(vPostData[I]));
end; // for
sText := szData;
end;
end;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp := WebBrowser2.Application;
Cancel := False;
end;
procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
var
I: Integer;
sText :String;
vPostData:OleVariant;
nLen :Integer;
szData:String;
begin
vPostData := PostData;
if VarIsArray(vPostData,True) then
begin
nLen := VarArrayHighBound(vPostData,1) - VarArrayLowBound(vPostData,1)+1;
SetLength(szData,nLen);
for I := 0 to nLen - 1 do // Iterate
begin
szData[I+1] := Chr(Byte(vPostData[I]));
end; // for
sText := szData;
end;
end;
相关文章推荐
- delphi 取json中数组的值(ISuperArray)
- Delphi Cookie
- delphi 数组的使用
- delphi一些语法
- delphi取括号内或括号外的内容
- delphi梦魇病毒--解决方法 备着自己用
- 详细的键盘键值表
- Delphi字符串中添加特殊字符及ASCII码表
- Jnative调用delphi编译的dll解密方法
- Delphi,几个实用的HTML解析函数
- Delphi 中TWebBrowser的扩展控件TExWebBrowser
- delphi实现数字签名
- delphi clipboard
- Delphi Randomize
- delphi 指针 认识
- delphi 写日志
- delphi Post数据到网页
- delphi将图片转换成Base64编码函数
- 学派Delphi方法(推荐)——————————【Badboy】
- delphi学习-各种文件介绍