Google的搜索API的Delphi封装

简介:

  这个东西实现了已经有一段时间了,那个时候谷歌还没有退出中国内地呢!而现在呢,谷歌都退了有一些日子了!紧以此纪念一番!

  话说谷歌API,我相信很多人应该都知道!不晓得在实际应用中,用的人多不多(我说的不是Web方面的)。谷歌API提供了很多接口,但是貌似唯独没有提供对Delphi的接口(我们Delphi程序员果然很尴尬啊,很多类库,都没有我们的份,都需要自己来实现)。而我又需要这么个东西,于是,我就写了这么个东西,完全基于搜索API的封装!用来实现在自己的软件中实现搜索的目的!

2010041014005181.png

谷歌的搜索API的详细资料在:

http://code.google.com/intl/zh-CN/apis/ajaxsearch/documentation/reference.html#_class_GSearch

有兴趣的,可以自行参考一下!因为这个资料已经说的很详细了,所以我也就不多费口舌了,直接上代码

代码:

 

复制代码
ExpandedBlockStart.gif 代码
 
  
{ Google搜索API
参考资料:
http://code.google.com/intl/zh-CN/apis/ajaxsearch/documentation/reference.html#_class_GSearch
作者:不得闲 2010-4-1
}
unit DxGoogleSearchApi;

interface
uses Classes,SysUtils,msxml,uLkJSON,Variants;

type
// 搜索类型 Web搜索 本地搜索 视频搜索 博客 新闻 书籍 图片 专利搜索
TDxSearchType
= (Sh_Web,Sh_Local,Sh_Video,Sh_Blog,Sh_News,Sh_Book,Sh_Image,Sh_patent);

// 搜索返回的结果
TDxSearchRecord
= class
private
RetList: TStringList;
function GetFieldCount: Integer;
function GetFields(index: Integer): string ;
function GetValues(index: Integer): string ;
public
constructor Create;
procedure FromJsonObj(JsonObj: TlkJSONobject);
destructor Destroy; override ;
property FieldCount: Integer read GetFieldCount;
property Fields[index: Integer]: string read GetFields;
property Values[index: Integer]: string read GetValues;
function FieldByName(FieldName: string ): string ;
end ;

TDxSearchRecords
= class
private
List: TList;
FSearchType: TDxSearchType;
function GetCount: Integer;
function GetRecords(index: Integer): TDxSearchRecord;
public
procedure Clear;
constructor Create;
property SearchType: TDxSearchType read FSearchType;
destructor Destroy; override ;
property Count: Integer read GetCount;
property Records[index: Integer]: TDxSearchRecord read GetRecords;
end ;

// 搜索API
TDxGoogleSearch
= class
private
FSearchType: TDxSearchType;
FBigSearchSize: Boolean;
FSearchStart: Integer;
FVersion:
string ;
HttpReq: IXMLHttpRequest;
FRecords: TDxSearchRecords;
Pages:
array of Integer;
FCurSearchInfo:
string ;
ClearOld: Boolean;
FCurPageIndex: Integer;
function GetPageCount: Integer;
public
constructor Create;
destructor Destroy; override ;
procedure Search(SearchInfo: string );
property CurPageIndex: Integer read FCurPageIndex;
function NextSearch: Boolean; // 搜索下一个页
property PageCount: Integer read GetPageCount;
property Records: TDxSearchRecords read FRecords;
property BigSearchSize: Boolean read FBigSearchSize write FBigSearchSize default true; // rsz参数
property SearchStart: Integer read FSearchStart write FSearchStart default 0 ; // 搜索开始的位置,start参数
property Version: string read FVersion write FVersion;
property SearchType: TDxSearchType read FSearchType write FSearchType default Sh_Web; // 搜索类型
end ;
implementation

type
TBytes
= array of Byte;

function BytesOf( const Val: AnsiString): TBytes;
var
Len: Integer;
begin
Len :
= Length(Val);
SetLength(Result, Len);
Move(Val[
1 ], Result[ 0 ], Len);
end ;

function ToUTF8Encode(str: string ): string ;
var
b: Byte;
begin
for b in BytesOf(UTF8Encode(str)) do
Result :
= Format( ' %s%s%.2x ' , [Result, ' % ' , b]);
end ;


{ TDxGoogleSearch }

constructor TDxGoogleSearch.Create;
begin
HttpReq :
= CoXMLHTTPRequest.Create;
ClearOld :
= True;
FRecords :
= TDxSearchRecords.Create;
FVersion :
= ' 1.0 ' ;
FSearchType :
= Sh_Web;
FBigSearchSize :
= True;
FSearchStart :
= 0 ;
end ;

destructor TDxGoogleSearch.Destroy;
begin
HttpReq :
= nil ;
SetLength(Pages,
0 );
FRecords.Free;
inherited ;
end ;

function TDxGoogleSearch.GetPageCount: Integer;
begin
Result :
= High(Pages) + 1 ;
end ;

function TDxGoogleSearch.NextSearch: Boolean;
var
i: Integer;
begin
Result :
= False;
for i : = 0 to High(Pages) do
begin
if Pages[i] = FSearchStart then
begin
if i + 1 <= High(Pages) then
begin
FSearchStart :
= Pages[i + 1 ];
Result :
= True;
end ;
Break;
end ;
end ;
if Result then
Search(FCurSearchInfo);
end ;

procedure TDxGoogleSearch.Search(SearchInfo: string );
const
BaseUrl
= ' http://ajax.googleapis.com/ajax/services/search/ ' ;
var
Url:
string ;
Json: TlkJsonObject;
ChildJson,tmpJson: TlkJSONbase;
SRecord: TDxSearchRecord;
procedure OnSearch;
var
i: Integer;
begin
Url :
= Url + ' &start= ' + inttostr(FSearchStart);
HttpReq.open(
' Get ' , Url, False, EmptyParam, EmptyParam);
HttpReq.send(EmptyParam);
// 开始搜索
Url :
= HttpReq.responseText;
Json :
= Tlkjson.ParseText(url) as TlkJSONobject;
ChildJson :
= Json.Field[ ' responseData ' ];
if ChildJson.SelfType = jsObject then
begin
ChildJson :
= ChildJson.Field[ ' results ' ];
if ChildJson.SelfType = jsList then
begin
for i : = 0 to ChildJson.Count - 1 do
begin
tmpJson :
= ChildJson.Child[i];
SRecord :
= TDxSearchRecord.Create;
SRecord.FromJsonObj(tmpJson
as TlkJSONobject);
FRecords.List.Add(SRecord);
end ;
end ;
if ClearOld or (Length(Pages) = 0 ) then
begin
// 查看分页情况,获得分页情况
ChildJson :
= Json.Field[ ' responseData ' ].Field[ ' cursor ' ].Field[ ' pages ' ];
if ChildJson.SelfType = jsList then
begin
SetLength(Pages,ChildJson.Count);
for i : = 0 to ChildJson.Count - 1 do
begin
tmpJson :
= ChildJson.Child[i];
Pages[i] :
= StrToInt(VarToStr(tmpJson.Field[ ' start ' ].Value));
end ;
end ;
ChildJson :
= Json.Field[ ' responseData ' ].Field[ ' cursor ' ];
FCurPageIndex :
= strtoint(vartostr(ChildJson.Field[ ' currentPageIndex ' ].Value));
end
else
begin
ChildJson :
= Json.Field[ ' responseData ' ].Field[ ' cursor ' ];
FCurPageIndex :
= strtoint(vartostr(ChildJson.Field[ ' currentPageIndex ' ].Value));
end ;
end ;
Json.Free;
end ;
begin
FCurSearchInfo :
= SearchInfo;
case FSearchType of
Sh_Web: Url :
= BaseUrl + ' web?v= ' + FVersion + ' &q= ' ;
Sh_Local: Url :
= BaseUrl + ' local?v= ' + FVersion + ' &q= ' ;
Sh_Video: Url :
= BaseUrl + ' video?v= ' + FVersion + ' &q= ' ;
Sh_Blog: Url :
= BaseUrl + ' blogs?v= ' + FVersion + ' &q= ' ;
Sh_News: Url :
= BaseUrl + ' news?v= ' + FVersion + ' &q= ' ;
Sh_Book: Url :
= BaseUrl + ' books?v= ' + FVersion + ' &q= ' ;
Sh_Image: Url :
= BaseUrl + ' images?v= ' + FVersion + ' &q= ' ;
Sh_patent: Url :
= BaseUrl + ' patent?v= ' + FVersion + ' &q= ' ;
else Url : = '' ;
end ;
if Url <> '' then
begin
FRecords.FSearchType :
= FSearchType;
if ClearOld then
FRecords.Clear;
Url :
= Url + ToUTF8Encode(SearchInfo);
if FBigSearchSize then
Url :
= Url + ' &rsz=large '
else Url : = Url + ' &rsz=small ' ;
if FSearchStart < 0 then
begin
// 搜索返回所有结果
ClearOld :
= False;
FSearchStart :
= 0 ;
OnSearch;
while NextSearch do ; // 搜索下一个
end
else
begin
OnSearch;
end ;
end ;
end ;

{ TDxSearchRecord }

constructor TDxSearchRecord.Create;
begin
RetList :
= TStringList.Create;
end ;

destructor TDxSearchRecord.Destroy;
begin
RetList.Free;
inherited ;
end ;

function TDxSearchRecord.FieldByName(FieldName: string ): string ;
var
index: Integer;
begin
index :
= RetList.IndexOfName(FieldName);
if (index > - 1 ) and (index < FieldCount) then
Result :
= RetList.ValueFromIndex[index]
else Result : = '' ;
end ;

procedure TDxSearchRecord.FromJsonObj(JsonObj: TlkJsonObject);
var
i: Integer;
str: String;
begin
RetList.Clear;
for i : = 0 to JsonObj.Count - 1 do
begin
str :
= JsonObj.NameOf[i];
str :
= str + ' = ' + VarToStr(JsonObj.FieldByIndex[i].Value);
RetList.Add(str);
end ;
end ;

function TDxSearchRecord.GetFieldCount: Integer;
begin
Result :
= RetList.Count;
end ;

function TDxSearchRecord.GetFields(index: Integer): string ;
begin
if (index > - 1 ) and (index < FieldCount) then
Result :
= RetList.Names[index]
else Result : = '' ;
end ;

function TDxSearchRecord.GetValues(index: Integer): string ;
begin
if (index > - 1 ) and (index < FieldCount) then
Result :
= RetList.ValueFromIndex[index]
else Result : = '' ;
end ;

{ TDxSearchRecords }

procedure TDxSearchRecords.Clear;
begin
while List.Count > 0 do
begin
TDxSearchRecord(List[List.Count
- 1 ]).Free;
List.Delete(List.Count
- 1 );
end ;
end ;

constructor TDxSearchRecords.Create;
begin
List :
= TList.Create;
FSearchType :
= Sh_Web;
end ;

destructor TDxSearchRecords.Destroy;
begin
clear;
List.Free;
inherited ;
end ;

function TDxSearchRecords.GetCount: Integer;
begin
Result :
= List.Count;
end ;

function TDxSearchRecords.GetRecords(index: Integer): TDxSearchRecord;
begin
if (index > - 1 ) and (index < Count) then
Result :
= List[index]
else Result : = nil ;
end ;

end .
复制代码

 


本文转自 不得闲 博客园博客,原文链接:http://www.cnblogs.com/DxSoft/archive/2010/04/10/1708964.html   ,如需转载请自行联系原作者


相关文章
|
11天前
|
缓存 前端开发 API
API接口封装系列
API(Application Programming Interface)接口封装是将系统内部的功能封装成可复用的程序接口并向外部提供,以便其他系统调用和使用这些功能,通过这种方式实现系统之间的通信和协作。下面将介绍API接口封装的一些关键步骤和注意事项。
|
11天前
|
人工智能 Java API
Google Gemini API 接口调用方法
Google 最近发布的 Gemini 1.0 AI 模型通过其升级版,Gemini,标志着公司迄今为止最为强大和多功能的人工智能技术的突破。
|
11天前
|
数据采集 数据挖掘 API
淘系API接口推荐:淘宝搜索列表数据接口
淘系API接口推荐:淘宝搜索列表数据接口
234 0
|
11天前
|
JavaScript API
【vue实战项目】通用管理系统:api封装、404页
【vue实战项目】通用管理系统:api封装、404页
41 3
|
11天前
|
存储 JSON 自然语言处理
Elasticsearch 利用API进行搜索
Elasticsearch 利用API进行搜索
38 0
|
11天前
|
JSON 搜索推荐 数据挖掘
电商数据分析的利器:电商关键词搜索API接口(标题丨图片丨价格丨链接)
淘宝关键词搜索接口为电商领域的数据分析提供了丰富的数据源。通过有效利用这一接口,企业和研究人员可以更深入地洞察市场动态,优化营销策略,并提升用户体验。随着电商平台技术的不断进步,未来的API将更加智能和个性化,为电商行业带来更多的可能性。
|
11天前
|
机器学习/深度学习 数据采集 数据可视化
R语言Pearson相关性分析降雨量和“外卖”谷歌搜索热度google trend时间序列数据可视化
R语言Pearson相关性分析降雨量和“外卖”谷歌搜索热度google trend时间序列数据可视化
|
11天前
|
数据可视化 搜索推荐 数据挖掘
R语言Pearson相关性分析就业率和“性别平等”谷歌搜索热度google trend时间序列数据可视化
R语言Pearson相关性分析就业率和“性别平等”谷歌搜索热度google trend时间序列数据可视化
|
11天前
|
前端开发 BI API
API函数式组件封装逻辑
API函数式组件封装逻辑
15 0
|
11天前
|
API
[组件封装]API式调用-封装一个审核意见的组件Comments
[组件封装]API式调用-封装一个审核意见的组件Comments
12 0

热门文章

最新文章