Subversion Repositories checksum-tools

Rev

Rev 6 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6 Rev 8
Line 105... Line 105...
105 
 
 105 
 
106 
constructor TCheckSumFileMD5.Create(AFileName: string);
 106 
constructor TCheckSumFileMD5.Create(AFileName: string);
107 
begin
 107 
begin
108 
  inherited;
 108 
  inherited;
109 
  fmd5File := AFileName;
 109 
  fmd5File := AFileName;
110 
  if not SameText(ExtractFileExt(AFileName),'.sfv') then
 110 
  if not SameText(ExtractFileExt(AFileName),'.md5') then
111 
    raise Exception.Create('Invalid checksum file extension.');
 111 
    raise Exception.Create('Invalid checksum file extension.');
112 
end;
 112 
end;
113 
 
 113 
 
114 
function TCheckSumFileMD5.MergeLine(AFileName, ACheckSum: string): string;
 114 
function TCheckSumFileMD5.MergeLine(AFileName, ACheckSum: string): string;
115 
begin
 115 
begin
116 
  result := ACheckSum + ' *' + AFileName;
 116 
  result := ACheckSum + ' *' + AFileName;
117 
end;
 117 
end;
118 
 
 118 
 
119 
function TCheckSumFileMD5.SingleFileChecksum(AFileName: string): string;
 119 
function TCheckSumFileMD5.SingleFileChecksum(AFileName: string): string;
120 
begin
 120 
begin
121 
  result := md5file(AFileName);
 121 
  result := LowerCase(md5file(AFileName));
122 
end;
 122 
end;
123 
 
 123 
 
124 
procedure TCheckSumFileMD5.ToStringList(slOut: TStringList);
 124 
procedure TCheckSumFileMD5.ToStringList(slOut: TStringList);
125 
begin
 125 
begin
126 
  inherited;
 126 
  inherited;