利用百度地图车联网API，根据经纬度/城市名查询天气的结果。源代码中要用到的一些自定义函数、结构请在本站其他代码中查找。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 |
// 得到坐标所在地的天气预报 function TfrmMain.GetWeather(coords: TCoordinate): WeatherResults; var I, J, P, count: Integer; Url, PicPath: string; node: IXMLNode; XMLDoc: TXMLDocument; nodeList: IXMLNodeList; IdHTTP: TIdHTTP; tStream: TFileStream; begin XMLDoc := TXMLDocument.Create(Self); IdHTTP := TIdHTTP.Create; try coords := GpsToBaiduXY(coords); if coords.Valid then begin Url := UrlEncode(Format( 'http://api.map.baidu.com/telematics/v3/weather?location=%f,%f&output=xml&coord_type=wgs84&ak=A4c132a2db250e33cd1e2af37076ac28', [coords.X, coords.Y])); try XMLDoc.XML.Text := IdHTTP.Get(Url); XMLDoc.Active := True; node := XMLDoc.DocumentElement.ChildNodes[3]; // <results> Result.error := XMLDoc.DocumentElement.ChildValues['error']; Result.status := XMLDoc.DocumentElement.ChildValues['status']; Result.date := XMLDoc.DocumentElement.ChildValues['date']; Result.currentCity := node.ChildValues['currentCity']; Result.pm25 := node.ChildValues['pm25']; nodeList := node.ChildNodes[1].ChildNodes; // <weather_data> I := 0; for J := 1 to 4 do begin Result.Data[J].date := string(nodeList[I].NodeValue); Inc(I); Result.Data[J].dayPictureUrl := string(nodeList[I].NodeValue); Inc(I); Result.Data[J].nightPictureUrl := string(nodeList[I].NodeValue); Inc(I); Result.Data[J].weather := string(nodeList[I].NodeValue); Inc(I); Result.Data[J].wind := string(nodeList[I].NodeValue); Inc(I); Result.Data[J].temperature := string(nodeList[I].NodeValue); Inc(I); P := Pos('/images/', Result.Data[J].dayPictureUrl); PicPath := ExePath + copy(Result.Data[J].dayPictureUrl, P + 1, Length(Result.Data[J].dayPictureUrl) - P); PicPath := ReplaceChar(PicPath, '/', '\'); if not FileExists(PicPath) then begin tStream := TFileStream.Create(PicPath, fmCreate); try IdHTTP.Get(Result.Data[J].dayPictureUrl, tStream); // 开始下载 finally tStream.Free; end; end; P := Pos('/images/', Result.Data[J].nightPictureUrl); PicPath := ExePath + copy(Result.Data[J].nightPictureUrl, P + 1, Length(Result.Data[J].nightPictureUrl) - P); PicPath := ReplaceChar(PicPath, '/', '\'); if not FileExists(PicPath) then begin tStream := TFileStream.Create(PicPath, fmCreate); try IdHTTP.Get(Result.Data[J].nightPictureUrl, tStream); // 开始下载 finally tStream.Free; end; end; end; except abort; end; end; finally XMLDoc.Free; IdHTTP.Free; end; end; |
Hi Tricia, Sorry to hear that you have been having trouble with spam… I personally have not noticed any pop-up ads on your blog… It's crazy though that people invade our privacy so easily… Beautiful sky picture… WOHBs!Wug!,!etsy