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获取系统当前进程名和进程id

Delphi winapi: getcurrentthread、getcurrentthreadid、getcurrentprocess、getcurrentprocessid

Delphi debug release区别是什么？

Delphi应用synedit完美实现sql语法高亮

Delphi edit只能输入数字或小数点

Delphi 禁用tedit右键菜单及复制粘贴

Delphi设置光标在edit右边

Delphi getdrivetypea() 查看驱动器类型

用Delphi写console控制台程序

Delphi 简单的 "双缓冲" 绘图的例子

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

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