Delphi使用WebBrwser获得网页源代码.docVIP

源代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Activex, ComObj, Dialogs, OleCtrls, SHDocVw, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Memo1: TMemo; WebBrowser1: TWebBrowser; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation