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 webbrowser1 保存文档为 .html

Delphi 先加载原内容在写入增加新内容

Delphi 生成txt 指定带bom

Delphi 10.3 控件遮挡 webbrowser

Delphi 不管什么datetime日期格式时间格式转换都不会错了

Delphi searchrec.attr and fadirectory

Delphi case of

Delphi加载驱动的代码演示

Delphi mediaplayer1 设置音量

Delphi汉字的拼音简码

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

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