百分，如何通过webclient获取网页数据

Question

希望通过webclient获取网页数据
在.CPP文件中引用命名空间
using namespace System;
using namespace System.Net;第一句能编译通过，但是第二句不能编译通过，将第二句改写为using namespace System::Net;依然不能编译通过求高手指点，如何实现，谢谢！

Answer 1

C#中使用这样的代码就可以
WebRequest request = WebRequest.Create("http://www.163.com");
WebResponse response = request.GetResponse();
Stream resStream = response.GetResponseStream();
StreamReader sr = new StreamReader(resStream, System.Text.Encoding.Default);
this.TextBox1.Text = sr.ReadToEnd();
resStream.Close();
sr.Close();

Answer 2

晕，我要在C++BUILDER或者DELPHI中实现，可以吗？

Answer 3

给你个完整的:unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, StdCtrls, Mask, RzEdit, RzBtnEdt, RzShellDialogs, OleCtrls,
  SHDocVw, RzTabs;type
  TForm1 = class(TForm)
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    WebBrowser1: TWebBrowser;
    TabSheet2: TRzTabSheet;
    RzMemo1: TRzMemo;
    RzBitBtn2: TRzBitBtn;
    procedure WebBrowser1DocumentComplete(ASender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.RzBitBtn2Click(Sender: TObject);
begin
  WebBrowser1.Navigate(RzButtonEdit1.Text);
end;procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if not(WebBrowser1.Busy) then
    RzMemo1.Text:= WebBrowser1.OleObject.document.body.outerText;
end;end.