2009年5月28日

Delphi 用Indy元件取得UTF8編碼網頁資料


放入元件 Indy Clients -> IdHTTP,和一個memo元件
uses
IdURI;

在 FormCreate 事件中寫入

procedure TForm1.FormCreate(Sender: TObject);
var
url: string;
begin
url := 'http://www.wretch.cc/blog/blog.php?id=solnone&search='
+ TIdURI.ParamsEncode(UTF8Encode('Delphi 時間'));
Memo1.Lines.Text := UTF8Decode(IdHTTP1.Get(url));
end;

沒有留言:

網誌存檔