unit James.Crypto.MD5.Clss;

{$include james.inc}

interface

uses
  Classes, SysUtils,
  James.Data,
  James.Data.Clss,
  {$ifdef FPC}
    James.Crypto.MD5.FPC
  {$else}
    James.Crypto.MD5.Delphi
  {$endif}
  ;

type
  TMD5Hash =
    {$ifdef FPC}
      James.Crypto.MD5.FPC.TMD5Hash;
    {$else}
      James.Crypto.MD5.Delphi.TMD5Hash;
    {$endif}

  TMD5Stream = class sealed(TInterfacedObject, IDataStream)
  private
    FOrigin: IDataStream;
    function GetStream: IDataStream;
  public
    constructor Create(Origin: IDataStream); reintroduce;
    class function New(Origin: IDataStream): IDataStream;
    function Save(Stream: TStream): IDataStream; overload;
    function Save(const FileName: string): IDataStream; overload;
    function Save(Strings: TStrings): IDataStream; overload;
    function AsString: string;
    function Size: Int64;
  end;