06/01/31 07:22:22
>>465
ちょこっと試してみたが、そもそも
TIdHashMessageDigest5 *encoder = new TIdHashMessageDigest5();
encoder->HashValue(str);
の時点で通らない悪寒。
IdHash.pas で
T4x4LongWordRecord = array [0..3] of LongWord;
TIdHash128 = class(TIdHash)
public
function HashValue(const ASrc: string): T4x4LongWordRecord; overload;
end;
IdHash.hpp で
class PASCALIMPLEMENTATION TIdHash128 : public TIdHash
{
public:
unsigned __fastcall HashValue(const AnsiString ASrc)/* overload */;
};
返り値の宣言が実装と違うので
Result := HashValue(LStream);
が変なところに書きにいっていると思われ。