Delphi Net.HttpClient用最精简的代码获取网页数据

本文整理自网络，侵删。

 
program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Classes,
  System.Net.HttpClient,
  System.RegularExpressions;

const
  url = 'http://www.delphitop.com/';
begin
  var http := THttpClient.Create;
  var sl := TStringList.Create;
  try
    sl.LoadFromStream(http.Get(url).ContentStream, TEncoding.ANSI);
    var m := TRegEx.Match(sl.Text, '<title>(.*?)</title>');
    if m.Success then
     writeln('获取信息: ', m.Value);
      Readln;
  finally
    sl.Free;
    http.Free;
  end;
end.
 

相关阅读 >>

如何用Delphi实现子目录级的文件查询

Delphi判断程序是否无响应

aes.pas 和 elaes.pas

行为判断Delphi中窗体最大化与最小化事件

Delphi adoconnection1连接mssql数据库方法

Delphi tfdconnection只能取得50处理

Delphi多线程图片转换类实现

Delphi 从一个html返回所有的图片链接

Delphi xe5 android 发短信以及目录

Delphi tserversocket 发送消息之前检查客户端是否仍处于连接状态

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi Net.HttpClient用最精简的代码获取网页数据