您现在的位置:首页 >> API >> API >> 内容

Delphi使用XMLHTTP组件代码

时间:2011/9/3 15:44:56 点击:

  核心提示:Function XMLHTTPSTR:String; var url:string; xmlHttp:Olevariant; responseText:Widestring;begin With F...
Function XMLHTTPSTR:String;
var
  url:string;
  xmlHttp:Olevariant;
  responseText:Widestring;
begin
  With Form1 do
  Begin
  if (Length(edit1.Text)>0) AND (Length(edit2.Text)>0) then
  begin
    xmlHttp:=CreateOleObject('MSXML2.XMLHTTP');
    xmlHttp.open(edit2.Text,edit1.Text,false);
    xmlHttp.send;
    Result:=xmlHttp.responseText;
  end
  else
    showmessage('填写"提交模式"');
  end
  else
    showmessage('填写"网址"');
  end;
end;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2020 版权所有 All Rights Reserved.
  • 沪ICP备05001939号