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;
联系客服