Delphi使用XMLHTTP组件代码

本文整理自网络，侵删。

 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; 
 

相关阅读 >>

Delphi if pos 多条件判断用法交流

Delphi rs232c串行通讯接口的应用

Delphi将文件删除至回收站

Delphi计算md5

Delphi过滤一段字符里面的html代码的函数

Delphi 判断当前活动窗口

Delphi中二进制文件数据存文件方法

Delphi 枚举resource资源名

Delphi android服务向导

Delphi 变量和常量

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi使用XMLHTTP组件代码