Indy/Lib/examples/httpget/prothandler.pas

unit prothandler;
interface
{$IFDEF FPC}
{$mode delphi}{$H+}
{$ENDIF}
uses
{$IFDEF UNIX}
  {$define usezlib}
  {$define useopenssl}
{$ENDIF}
{$IFDEF POSIX}
  {$define usezlib}
  {$define useopenssl}
{$ENDIF}
{$IFDEF WIN32}
  {$define usezlib}
  {$define useopenssl}
{$ENDIF}
{$IFDEF WIN64}
  {$define usezlib}
  {$define useopenssl}
{$ENDIF}
  Classes, SysUtils, IdURI;
type
  TProtHandler = class(TObject)
  protected
    FLogData : TStrings;
    FVerbose : Boolean;
  public
    constructor Create;
    destructor Destroy; override;
    class function CanHandleURL(AURL : TIdURI) : Boolean; virtual; abstract;
    procedure GetFile(AURL : TIdURI); virtual; abstract;
    property LogData : TStrings read FLogData;
    property Verbose : Boolean read FVerbose write FVerbose;
  end;

implementation

constructor TProtHandler.Create;
begin
  inherited Create;
  FLogData := TStringList.Create;
end;

destructor TProtHandler.Destroy;
begin
  FreeAndNil(FLogData);
end;

end.