function GetDate: TDate;
var
xml: OleVariant;
r: string;
p1, p2: Integer;
AYear, AMonth, ADay: string;
begin
try
xml := CreateOleObject('Microsoft.XMLHTTP');
xml.Open('GET', 'http://www.nmc.gov.cn/', False);
xml.Send;
r := xml.responseText;
p1 := Pos('<div id="submenu" >', r); // 找到标签
r := Copy(r, p1 + 19, Length(r) - (p1 + 19) + 1);
p1 := Pos('年', r);
AYear := Copy(r, 1, p1 - 1);
r := Copy(r, p1 + 1, Length(r) - (p1 + 1) + 1);
p1 := Pos('月', r);
AMonth := Copy(r, 1, p1 - 1);
r := Copy(r, p1 + 1, Length(r) - (p1 + 1) + 1);
p1 := Pos('日', r);
ADay := Copy(r, 1, p1 - 1);
Result := StrToDateDef(AYear + '-' + AMonth + '-' + ADay, StrToDate('1899-01-01'));
except
end;
end;
//注:此代码为D2009版使用,否则请修改为
//r := Copy(r, p1 + 2, Length(r) - (p1 + 2) + 1);
分享到:
相关推荐
需要气象数据可以去中国气象数据网下载 只包含气象站点,没有具体气象数据。需要气象数据可以去中国气象数据网下载 只包含气象站点,没有具体气象数据。需要气象数据可以去中国气象数据网下载 只包含气象站点,没有...
java获取中国气象台数据,内有中国气象台api用户id和key
能够获取国内各省及省会城市的天气,可以通过pyName载入各省内城市的天气 如:河北省 pyName="hebei" http://flash.weather.com.cn/wmaps/xml/hebei.xml 就可以载入河北省各城市天气,可以通过pyName="shijiazhuang...
Android天气预报的实现,数据源是由中国气象网接口提供,Assets资源中有城市-城市编号参照表。需要连接网络。
中国气象网的外调接口网址(仅用于学习)
中国气象网 地区 编码 数据库 chinaweather
网格(Grid)计算源于元计算(Metacomputing),其初衷是将分布的多台超级计算机连接成为一个可远程控制和访问的元计算系统,逐步发展为遵循开放标准、聚集网络上广泛分布的计算、存储、数据、软件、仪器设备和传感器...
中国1942-1999所有气象站点气象数据汇总,逐年分类,数据格式为ISD-Lite,可以用Flexera InstallShield软件打开,包含省份,气象站名,经纬度等信息
C#简单的获取中国气象网 城市温度,风力等信息。学生做的。带源码,有什么不做的地方,请高手们不要嘲笑
微信小程序 -- 天气预报 微信天气预报Demo源代码,涉及到 百度地图和采集中国气象网相关知识技巧: 1. 首先使用微信获取当前所在的经纬度 2. 使用[百度地图api](http://lbsyun.baidu.com/index.php?title=webapi...
中国气象局城市列表。json和xml格式都有
中国气象局的标志,官方的!相信很多人都需要!
简陋的天气查询~建议在真机中使用定位功能,中国气象网服务器有点坑
全国基准、基本、一般站的空间位置坐标。处理过的,连接数据时候直接X=X,Y=Y就行
程序是从气象数据共享服务网下载气象数据后,将数据放在同一个文件中,然后根据区站号提取所需要的数据 % EVP 蒸发; GST 0cm地温; PRE 气压; RHU 相对温度; SSD 日照; TEM气温; WIN 风速风向
中国各地气象参数查询,提供中国各地的气象参数供查询使用,方便实用
中国气象台对外的webservice服务地址: http://www.webxml.com.cn/WebServices/WeatherWebService.asmx?WSDL 使用getWeatherbyCityName,参数为城市名称,详细情况见附件
气象和海洋气象信息获取,网络爬虫技术实现
android 取中国气象局的天气预报数据,JSOU解析中国银行的汇率。