如何在可执行程序里调用web上的搜索引擎并把结果返回??

acai 2003-12-11 11:33:36
在exe里有一个文本框,然后点击“搜索”按钮,自动根据文本框里的内容调用google等此类的搜索引擎,然后把搜索结果的那个页显示出来,该如何做呢??
...全文
32 1 打赏 收藏 举报
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
heartache 2003-12-11
procedure TForm2.TeButton3Click(Sender: TObject);
var url,text:string;
begin
text:=teedit1.Text;
url:='http://www.google.com/search?q='+text;
with Tform4.Create(nil) do
begin
caption:=self.TeButton3.Caption;
webbrowser1.Navigate(url);
show;
end;
end;

procedure TForm2.TeButton4Click(Sender: TObject);
var url:string;
begin
url:='http://search.sina.com.cn/cgi-bin/search/search.cgi?_searchkey='+self.TeEdit1.Text+'&_andor=and&_ss=sina&_search=+%CB%D1+%CB%F7+';
with Tform4.Create(nil) do
begin
caption:=self.TeButton4.Caption;
webbrowser1.Navigate(url);
show;
end;
end;

procedure TForm2.TeButton5Click(Sender: TObject);
var url:string;
begin
url:='http://page.search.sohu.com/cgi-bin/pagesearch.cgi?tn=sohu&si=gi&word='+self.TeEdit1.Text+'&ct=0&cl=2&lm=0';
with Tform4.Create(nil) do
begin
caption:=self.TeButton5.Caption;
webbrowser1.Navigate(url);
show;
end;
end;

procedure TForm2.TeButton6Click(Sender: TObject);
var url:string;
text:string;
begin
text:=self.TeEdit1.Text;
url:='http://seek.3721.com/right.htm?argse=new3721&name='+self.TeEdit1.Text;
with tform4.Create(nil) do
begin
caption:=self.TeButton6.Caption;
webbrowser1.Navigate(url);
show;
end;
end;
  • 打赏
  • 举报
回复
相关推荐
发帖
网络通信/分布式开发

1586

社区成员

Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
帖子事件
创建了帖子
2003-12-11 11:33
社区公告
暂无公告