<form action="http://211.x.x.x/kp.dll" method="post" name="frm1">
车次<input type="text" name="para1"> <input type="submit" value="查询">
</form>
这是一段web代码 我现在需要在程序里将参数代入其中(比如para1=177) 提交 接收返回的结果 该怎么做呢? 请教
车次<input type="text" name="para1"> <input type="submit" value="查询">
</form>
这是一段web代码 我现在需要在程序里将参数代入其中(比如para1=177) 提交 接收返回的结果 该怎么做呢? 请教
解决方案 »
- 有关dbgird的问题
- 请在家帮帮忙
- 高分寻找类似于ShellComboBox的控件
- 请教:dll中创建的窗体如何显示在主窗口的容器中
- 有关于数学模型Y*Exp(x/T0)=A0+B*Exp[(1/T0-1/T)*x]求解算法?
- 在一个Memo组件中有若干个英文字,如何统计这些文本中,从'A'到'Z',从‘a'到'z'的各个英文字母的个数
- 散分,提一简单问题
- access的一个奇怪的问题,不指望得到答案,大家看看。
- Delphi's Bug or "我是一只小小鸟!"(关于MDI和DLL中的子窗口)
- 高手请进,一个TImage的奇怪问题,急
- 事件触发问题
- AdvStringGrid的自动保存列的位置如何正确使用?
利用D7的WebAppDebugger分析Post的内容,就可以添加你自己的内容了自己去研究HTTP的Post方法吧
EncodedDataString: string;
PostData: OleVariant;
Headers: OleVariant;
j: Integer;
AddressStr:string;
begin
AddressStr:='http://211.x.x.x/kp.dll';
EncodedDataString := 'paral=177';
PostData := VarArrayCreate([0, Length(EncodedDataString) - 1], varByte);
for j := 1 to Length(EncodedDataString) do
PostData[j-1] := Ord(EncodedDataString[j]);
Headers :='Content-Type: application/x-www-form-urlencoded'+ #10#13;
try
WebBrowser1.Navigate(AddressStr, EmptyParam, EmptyParam, PostData, Headers);
except
end;
end;
车次<input type="hidden" name="para"><input type="text" name="para1">
你的方法用过 显示 有错误发生 和网页代码里去掉<input type="hidden" name="para">时查询结果一样 另外 <form ... name="frm1">这个参数上面的代码里似乎没有体现 是什么原因