threadhttpget.~pas

sql inject HDSI3--delphi.rar

unit ThreadHttpGet;

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,IdHTTP;

type
  TThreadHttpGet = class(TThread)
  private
  published
  procedure Execute; override;
  public
    TimeOut       :integer;
    FURL          : String;   //URL
    Success       : Boolean;  //是否下载完毕
    sContent      : string;   //页面内容
    iCode         : integer;  //返回的代码404，页面不存在，500内部服务器错误，200 ok
  end;

  TThreadHttpGetHead = class(TThread)
  private
  published
  procedure Execute; override;
  public
    TimeOut       :integer;
    FURL          : String;   //URL
    Success       : Boolean;  //是否下载完毕
    sContent      : string;   //页面内容
    iCode         : integer;  //返回的代码404，页面不存在，500内部服务器错误，200 ok
  end;

implementation
uses
main_unit,CJdatabase_unit,define_unit;
//******************************************************************************
procedure TThreadHttpGet.Execute;
begin
  Success:=false;
  sContent:=GetHtmlStr(FURL,false);
  Success:=true;
end;

{procedure TThreadHttpGet.Execute;
var
    ss:string;
    IdHTTP: TIDHttp;
begin
    try

    Success:=false;
    IdHTTP:=TIDHTTP.Create(nil);
    if Form_main.proxy_check then
      begin
        IdHTTP.ProxyParams.ProxyServer:=form_main.str_Host;
        IdHTTP.ProxyParams.ProxyPort:=strtoint(form_main.str_Port);
        IdHTTP.ProxyParams.ProxyUsername:=form_main.str_Zh;
        IdHTTP.ProxyParams.ProxyPassword:=form_main.str_Mm;
      end;
    IdHTTP.HandleRedirects:=true;
    IdHTTP.HTTPOptions:=[hoForceEncodeParams];
    IdHTTP.ReadTimeout:=TimeOut;
    ss:=IdHTTP.Get(FURL);
    //IdHTTP.Head(FURL);
    finally
      Form_main.ProgressBar.Position:=0;
      Form_main.ProgressBar.Position:=30;
      Form_main.ProgressBar.Position:=60;
      Form_main.ProgressBar.Position:=100;
      iCode:=IdHTTP.ResponseCode;
      sContent:=ss;
      Success:=true;
      IdHTTP.Free;
    end;
end;}
//******************************************************************************
//******************************************************************************
{procedure TThreadHttpGetHead.Execute;
var
    ss:string;
    IdHTTP: TIDHttp;
begin
    try

    Success:=false;
    IdHTTP:=TIDHTTP.Create(nil);
    if Form_main.proxy_check then
      begin
        IdHTTP.ProxyParams.ProxyServer:=form_main.str_Host;
        IdHTTP.ProxyParams.ProxyPort:=strtoint(form_main.str_Port);
        IdHTTP.ProxyParams.ProxyUsername:=form_main.str_Zh;
        IdHTTP.ProxyParams.ProxyPassword:=form_main.str_Mm;
      end;
    IdHTTP.HandleRedirects:=true;
    IdHTTP.HTTPOptions:=[hoForceEncodeParams];
    IdHTTP.ReadTimeout:=TimeOut;
    //ss:=IdHTTP.Get(FURL);
    IdHTTP.Head(FURL);
    finally
      Form_main.ProgressBar.Position:=0;
      Form_main.ProgressBar.Position:=30;
      Form_main.ProgressBar.Position:=60;
      Form_main.ProgressBar.Position:=100;
      iCode:=IdHTTP.ResponseCode;
      sContent:=ss;
      Success:=true;
      IdHTTP.Free;
    end;
end;}
end.