学习indy组件之一idhttp的使用方法

• 登录
• 注册
• 百度首页

• 新闻
• 网页
• 贴吧
• 知道
• 音乐
• 图片
• 视频
• 地图
• 百科
• 文库
• 经验

搜索答案我要提问

• 首页
• 分类
• 公社
• 知道行家
• 问医生
• 高质量问答
• 经验

个人中心手机知道开放平台

 

关于delphi中idhttp网页提交的方法？

2010-03-05 10:13yncg2046 | 浏览 3698 次

 网络

这是一个申请key的页面:https://license.avira.com/en/promotion-hylm9fbv7chaxs8zbl83?id=JVgkM1BNUn

我想要用idhttp.post方法进行自动提交，如下
procedure TForm1.Button1Click(Sender: TObject);
var
  sPost, shtml: TStringlist;
  sData: TMemoryStream;
begin
  sPost := TStringlist.Create;
  sData := TMemoryStream.Create;
  try
    sPost.Add('customerSalutationId=MR');
    sPost.Add('customerFirstname=sdjl');
    sPost.Add('customerLastname=sfjljkio');
    sPost.Add('customerEmail=sdfsdfjoj@qq.com');
    sPost.Add('customerCountryId=Italy');
    IdHTTP1.Post('https://license.avira.com//en/promotion-hylm9fbv7chaxs8zbl83?id=Y8on000002',
      sPost, sData);
  except
    ShowMessage('error');
    sPost.Free;
    sData.Free;
  end;
  sPost.Free;
  sData.Free;
end;

但是点击button后出现"无效指针操作"的错误提示，请问问题出现在哪里了，另外提交后返回的应该是一个浏览授权文件的页面，请问应该如何接收这个页面？

分享到：

 

2010-03-05 14:01

 

提问者采纳

 

function GetString(tStr,sStr,eStr :string):string;
var
  sPos,ePos :integer;
begin
  Result := '';
  sPos := Pos(sStr,tStr);
  if sPos > 0 then
  begin
    tStr := Copy(tStr,sPos+Length(sStr),Length(tStr)-sPos-Length(sStr)+1);
    ePos := Pos(eStr,tStr);
    if ePos > 0 then
      Result := Copy(tStr,1,ePos-1);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl :TStringList;
  s :string;
begin
  s := Utf8ToAnsi(IdHTTP1.Get('https://license.avira.com/en/promotion-hylm9fbv7chaxs8zbl83'));
  s := GetString(s,'

');

  sl := TStringList.Create;
  try
    sl.Add('customerSalutationId=MR_');
    sl.Add('customerFirstname=sdjl');
    sl.Add('customerLastname=sfjljkio');
    sl.Add('customerEmail=sdfsdfjoj@qq.com');
    sl.Add('customerCountryId=CN');
    sl.Add('buttonActivate=Request license now');
    s := Utf8ToAnsi(IdHTTP1.Post('https://license.avira.com/'+s,sl));
    if Pos(UpperCase('A license file has been already generated for this email address'),UpperCase(s)) > 0 then
      ShowMessage('该邮箱已经使用')
    else
    begin
      s := GetString(s,'License Overview');
      s := Utf8ToAnsi(IdHTTP1.Get('https://license.avira.com/en/'+s));
      ShowMessage('License No.: ' + GetString(s,'License No.: ',' '));
    end;
  finally
    FreeAndNil(sl);
  end;
end;

提问者评价

多谢大哥！

评论 | 7 0

cb120520025 | 九级 采纳率57%

擅长： 其他编程语言

其他类似问题

• 2012-05-03delphi 的 Idhttp 如何向网站提交文件？（使用P...1
• 2009-06-19delphi如何向网页提交数据？1
• 2007-08-03DELPHI idhttp问题，高手进，完全解决追加200分8
• 2012-07-31delphi如何用idhttp的方法向网页里的嵌套表单提交数...
• 2009-12-19如何在delphi里用idhttp提交application...

更多关于IdHTTP1.Post的问题>>

为您推荐：

idhttp的相关知识

• 2009-11-22Identifier redeclared: 'idhttp' delphi 2
• 2010-01-10delphi idhttp.post的问题 7
• 2011-01-20cookie是什么意思 819
• 2010-02-05delphi技术IdHttp控件 2
• 2012-12-04idhttp.post问题（delphi7）

更多关于idhttp的问题>>

等待您来回答

• 0回答 30 云南腾晋物流股份有限公司仓储中心石山强挖土石方—001标段
• 0回答 20 哪里可以下载delphi6实务经典的配套光盘？
• 0回答在县城开跨境电商体验店好做吗?
• 0回答 30 红桥 五矿 兴文 这一代有人看到这辆摩托车吗川q938c6白色的钱...
• 0回答 30 从大渡口到北碚城南双元大道88号阳光华府加油站如何走
• 0回答 30 从东莞大朗去广州嘉禾要多久
• 0回答 30 云南腾晋物流股份有限公司仓储中心石山强挖土石方—001标段
• 0回答 15 delphi 要给datetimepicker控件加上背景图,只要加在控件上,控...
• 1回答 20 电商送货后私自打开包装,发现货品损坏,如何维权
• 0回答中国五矿集团公司投资水口山
• 0回答 30 请问在大渡口镇火炬住宅区购置二手房能亨受政府补贴吗?
• 0回答 30 嘉禾橙天影院 蚁人什么时候放
• 0回答 30 别的公可以加入宁波好国际物流发展股份有限公司跨境购项目吗...
• 1回答 20 Delphi7中如何将edt的文字右对齐
• 0回答 20 智尚s30电商版有天窗吗

更多等待您来回答的问题>>

知道日报

2015.08.12往期回顾

713

 

 

登录

还没有百度账号？立即注册

 

 

 

精彩知识在知道

• 关注百度知道微博，互动拿好礼！
• 真相问答机，我们一起粉碎流言！
• 免费领取《知道日报》主题专刊
• 知道大数据，用数据解读生活点滴

 

• 新手帮助
  • 如何答题
  • 获取采纳
  • 使用财富值
• 玩法介绍
  • 知道商城
  • 知道团队
  • 行家认证
  • 高质量问答
• 投诉建议
  • 举报不良信息
  • 意见反馈
  • 投诉侵权信息

©2015 Baidu   使用百度前必读  |  知道协议  |  百度知道开放平台

 

 

任务列表new