1,593
社区成员
发帖
与我相关
我的任务
分享
var
responseText: WideString;
xmlHttp: OLEVariant;
url:string;
begin
url:=Edit2.Text;//pwd需要加密
try
xmlHttp:=CreateOleObject('Msxml2.XMLHTTP');
xmlHttp.SetProxy5(2,'255.0.0.0','80');
xmlHttp.open('GET',url,false);
xmlHttp.send();
responseText:=xmlHttp.responseText;
if xmlHttp.status='200' then
begin
memo1.text:=responseText;
//处理responseText。。。。。。。。。。。。。。。。。。。。。。
end;
xmlHttp := Unassigned;
except
end;
end;