IDHTTPを使ってUTF-8コードの中国語ページを取得します。返信クラスメートの「Delphi学習者」の問題です。
480 ワード
uses IdHTTP;
const Url = 'http://del.cnblogs.com';
procedure TForm1.Button1Click(Sender: TObject);
var
stream: TStringStream;
idHttpObj: TIdHTTP;
begin
stream := TStringStream.Create('', TEncoding.UTF8); //
idHttpObj := TIdHTTP.Create(nil);
idHttpObj.Get(Url, stream);
idHttpObj.Free;
Memo1.Text := stream.DataString;
stream.Free;
end;