oXMLHTTP := CreateOleObject('MSXML2.XMLHTTP') as IXMLHTTPRequest;
//oXMLHTTP := CoXMLHTTP.Create;
USER_AGENT := 'Filesync';// PROGRAM_NAME;//'Filesync'; try //处理使用oxmlhttp可能出现的异常
oXMLHTTP.open('PROPFIND', webdavurl, false,user, pwd);
oXMLHTTP.setRequestHeader('Accept', ' */*');
oXMLHTTP.setRequestHeader('Content-Type', 'text/xml; charset=utf-8');
oXMLHTTP.setRequestHeader('User-Agent',USER_AGENT);
oXMLHTTP.setRequestHeader('Depth',depth); //表示是只取1层。
//oXMLHTTP.send(user+'&'+pwd);
oXMLHTTP.send('<?xml version="1.0"?><D:propfind xmlns:D="DAV:"><D:allprop/></D:propfind>');
except
on E:Exception do
begin
result := 2;
end;
end;其中webdavurl:='https://disk.swissdisk.com/zhouheng'
user:='zhouheng'
pwd:='lg52024436'为什么老连接不上呢?请高手帮解决。
//oXMLHTTP := CoXMLHTTP.Create;
USER_AGENT := 'Filesync';// PROGRAM_NAME;//'Filesync'; try //处理使用oxmlhttp可能出现的异常
oXMLHTTP.open('PROPFIND', webdavurl, false,user, pwd);
oXMLHTTP.setRequestHeader('Accept', ' */*');
oXMLHTTP.setRequestHeader('Content-Type', 'text/xml; charset=utf-8');
oXMLHTTP.setRequestHeader('User-Agent',USER_AGENT);
oXMLHTTP.setRequestHeader('Depth',depth); //表示是只取1层。
//oXMLHTTP.send(user+'&'+pwd);
oXMLHTTP.send('<?xml version="1.0"?><D:propfind xmlns:D="DAV:"><D:allprop/></D:propfind>');
except
on E:Exception do
begin
result := 2;
end;
end;其中webdavurl:='https://disk.swissdisk.com/zhouheng'
user:='zhouheng'
pwd:='lg52024436'为什么老连接不上呢?请高手帮解决。
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货