HTML页面在delphi中实现

2004-10-21 05:08:39 282 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Delphi 12.2 新增的 WebStencils 尝鲜这个有本文上述的 github 链接里面的例子代码。1. 使用一个框架页面，在需要装正式内容的地方，写上：@RenderBody;2. 页面内容文件比如 index.html，不需要有页面框架代码诸如 html> 等等，仅仅只需要提供页面显示内容。然后在文件开头把要使用的框架文件的名字写上去：@LayoutPage 框架.html；3. 页面的其它地方的代码，需要引入其它外部文件的内容，使用 @Import 文件名.html 的方式。问题来了：我的页面组装正确了，也正确显示了。阅读详情

有如下一段HTML页面:
<html>
<head>
<title>测试页面(软方式)</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<form method="post" action="http://127.0.0.1:448/servlet/com.icbc.inbs.yhzq.NCAPIReqServlet">
<input name="opName" value="NCQueryBalanceOp">
<input name="reqData" value="<?xml version Account_cur><userID>htzq.d.4301</userID><PackageID>041102150804887</PackageID><ReqReserved1></ReqReserved1><ReqReserved2></ReqReserved2></ReqParam></opReq></ICBCYH>">
<input name="userID" value="htzq.d.4301">
<input name="PackageID" value="041102150804887">
<input type="submit" value="单帐户余额查询">
</form>
</body>
</html>

在DELPHI中如果要实现,用什么控件?怎么实现?
最好给个原代码

...全文

[转]Delphi实现网页自动登陆比如操作 CSDN的登录先用WebBrowser定位到登录页面 WebBrowser1.Navigate(http://passport.csdn.net/UserLogin.aspx?from=http://community.csdn.net/); 然后，看其HTML源代码，发现名字为 ctl00$CPH_Content$tb_LoginNameO 阅读详情

highbury

网络通信/分布式开发 1,594 成员 32,944 内容

+ 关注 + 加入社区

切换为时间正序

Bellamy 2004-10-22

打赏
举报

SEE!

halfdream 2004-10-22

打赏
举报

可能是参数需要编码吧。。
reqData=<?xml version Account_cur><userID>htzq.d.4301</userID>
<PackageID>041102150804887</PackageID><ReqReserved1></ReqReserved1><ReqReserved2></ReqReserved2></ReqParam></opReq></ICBCYH>

被IE6 POST的时候，就编码成下面。。（使用HTTP1.1,Content-Type: application/x-www-form-urlencoded)

reqData=%3C%3Fxml+version++Account_cur%3E%3CuserID%3Ehtzq.d.4301%3C%2FuserID%3E%
3CPackageID%3E041102150804887%3C%2FPackageID%3E%3CReq
Reserved1%3E%3C%2FReqReserved1%3E%3CReqReserved2%3E%3C%2FReqReserved2%3E
%3C%2FReqParam%3E%3C%2FopReq%3E%3C%2FICBCYH%3E

highbury 2004-10-22

打赏
举报

cronuz(cronus) :
非常感谢!你的这个方法我也试过了,可服务器还是认不出来多个参数,后来测试发现一个规律,如果我在本地收工做一个html页面,有一个表单,并且放四个输入框,并且每个框输入数据,然后表单post上去,这样服务器就能收到我的参数.而我在delphi里面不管是用&符表示多个参数还是用StringList装入多个参数,均不能被服务器解析,请教还有没有解决方法!

cronuz 2004-10-21

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);
var
postList: TStrings;
begin
EditURL.Text := 'http://127.0.0.1:448/servlet/com.icbc.inbs.yhzq.NCAPIReqServlet';

postList := TStringList.Create;
try
postList.Add('opName=NCQueryBalanceOp');
{...}
postList.Add('userID=htzq.d.4301');
postList.Add('PackageID=041102150804887');
IdHTTP1.Post( EditURL.Text, postList );
finally
EditURL.Text := IdHTTP1.Response.Server + ': ' + IdHTTP1.Response.ResponseText;
postList.Free;
end;
end;

説明：用「TIdHTTP」控件、把多个变量放入「TStringList」中一起传送。

highbury 2004-10-21

打赏
举报

indy无法实现传多个变量!就像form里的很多个input一样

try876 2004-10-21

打赏
举报

不是有控件吗？

i54 2004-10-21

打赏
举报

帮顶

skywang0810 2004-10-21

打赏
举报

沃野关注，顶！

HTML页面在delphi中实现

相关推荐