Delphi通过解析搜狐网页来获取天气的函数

{
  获取城市的天气
  //使用方法
  Edit1.text:=GetWeather('北京');

}

 

 1  function  GetWeather(City: String): String;
 2  const
 3     sys01 = ' <table border=0 cellpadding=0 cellspacing=0 width=186 bgcolor=#ffffff> ' ;
 4     sys02 = ' <img src=" ' ;
 5     sys03 = ' " width= ' ;
 6     sys04 = ' <td class=blu01> ' ;
 7     sys05 = ' </td> ' ;
 8  var
 9   tmpstr,str1: string ;
10   j:integer;
11   vFileStream:TFileStream;
12   http:tidhttp;
13  begin
14   http: = tidhttp.Create( nil ); 
15   tmpstr: = http.Get( ' http://weather.news.sohu.com/citymake.php?city= ' + City);
16   j: = pos(sys01,tmpstr);
17   tmpstr: = copy(tmpstr,j,length(tmpstr));
18   j: = pos(sys02, tmpstr);
19   tmpstr: = copy(tmpstr,j + length(sys02),length(tmpstr));
20   j: = pos(sys03,tmpstr);
21   str1: = copy(tmpstr, 0 ,j - 1 );
22 
23    // 下载图片
24    vFileStream: = TFileStream.Create(ExtractFilePath(application.ExeName) + ' /weather.jpg ' ,fmCreate,fmShareDenyNone);
25     try
26       // IdHTTP1.Get( ' http://173.16.80.26/inputdb.mdb ' ,vFileStream);
27      HTTP.Get(str1,vFileStream);
28      // mage1.Picture.Bitmap.LoadFromStream(vfilestream);
29     finally
30     vFileStream.Free;
31     end ; // try .. finally
32    { sleep(1000);
33   image1.Picture.LoadFromFile( ExtractFilePath(application.ExeName)+'/weather.jpg');
34    }
35   j: = pos(sys04,tmpstr);
36   tmpstr: = copy(tmpstr, j + length(sys04),length(tmpstr));
37   j: = pos(sys05,tmpstr);
38   str1: = copy(tmpstr, 0 ,j - 1 );
39   str1: = stringreplace(str1, '   ' , '' ,[rfreplaceall]);
40   str1: = stringreplace(str1,chr( 13 ), '' ,[rfreplaceall]);
41   str1: = stringreplace(str1,chr( 10 ), '' ,[rfreplaceall]);
42   str1: = stringreplace(str1, ' <br> ' , '    ' ,[rfreplaceall]);
43   http.Free;
44   result: = str1;
45  end ;