//*************************************************************
unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Rio, SOAPHTTPClient, StdCtrls, ComCtrls, GoogleSearch;    type
  TForm1 = class(TForm)
    wsGoogleSearch: THTTPRIO;
    btnSearch: TButton;
    lvResultItem: TListView;
    lvResult: TListView;
    Edit1: TEdit;
    procedure btnSearchClick(Sender: TObject);
    procedure lvResultChange(Sender: TObject; Item: TListItem;
      Change: TItemChange);
  private
          SearchResult: GoogleSearchResult;
          procedure ShowResultItem(const item: ResultElement);
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.btnSearchClick(Sender: TObject);
        procedure ShowResult(const res: GoogleSearchResult);
    procedure AddLine(const c1, c2: String);
    var
      item: TListItem;
    begin
      item := lvResult.Items.Add;
      item.Caption := c1;
      item.SubItems.Add(c2);
    end;
  var
          i: Integer;
  begin
                lvResult.Clear;        for i := 0 to length(res.resultElements) - 1 do begin
            AddLine(res.resultElements[i].title, res.resultElements[i].URL);
    end;
  end;    var
        key, q, restrict, lr, ie, oe: String;
  start, maxResults: Integer;
  filter, safeSearch: Boolean;
begin
        key := 'o2/Xx4mvQCafLDZ y90hA2Qso9PxSHkN';
  q := Edit1.Text;
  start := 0;
  maxResults := 9;
  filter := true;
  restrict := 'countryTW';
  safeSearch := false;
  lr := 'lang_zh-TW'; // 英文:'lang_en', 繁體中文:'lang_zh-TW', 簡體中文:'lang_zh-CN'
  ie := 'utf8';        // 英文:'latin1', 繁體中文:'big5', 簡體中文:'gb', 多語言: 'utf8'
  oe := 'utf8'; // 英文:'latin1', 繁體中文:'big5', 簡體中文:'gb', 多語言: 'utf8'      btnSearch.Enabled := False;
        SearchResult := (wsGoogleSearch as GoogleSearchPort).doGoogleSearch
                  (key, q, start, maxResults,        filter, restrict, safeSearch, lr, ie, oe);
  btnSearch.Enabled := True;      ShowResult(SearchResult);
end;    procedure TForm1.ShowResultItem(const item: ResultElement);
  procedure AddLine(const c1, c2: String);
  var
    item: TListItem;
  begin
    item := lvResultItem.Items.Add;
    item.Caption := c1;
    item.SubItems.Add(c2);
  end;
begin
  lvResultItem.Clear;      AddLine('Summary', item.summary);
  AddLine('URL', item.URL);
  AddLine('Snippet', item.snippet);
  AddLine('Title', item.title);
  AddLine('Host Name', item.hostName);
  AddLine('Director Category(full viawable name)', item.directoryCategory.fullViewableName);
  AddLine('Director Category(special encoding)', item.directoryCategory.specialEncoding);
  AddLine('Directory Title', item.directoryTitle);
  AddLine('Class Name', item.ClassName);
end;    procedure TForm1.lvResultChange(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
        if lvResult.ItemIndex <> -1 then
          ShowResultItem(SearchResult.resultElements[lvResult.ItemIndex]);
end;    end.
//*************************************************************