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./myquery/queryBill.action?locale=zh_CN', EmptyParam, EmptyParam, PostData, Headers); end; |
|
来自: aaie_ > 《webbrowser》