放入元件 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;
沒有留言:
張貼留言