Delphi(東京)には次のものがあります。
THashSHA2 = record
private
...
function GetDigest: TBytes;
procedure Update(const AData: PByte; ALength: Cardinal); overload;
public
...
end;
GetDigest / Update関数にアクセスする方法はありますか?これは非常に遅いため、RTTI経由ではありません。手順が公開されている場合のように、何か速いものが必要です。
あなたは実際にここに2つの異なる質問をしました:
いいえ。プライベートproc / funcにアクセスするための一般的で効率的な方法はありません。
はい。GetDigestの代わりにパブリック関数HashAsBytesを使用できます/使用する必要があります。
function HashAsBytes: TBytes; inline;
パブリックプロシージャアップデートは、プライベートアップデートの代わりに使用できます/使用する必要があります。
procedure Update(const AData; ALength: Cardinal); overload;
procedure Update(const AData: TBytes; ALength: Cardinal = 0); overload; inline;
procedure Update(const Input: string); overload; inline;
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加