不
不要踩我
Unregistered / Unconfirmed
GUEST, unregistred user!
问题主要是不能调用英文版雅虎的引擎取搜索中文关键词(在用中文版雅虎时完全正常),代码如下
中文版雅虎地址: search.cn.yahoo.com
英文版: search.yahoo.com
var
a:thttpget;
procedure TForm1.Getr(Sender: TObject; Result: string);
begin
memo1.Text:=UTF8Decode(Result);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=thttpget.Create(self);
a.URL:='http://search.yahoo.com/search?p=%E6%AD%8C%E6%89%8B';
a.OnDoneString:= Getr;
a.GetString;
end;
中文版雅虎地址: search.cn.yahoo.com
英文版: search.yahoo.com
var
a:thttpget;
procedure TForm1.Getr(Sender: TObject; Result: string);
begin
memo1.Text:=UTF8Decode(Result);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=thttpget.Create(self);
a.URL:='http://search.yahoo.com/search?p=%E6%AD%8C%E6%89%8B';
a.OnDoneString:= Getr;
a.GetString;
end;