希望通过webclient获取网页数据
在.CPP文件中引用命名空间
using namespace System;
using namespace System.Net;第一句能编译通过,但是第二句不能编译通过,将第二句改写为using namespace System::Net;依然不能编译通过求高手指点,如何实现,谢谢!
在.CPP文件中引用命名空间
using namespace System;
using namespace System.Net;第一句能编译通过,但是第二句不能编译通过,将第二句改写为using namespace System::Net;依然不能编译通过求高手指点,如何实现,谢谢!
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();
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.