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 xe7的android应用设定wifi的有效无效

Delphi 获取屏幕缩放比例

Delphi 字符串替换函数[单元文件 sysutils]

Delphi 整理内存

Delphi xe6 firemonkey移动应用程序获取android设备屏幕信息

Delphi firedac 下的 sqlite 创建数据库

Delphi 字符串的分割

Delphi监视注册表

Delphi 检查ip地址合法性

Delphi 使用windows api(wincrypt)计算文件md5哈希，支持大文件

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

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