DELPHI sha1 汉字

function sha1(input: string): string;
begin
  with Tidhashsha1.Create do
  try
    Result := HashBytesAsHex(TidBytes(Bytesof(input)));
    
  finally
    free;
  end;
end;

针对 sha1签名，之前没有涉及中文字符，一切正常，加入汉字后，签名错误，需要使用下面方法

function sha1(input: string): string;
begin
  with Tidhashsha1.Create do
  try
    //Result := HashBytesAsHex(TidBytes(Bytesof(input)));
    Result := HashStringAsHex(input,IndyTextEncoding_UTF8);
  finally
    free;
  end;
end;