如何用 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; delphi如何指定相对路径? 如何把窗口里的一个Components[i]强制转化成DBGrid 谁要delphi编写得erp源代码,可以和我联系! delphi中text控件中字符型转换成整型函数用什么方法啊!?我急,我在线! 大虾们,帮帮小弟,急! 要怎么做可以使WAV的播放速度可以控制呢?? 什么是多线程!其执行过程如何?急急急!!!! 如何设置多窗体启动? idftp如何取得文件名?大小、属性和日期???在线等 help!!! 如何实现以变量方式调用窗体 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;