delphi webbrowser post自动登录

delphi webbrowser post自动登录  

 

 

 

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;