注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

成功源于细节

梦想、奋斗、收获

 
 
 

日志

 
 
 
 

delphi webbrowser post自动登录  

2011-09-14 10:53:52|  分类: delphi |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
var
  EncodedDataString: WideString;
  PostData: OleVariant;
  Headers: OleVariant;
  I: Integer;
begin

  // 创建提交串
  EncodedDataString := 'waybills='+HTTPEncode(edtshippingsn.Text)+'&'+'verifycode=' + HTTPEncode(edtcode.Text);

  // 创建字节方式的可变变量数组,并将字符串转换之。
  PostData := VarArrayCreate([0, Length(EncodedDataString) - 1], varByte);
  // Now, move the Ordinal value of the character into the PostData array
  for I := 1 to Length(EncodedDataString) do
      PostData[I-1] := Ord(EncodedDataString[I]);

  // 头类型
  Headers := 'Content-Type: application/x-www-form-urlencoded' + #10#13;

  // 提交
  wb1.Navigate('http://www.exp.com/myquery/queryBill.action?locale=zh_CN', EmptyParam,
      EmptyParam, PostData, Headers);

end;
  评论这张
 
阅读(2652)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017