HashInfo.pas

unit HashInfo;

interface

uses system.sysutils, MRC_Helper, CMLTypes;

const
	ERR_WRONG_FORMAT = 'Parameter should be in hash:size:name or hash:size format.';
	ERR_WRONG_HASH_LENGTH = 'Hash length shoud be exactly 40 symbols.';
	ERR_WRONG_SIZE_FORMAT = 'Size should be in numeric format.';

type

	THashInfo = class
	private
		function GetCloudMailRuFileIdentity: TCloudMailRuFileIdentity;
	public
		hash: WideString;
		size: int64;
		name: WideString;
		valid: boolean;
		errorString: WideString;

		property CloudFileIdentity: TCloudMailRuFileIdentity read GetCloudMailRuFileIdentity;

		constructor Create(parameter: WideString; doClean: boolean = true);
		destructor Destroy; override;

	end;

implementation

{THashInfo}
(*Ïàðñåð ïàðàìåòðîâ êîìàíäû hash. Êîððåêòíûé ôîðìàò ïàðàìåòðà:
 hash:size:name
 hash:size
*)
constructor THashInfo.Create(parameter: WideString; doClean: boolean = true);
const
	divisor = ':';
var
	divisor_position: integer;
	sizeString: WideString;
begin
	if doClean then //êîìàíäà ìîæåò áûòü ïåðåäàíà ïîëíîñòüþ, íóæíî îïðåäåëèòü è âûïàðñèòü ïàðàìåòð
	begin
		if (1 = Pos(WideString('hash '), parameter)) then //ýòî êîìàíäà, ÷èñòèì
		begin
			parameter := copy(parameter, 6, length(parameter) - 5);
			parameter := TrimEx(parameter, '"');
		end;

	end;

	self.valid := false;
	divisor_position := Pos(WideString(divisor), parameter);
	if divisor_position = 0 then
	begin
		self.errorString := ERR_WRONG_FORMAT;
		exit;
	end;
	self.hash := copy(parameter, 0, divisor_position - 1);
	if length(hash) <> 40 then
	begin
		self.errorString := ERR_WRONG_HASH_LENGTH;
		exit;
	end;

	parameter := copy(parameter, divisor_position + 1);
	divisor_position := Pos(WideString(divisor), parameter);
	if divisor_position = 0 then
		sizeString := parameter
	else
	begin
		sizeString := copy(parameter, 0, divisor_position - 1);
		parameter := copy(parameter, divisor_position + 1);
	end;

	try
		self.size := StrToInt64(sizeString);
	Except
		on E: EConvertError do
		begin
			self.errorString := ERR_WRONG_SIZE_FORMAT;
			exit;
		end;
	end;
	self.valid := true;
	if divisor_position = 0 then
		self.name := self.hash
	else
		self.name := parameter;

end;

destructor THashInfo.Destroy;
begin
	inherited;
end;

function THashInfo.GetCloudMailRuFileIdentity: TCloudMailRuFileIdentity;
begin
	result.hash := self.hash;
	result.size := self.size;
end;

end.