delphi提交网面参数? 我想用DELPHI写一个自动投票的小程序,但是不知道怎么做.http://www.mellnet.com/vote/vote.asp?id=40我只要用程序循环发送这个URL就可以实现自动投票,但具体代码如何写?请教~~~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这是我是代码:procedure TForm1.Button1Click(Sender: TObject);var HttpClient:TidHttp; Params: TStrings; HTML: String; ret:TStringStream;begin// Params:=TStringList.Create; ret:=TStringStream.Create(''); try HttpClient.HandleRedirects:=false; HttpClient.Request.ContentType:='application/x-www-form-urlencoded'; Params.Clear; Params.Add('id=42'); HttpClient.Request.Referer:='http://www.mellnet.com/vote/'; HttpClient.Post('Vote_do.asp',Params,ret); HTML:=ret.DataString; finally Params.Free; ret.Free; end;end;运行出错~~不好意思,没有分了~! 两个初级问题,在线求助。。。 关于QQ代理 问题 关于增量查询和数据库相关的问题,请大家多多帮忙,谢谢!(新手) 动态赋值OnClick事件后怎么要点击两下才能触发事件? DBGRID問題 定时在TImage上用TextOut,但会留下上次的图形 怎样终止一个正在执行的循环? 请问我在中间层的接口方法中怎么定义我自定义的数据类型??? 求教!关于delphi数据库开发的一个问题。初次提问,请多多关照。 delphi生成的exe文件如何防止别人修改里面的超级链接 XML的问题,在线急等 上传文件,把本地的图片,word文档,pdf文件上传
procedure TForm1.Button1Click(Sender: TObject);
var HttpClient:TidHttp;
Params: TStrings;
HTML: String;
ret:TStringStream;
begin
// Params:=TStringList.Create;
ret:=TStringStream.Create('');
try
HttpClient.HandleRedirects:=false;
HttpClient.Request.ContentType:='application/x-www-form-urlencoded';
Params.Clear;
Params.Add('id=42');
HttpClient.Request.Referer:='http://www.mellnet.com/vote/';
HttpClient.Post('Vote_do.asp',Params,ret);
HTML:=ret.DataString;
finally
Params.Free;
ret.Free;
end;
end;
运行出错~~
不好意思,没有分了~!