← →DVM ©
(2011-06-21 17:30)
[12]
> Дмитрий С © (21.06.11 17:13) [11]
так я и сделал:
TMD5 = class(TObject)
public
{$IFDEF UNICODE}
class function Calculate(const X: TBytes): TMD5Digest; overload;
class function Calculate(const S: RawByteString): TMD5Digest; overload;
class function Calculate(const S: UnicodeString; const Encoding: TEncoding): TMD5Digest; overload;
class function Calculate(const S: UnicodeString): TMD5Digest; overload;
{$ELSE}
class function Calculate(const S: string): TMD5Digest; overload;
{$ENDIF}
class function Calculate(const Stream: TStream): TMD5Digest; overload;
class function Calculate(const Buffer; Size: Integer): TMD5Digest; overload;
class function CalculateFile(const FileName: string): TMD5Digest;
class function DigestToStr(const Digest: TMD5Digest): string;
class function StrToDigest(const S: string): TMD5Digest;
class function DigestCompare(const Digest1, Digest2: TMD5Digest): Boolean;
end;
Для старых версий Delphi и FPC (у которого строки как оказалось UTF8) класса TEncoding нет, поэтому для них используется вариант по-умолчанию, без указания кодировки, к нужной кодировке строку приводит тот кто использует класс.
MD5 и WideString Найти похожие ветки
← →