• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

Google的搜索API的Delphi封装

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

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

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

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

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

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

代码：

 

代码 



{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;
< 

                      

                    

                     
                                        
                    
 
                       
                    
                    
 
                      





鲜花




握手




雷人




路过




鸡蛋







 
                    

                    
                     
                    
                    
 
                    
                  

                   
                  
                   
                  
                

                 
                
                
                
                 
                 
                

  
 
    该文章已有0人参与评论
    
请发表评论

    
  

  
 
    
     
    
        
    
    
    










                













                



    
    
    

   
    
         

    
全部评论

     
    
    
        

    

              

  




 
                     
                

            

            
                    

    	

            
            

                

                    
专题导读

                    
More+

                    

                

                

                    
                    
                

            


                        

                

                	
上一篇：

                    Delphi中进行延时的4种方法发布时间：2022-07-18                    
下一篇：

                    Delphi2010数字移动游戏发布时间：2022-07-18                    

                

            

                        
            

                

                    
热门推荐

                    
More+

                    

                

                

                    
                    

                    

                

                
            

            
            

                

                    
热门话题

                    
More+

                    

                

                

                    
                

            

            
            

                

                    

                    
                

            

            
            

                

                    
阅读排行榜

                    

                    

                

                

                    
                

                
            

            
            

                

                    
                    
                

            

        

    	












	

    
    

    	

        	

            	

                	
                

            	

                	

                    

                    	
扫描微信二维码

                        
查看手机版网站

                        
随时了解更新最新资讯

                    

                    

                

            	

                	

                    	
139-2527-9053

                        
在线客服（服务时间 9:00～18:00）

                        在线QQ客服
                    

                    
地址：深圳市南山区西丽大学城创智工业园

                    
电邮：jeky_zhao#qq.com

                    
移动电话：139-2527-9053

                

                

            

        

        
        

        	
Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap