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-dbgrid取得所有表中的值

Delphi截图程序无窗口版

Delphi 与360

Delphi 过滤所有空格的函数

Delphi xe10.1 andriod app中文名称

Delphi 如何检测你的电脑日期或时间的变化

Delphi 编写服务程序的几点总结

Delphi idhttp http.get 获取json数据

Delphi 获得idhttp redirect后的url

Delphi 自定义消息拦截

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

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