如何写一个程序向网页中的表单发送数据,又如何得到其反馈信息????? http://www.csdn.net/aaa.asp?abc="100"&ddd=100收信息要分析应答信息 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我倒做过将网页上的数据接收下来通过Socket传到前置机上(Unix),由前置机处理完逻辑后将返回数据返回给客户端,没有试过你这种想法 to dhl2001:我去看看你给的连接的文章to eping:能详细点说说你做过的那个么?谢谢两为先 http://www.csdn.net/aaa.asp?abc="100"&ddd=100 找不到呀??? 我就是举个例子模拟表单的提交,去过800buy开心词典吗?用这个原理可以做一个自动答题机 我现在也需要用到这个东西,别人告诉我的是用控件。很容易发送和接受信息的。控件好象叫:FPiette不要找我要,自己找,我也没有。var HttpCli: THttpCli; body : String;begin HttpCli.URL := Url; HttpCli.SendStream := TMemoryStream.Create; HttpCli.SendStream.Write(LocalFile[1],length(LocalFile)); HttpCli.SendStream.Seek(0,soFromBeginning); HttpCli.Post; SetLength(Body,HttpCli.RcvdStream.Size); HttpCli.RcvdStream.Seek(0,soFromBeginning); HttpCli.RcvdStream.Read(Body[1],HttpCli.RcvdStream.Size); HttpCli.RcvdStream.Free; if NetFailure then exit; //showmessage(NMHttp.Body); XMLLogin.async := false; //showmessage(body); if XMLLogin.loadXML(Body) then begin end;end; 你把你要提供数据的方法写成MTS,然后用ASP来访问这些组件: <% set MyMTSObject=CreateObject("MTSProject.MyMTS") MyMTSObject.MyMethod(aa,bb) %> 前两天看一个贴子,好象用TBrower就能做,具体方法,你查一查开发文档中的VB栏 我只能告诉你,dhl2001(暗夜行路)的方法不错,察看它的愿吗就能知道参数。 如何在播放的视频画面上画一个空心透明框且框可移动 记住edit中的输入法 帮忙看看程序 用DBEidt显示,用ADOQuery修改时的问题?? 如何判断Edit是不是整型? 关于POWERPOINT编程资料? ★★MSN - 纯净的天空!交友连谊会!有MSN的朋友快进来报道!★★ 可能很简单看看 (但是也不一定):) 查询问题 DELPHI 7有没有能像office2013筛选的控件 如何制作一个目录选择对话框 请问谁会BOM算法,如果有源码一定给80分
逻辑后将返回数据返回给客户端,没有试过你这种想法
to eping:能详细点说说你做过的那个么?谢谢两为先
模拟表单的提交,去过800buy开心词典吗?用这个原理可以做一个自动答题机
控件好象叫:FPiette
不要找我要,自己找,我也没有。var HttpCli: THttpCli;
body : String;
begin
HttpCli.URL := Url;
HttpCli.SendStream := TMemoryStream.Create;
HttpCli.SendStream.Write(LocalFile[1],length(LocalFile));
HttpCli.SendStream.Seek(0,soFromBeginning);
HttpCli.Post;
SetLength(Body,HttpCli.RcvdStream.Size);
HttpCli.RcvdStream.Seek(0,soFromBeginning);
HttpCli.RcvdStream.Read(Body[1],HttpCli.RcvdStream.Size);
HttpCli.RcvdStream.Free;
if NetFailure then
exit;
//showmessage(NMHttp.Body);
XMLLogin.async := false;
//showmessage(body);
if XMLLogin.loadXML(Body) then
begin
end;
end;
<%
set MyMTSObject=CreateObject("MTSProject.MyMTS")
MyMTSObject.MyMethod(aa,bb)
%>