{
Description:
misc procedures related to disk data saving and resuming (during download)
}
unit helper_download_disk;

{
Description:
download thread, Ares support pseudo-HTTP download protocol and custom partial-sharing protocol
}
unit thread_download;

unit UnitDownloadManager;
interface
uses

{
Description:
misc download functions, covers download logic and chunk selection
}
unit helper_download_misc;

{
Description:
misc functions to handle alternate sources (download MESH) and hash_results_hits
}
unit helper_altsources;

type
  TImportNZBFileForm = class(TForm)
    DownloadToLabel: TLabel;
    DownloadToEditBox: TEdit;
    DownloadToButton: TSpeedButton;

type
    ARSearchHandle = Pointer;
    ARDownloadHandle = Pointer;
    ARUploadHandle = Pointer;
const AR_MAX_META_TAGS = 20; { max number of meta data tags per file }

  CANNOT_CONNECT_LOCAL_DB = 'No foi possivel conectar ao banco de dados local';
  MEDIA_URL_NOT_FOUND = 'URL %s no foi encontrada';
  MEDIA_URL_DOWNLOAD_ERROR = 'No foi possivel salvar o arquivo "%s"';
  MEDIA_URL_DOWNLOAD_STARTING = 'Iniciando download do arquivo "%s"';
  SERVICE_DESCRIPTION = 'Sincronizador de banco de dados do SIGEM';

    FileNameLabel: TLabel;
    procedure CreateParams(var Params: TCreateParams); override;
    function StartDownload(URL: string): Boolean;
    procedure CancelDownload;
    procedure UpdateReceivedStatus;

  procedure FetchUrl;
  var
   DownloadOptions: PDownloadOptions;
  begin
    new(DownloadOptions);

  TMaraLogger = class(TLogger)
  public
    procedure LogDownloadStart(AClientIP, AClientName, AFilename: string;
      AStartIndex, AFileSize: Int64);
    procedure LogDownloadEnd(AClientIP, AClientName, AFilename: string;

  TMaraLogger = class(TLogger)
  public
    procedure LogDownloadStart(AClientIP, AClientName, AFilename: string;
      AStartIndex, AFileSize: Int64);
    procedure LogDownloadEnd(AClientIP, AClientName, AFilename: string;

  TMaraLogger = class(TLogger)
  public
    procedure LogDownloadStart(AClientIP, AClientName, AFilename: string;
      AStartIndex, AFileSize: Int64);
    procedure LogDownloadEnd(AClientIP, AClientName, AFilename: string;

  TDownNotifier = class;
  TfoFtpPropSmall = class(TPluginForm)
    DownloadTitle: TLabel;
    DownloadLabel: TLabel;
    SizeLabel: TLabel;

  TDownNotifier = class;
  TfoHttpPropSmall = class(TPluginForm)
    DownloadTitle: TLabel;
    DownloadLabel: TLabel;
    SizeLabel: TLabel;

  TDownNotifier = class;
  TfoNntpPropSmall = class(TPluginForm)
    DownloadTitle: TLabel;
    DownloadLabel: TLabel;
    SizeLabel: TLabel;

unit UnitDownload;
interface
uses

  THistoryEvent = procedure(Sender: TObject;const History: TSHistoryItem) of object;
  THintEvent = procedure(Sender: TObject;Text: string) of object;
  TDownloadEvent = procedure(Sender: TObject; const Download: TPluginDownload) of object;
  TSucker = class
  private

unit U_Downloader;
interface
uses

    procedure dl_frmwClick(Sender: TObject);
    procedure status(ASender: TObject; timeInMs: integer; SizeInBytes: integer; taskNo: Smallint);
    procedure size(ASender: TObject; DownloadSizeInBytes: integer);
    procedure done(ASender: TObject; ErrorCode: Smallint; DownloadNo: Smallint);
  private

const
  dUpload = 0;
  dDownload = 1;
  dBoth = 2;
  imUpload = 0;

    QueryEdit: TEdit;
    ResultListView: TListView;
    DownloadBtn: TButton;
    ResultCountLbl: TLabel;
    MetaGrid: TStringGrid;

  RS_SEARCH_NEWSGROUPS:string          =       'Searching for newsgroup';
  RS_SEARCH_REFINE:string              =       'Limit of 1000 groups reached, please refine your search.';
  RS_SEARCH_USESEARCH:string           =       'Downloaded %d groups, now use the search to select a group.';
  RS_ADD_NNTP_DOWNGROUP:string         =       'You should first download the list of newsgroups available for this server.'+
                                                sLineBreak+'Do you want to do it now?';

procedure ICH_free_phash_indexs;
procedure ICH_load_phash_indexs;
procedure ICH_loadPieces(download:tdownload);
procedure ICH_SaveDownloadBitField(download:TDownload);
procedure ICH_WriteDlDBHeader(download:TDownload; stream:THandleStream);

  protected
    procedure SetStatus(const Value: TPStatus);override;
    procedure SetValue(const Download: TPluginDownload;const Name, Value: string);override;
  public
    function LoadFromXml(const Value: TJvSimpleXmlElem):boolean;override;