httpclient的简单运用。

program 获取图片链接;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Net.HttpClient,
  HtmlParserEx in ‘HtmlParserEx.pas‘;

const
  url:string=‘https://www.italika.mx/Modelos/Trabajo/‘;
var
    stext:string;
    LHtml:IHtmlElement;
    LList:IHtmlElementList;
begin
  try
    var http:THTTPClient:=THTTPClient.Create;
    http.UserAgent:=‘Mozilla/5.0‘;
    stext:=http.Get(url).ContentAsString();
    LHtml:=ParserHtml(stext);
    if LHtml <> nil then
    begin
      LList := LHtml.Find(‘li.display_tCell img‘);
      for LHtml in LList do
        Writeln(‘url:‘, lhtml.Attributes[‘src‘]);
    end;
    http.Free;
  except
    on E: Exception do
      Writeln(E.ClassName, ‘: ‘, E.Message);
  end;
    readln;
end.