如何用 IDHTTP 的 post 方法提交 http://www.mirdy.cn/add.asp?action=sfadd 如何用 IDHTTP 的 post 方法提交 http://www.mirdy.cn/add.asp?action=sfadd 这个页面里的 action=save.asp 这个表单 请帮我写下 好吗 分都给你 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Params := TStringList.Create; try Params.Add('参数名=参数值'); with IdHTTP do begin Request.Accept := 'text/html, */*'; Request.ContentLength := 0; Request.ContentRangeEnd := 0; Request.ContentRangeStart := 0; Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)'; Request.ContentType := 'application/x-www-form-urlencoded'; HandleRedirects := true; end; HTML := IdHTTP2.Post('http://www.mirdy.cn/add.asp?action=save.asp ', Params); //模拟http的post方法提交一个网页function PostMethod(URL, Data: String; max: Integer): String;var PostData, RespData: TStringStream;begin RespData := TStringStream.Create(''); PostData := TStringStream.Create(Data); try try if http = nil then Exit; Http.Post(URL, PostData, RespData); Result := RespData.DataString; http.Request.Referer := URL; except Dec(Max); if Max = 0 then begin Result := ''; Exit; end; Result := PostMethod(URL, Data, Max); end; finally http.Disconnect; FreeAndNil(RespData); FreeAndNil(PostData); end;end; 窗口自动添加的轮动条怎么控制 parambyname错在哪? modem通讯中,writefile函数的参数该如何添(高分送) 散分,庆祝自己生日快乐! sql语法求助 请问用什么可以较方便地编辑注册表? 不用存储过程,怎样用在前台用ADOquery内嵌的SQL语句实现以下功能? 一个关于 在form最小化时绘制form的小技巧.MS提供,但本人试了一下.为何不好使???????有兴趣进来一下 indyftp下载文件问题 DELPHI EXCEL2010 条形码问题 delphi png DataGrid导出到Excel问题
try
Params.Add('参数名=参数值');
with IdHTTP do
begin
Request.Accept := 'text/html, */*';
Request.ContentLength := 0;
Request.ContentRangeEnd := 0;
Request.ContentRangeStart := 0;
Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)';
Request.ContentType := 'application/x-www-form-urlencoded';
HandleRedirects := true;
end; HTML := IdHTTP2.Post('http://www.mirdy.cn/add.asp?action=save.asp ', Params);
function PostMethod(URL, Data: String; max: Integer): String;
var
PostData, RespData: TStringStream;
begin
RespData := TStringStream.Create('');
PostData := TStringStream.Create(Data);
try
try
if http = nil then Exit;
Http.Post(URL, PostData, RespData);
Result := RespData.DataString;
http.Request.Referer := URL;
except
Dec(Max);
if Max = 0 then
begin
Result := '';
Exit;
end;
Result := PostMethod(URL, Data, Max);
end;
finally
http.Disconnect;
FreeAndNil(RespData);
FreeAndNil(PostData);
end;
end;