unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} uses MsXML; procedure TForm1.Button1Click(Sender: TObject); var req: IXMLHTTPRequest; begin req := CoXMLHTTP.Create; //较早的版本或许是 req := CoXMLHTTPRequest.Create; req.open('Get', 'http://del.cnblogs.com', False, EmptyParam, EmptyParam); req.send(EmptyParam); Memo1.Text := req.responseText; end; end.
使用 IXMLHTTPRequest 简单获取网页源代码
原创JLee79 ©著作权
文章标签 IXMLHTTPRequest 文章分类 XML/XSL 前端开发
©著作权归作者所有:来自51CTO博客作者JLee79的原创作品,请联系作者获取转载授权,否则将追究法律责任
使用 IXMLHTTPRequest 简单获取网页源代码
下一篇:系统默认语言与系统支持的语言列表
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章