提供API接口服务地址:API服务,天气API - 帮! (help.bj.cn)https://api.help.bj.cn/api/?id=45
单元定义:
unit utWeatherApi;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, fphttpclient, openssl, opensslsockets;
const
TCityCodeTable: array [1..7, 1..2] of string = (
('北京', '101010100'),
('上海', '101020100'),
('广州', '101280101'),
('深圳', '101280601'),
('成都', '101270101'),
('武汉', '101200101'),
('天津', '101030100')
);
type
{ TSearchThread }
TRespondResultEvent = procedure(FValue: string) of object;
TSearchThread = class(TThread)
private
FCityCode: string;
FRespondResultJsonText: strin