Delphi编写天气预报查询小程序
(IXMLHttpRequest版)
其实那些内置天气预报功能的软件的天气预报功能也都是来源于网上！因为也没有哪个软件公司会自己去架一个气象站了哈哈，现在我就来说说如何通过互联网上的 信息来获取天气情况！
目前能查询天气的网站有不少，比较有名的有中国天气网与Google天气，大部分站点与大部分软件的天气预报数据也都是来源于中国天气网！因为中国天气网 是中国气象局相关的，所以他的数据会更准确一些！查阅本文信息时，假设读者熟悉http协议与如何模拟网页提交等知识！
中国天气网有一个连接m.weather/data/+ ‘城市编码.html'，这个连接可以获取对应的城市的天气情况！返回Json数据，解析Json就能获得该城市的天气！这个问题就在那个城市编码的获取 方式上，这个获取方式，网上有代码的！我就不写了，我是直接将城市编码都包到资源文件中去了使用的时候，直接从资源加载就行了！获得天气的Json数据， 用的事Http协议，这里只要用可以提交http的数据的控件或者类都可以（比如，indy的idhttp,ics 的http控件都行，也可以使用 MSxml的IXMLHttpRequest，也可以使用HttpRequest5.1或者使用WinHttp控件），这里我用的事最简单的方式，就用了 Delphi直接带的indy的idhttp来获得
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,msxml,uLkJSON, ExtCtrls, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP;
type
TComboBox = class(StdCtrls.TComboBox)
private
Values: TStringList;
public
constructor Create(AOwner: TComponent);override;
destructor Destroy;override;
procedure LoadFromFile(Filename: string);
procedure LoadFromRes(ResName: string);
end;
TForm4 = class(TForm)
Memo1: TMemo;
Panel1: TPanel;
ComboBox1: TComboBox;
Button1: TButton;
IdHTTP1: TIdHTTP;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
vbs小程序代码大全private
{ Private declarations }
function pro_result(str:string):string ;
public
{ Public declarations }
List: TStringList;
HttpReq: IXMLHttpRequest;
end;
var
Form4: TForm4;
implementation
uses DateUtils;
{$R *.dfm}
{$R mm.RES}
procedure TForm4.Button1Click(Sender: TObject);
var
url: string;
Json: TlkJSONobject;
ChildJson,tmpJson: TlkJSONbase;
begin
url :=
'm.weather/data/'+Combobox1.Values.ValueFromIndex[Combo Box1.ItemIndex]+'.html';
HttpReq.open('Get', Url, False, EmptyParam, EmptyParam);
HttpReq.send(EmptyParam);//开 始搜索
Url := sponseText;
Json := Tlkjson.ParseText(url) as TlkJSONobject;
ChildJson := Json.Field['weatherinfo'];
Memo1.Lines.Clear;
if ChildJson.SelfType = jsObject then
begin
//Showmessage(ChildJson.Field['city'].Value);
Memo1.Lines.Add('今日天气
('+Vartostr(ChildJson.Field['date_y'].Value)+'
'+Vartostr(ChildJson.Field['week'].Value)+')：');
Memo1.Lines.Add('    温度：
'+Vartostr(ChildJson.Field['temp1'].Value));
Memo1.Lines.Add('    天气：
'+Vartostr(ChildJson.Field['weather1'].Value));
//Memo1.Lines.Add('    风向：
'+Vartostr(ChildJson.Field['fx1'].Value)+ '
'+Vartostr(ChildJson.Field['wind1'].Value));
Memo1.Lines.Add('    风力：
'+Vartostr(ChildJson.Field['wind1'].Value));
Memo1.Lines.Add('明日天气('+FormatDateTime('YYYY年MM月DD日 ',DateUtils.IncDay(now))+')：');
Memo1.Lines.Add('    温度：
'+Vartostr(ChildJson.Field['temp2'].Value));
Memo1.Lines.Add('    天气：
'+Vartostr(ChildJson.Field['weather2'].Value));
//Memo1.Lines.Add('    风向：
'+Vartostr(ChildJson.Field['fx2'].Value)+ '
'+Vartostr(ChildJson.Field['wind2'].Value));
Memo1.Lines.Add('    风力：
'+Vartostr(ChildJson.Field['wind2'].Value));
Memo1.Lines.Add(FormatDateTime('YYYY年MM月DD日
',DateUtils.IncDay(now,2))+'：');
Memo1.Lines.Add('    温度：
'+Vartostr(ChildJson.Field['temp3'].Value));
Memo1.Lines.Add('    天气：
'+Vartostr(ChildJson.Field['weather3'].Value));
//if True then
//Memo1.Lines.Add('    风向：
'+Vartostr(ChildJson.Field['fx3'].Value)+ '
'+Vartostr(ChildJson.Field['wind3'].Value));
Memo1.Lines.Add('    风力：
'+Vartostr(ChildJson.Field['wind3'].Value));
Memo1.Lines.Add(FormatDateTime('YYYY年MM月DD日
',DateUtils.IncDay(now,3))+'：');
Memo1.Lines.Add('    温度：
'+Vartostr(ChildJson.Field['temp4'].Value));
Memo1.Lines.Add('    天气：
'+Vartostr(ChildJson.Field['weather4'].Value));
//Memo1.Lines.Add('    风向：
'+Vartostr(ChildJson.Field['fx4'].Value)+ '
'+Vartostr(ChildJson.Field['wind4'].Value));
Memo1.Lines.Add('    风力：
'+Vartostr(ChildJson.Field['wind4'].Value));
Memo1.Lines.Add(FormatDateTime('YYYY年MM月DD日 ',DateUtils.IncDay(now,4))+'：');
Memo1.Lines.Add('    温度：
'+Vartostr(ChildJson.Field['temp5'].Value));
Memo1.Lines.Add('    天气：
'+Vartostr(ChildJson.Field['weather5'].Value));
//Memo1.Lines.Add('    风向：
'+Vartostr(ChildJson.Field['fx5'].Value)+ '
'+Vartostr(ChildJson.Field['wind5'].Value));
Memo1.Lines.Add('    风力：
'+Vartostr(ChildJson.Field['wind5'].Value));
end;
end;
procedure TForm4.FormCreate(Sender: TObject);
var
temp,str_1,str_2:string;
http1:tidhttp;
i:Integer;
begin
http1:=ate(self);
temp:=HTTP1.Get('www.ipseeker');
http1.free;
//temp:=Mmo1.Text;
i:=Pos('查询结果',temp);
str_1:=Copy(temp,i,254);
str_2:=pro_result(str_1);
//Mmo2.Text:=str_2;
Caption := Trim(str_2);
ComboBox1.LoadFromRes('CityCode.Data');
i := Pos('',Caption);
if i <> 0 then
temp := copy(Caption,i+1,MaxInt)
else temp := Caption;
i := Pos('市',temp);
if i <> 0 then
temp := copy(temp,0,i-1);
ComboBox1.ItemIndex := ComboBox1.Items.IndexOf(temp);
HttpReq := CoXMLHTTPRequest.Create;
Button1.Click;
end;
function TForm4.pro_result(str: string): string;
var
i_0,i_1:Integer;
temp_result:string;
begin
temp_result:='';
while Pos('查询结果',str)<>0 do
begin
i_1:=Pos('</span>',str);
i_0:=Pos('查询结果',str);
temp_result:=temp_result+Copy(str,i_0,i_1-i_0)+#13#10;
Delete(str,1,Pos('</span>',str));
end;
result:=StringReplace(temp_result,' ','',[rfReplaceAll]);  i_1 :=  Pos('-',Result);
Result := copy(Result,i_1+1,MaxInt);
end;
{ TComboBox }
constructor TComboBox.Create(AOwner: TComponent);
begin
inherited;
Values := TStringList.Create;
end;
destructor TComboBox.Destroy;
begin
Values.Free;
inherited;
end;
procedure TComboBox.LoadFromFile(Filename: string);
var
i: Integer;
begin
Items.Clear;

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。