myhttptask.pas

来自「Delphi中处理线程池的一个组件,非常好用.」· PAS 代码 · 共 51 行

unit MyHTTPtask;

interface

uses
  HTTPtask, SysUtils, DateUtils;

type
  TCheckProxy = class(THTTPtask)
  protected
    procedure Process; override;
  public
    _TARGET_URL : string;
    _SUCC_STR : string;
    _CONNET_TIME_OUT : Integer;
  end;

implementation

uses
  HTTPutil;

{TCheckProxy}
procedure TCheckProxy.Process;
var
  Tick : TDateTime;
  Succ : boolean;
begin
  Succ := False; Tick := 0;
  LvTraceLog('正在验证...',_TASK_INDEX,3,3);
  try
    Tick := now;
    with _HTTP do
    begin
      Host := ParseUrl(_TARGET_URL,True);
      Connect(_CONNET_TIME_OUT);
      GetHtml(ParseUrl(_TARGET_URL,False));
      Disconnect;
    end;
    DebugHtml;
    if Pos(_SUCC_STR,_HTML)>0 then
    Succ := True;
  except
  end;
  LvTraceLog('验证'+BoolToStr(Succ),_TASK_INDEX,3,BoolToInt(Succ)+1);
  if Succ then
  LvTraceLog(Format('%d ms',[MilliSecondsBetween(Now,Tick)]),_TASK_INDEX,4,-1);
end;

end.