🚀 go-pugleaf

"Lapo Guidi" <lapoguidi@inwind.it> wrote in message
news:44a15dd2@newsgroups.borland.com...

> This is the T4x4LongWordRecord declaration:
> T4x4LongWordRecord = array [0..3] of LongWord;

In C++, it comes out as the following:

    typedef unsigned T4x4LongWordRecord[4];

The declaration for T4x4x4LongWordRecord in C++ comes out as follows:

    typedef unsigned T4x4x4LongWordRecord[4][4];

Functions in C++ can't return array values.  However, if you look at the
declaration for HashValue() itself in C++, it does not return an array at
all:

    unsigned __fastcall HashValue(const AnsiString ASrc);

What you can try doing is to add a Delphi .pas file to your C++ project, and
have that file call HashValue() and return the array in a manner that C++
can handle.  For example (untested):

    --- HashValueUnit.pas ---

    unit HashValueUnit;

    uses
        IdHashMessageDigest5;

    interface

    procedure MD5HashValue(MD5: TIdHashMessageDigest5; const S: String; var
Hash: PLongWord);

    implementation

    procedure MD5HashValue(MD5: TIdHashMessageDigest5; const S: String;
Hash: PLongWord);
    var
        Tmp: T4x4LongWordRecord;
    begin
        Tmp := MD5.HashValue(S);
        Move(Tmp[0], Hash, SizeOf(LongWord)*4);
    end;

    end.


    --- MyForm.cpp ---

    #include "HashValueUnit.hpp"

    {
        //...
        TIdHashMessageDigest5 *MD5 = new TIdHashMessageDigest5;

        T4x4LongWordRecord Hash;
        MD5HashValue(MD5, "testmessage", Hash);

        AnsiString Hex = MD5->AsHex(__classid(TIdHashMessageDigest5), Hash);
        //...
    }


Gambit