🚀 go-pugleaf

"Seabass" <sbsoftea@ww-ei.nl> wrote in message
news:3f7f2049@newsgroups.borland.com...

> Type
>   TSendMess = procedure (sb1:pchar;sb2:pchar);stdcall;
>   TCommon = procedure();stdcall;
>   TCommon2 = procedure (sb1:pchar) ;stdcall;
>   TCommon3 = function (sb1:pchar):boolean ;stdcall;

In your C++ code, you declared your event types to accept pointers to
members of your struct, but in your Delphi code above, you are declaring
them to accept pointers to standalone functions instead, not class/struct
methods.  The two are not the same.  You need to either:

1) change your C++ code to not use class/struct members (why are you using
that, anyway? You didn't show the code that actually assigns them):

    typedef  void (__stdcall *TSendMess)(const char*,const char*);
    typedef void (__stdcall *TCommon)(void);
    typedef void (__stdcall *TCommon2)(const char*);
    typedef bool (__stdcall *TCommon3)(const char*);

2) change your Delphi code to accept class/struct members, ie:

    Type
        TSendMess = procedure(sb1: PChar; sb2: PChar) of object; stdcall;
        TCommon = procedure() of object; stdcall;
        TCommon2 = procedure(sb1: PChar) of object; stdcall;
        TCommon3 = function(sb1: PChar): boolean of object; stdcall;

> When I try to call pChat, the break point I set at the C++ end gets
> called, but when looking at the parameters, I noticed that the first
> parameter contained the data of the second parameter and the data
> in the second parameter was just some random junk.

Probably because the function signatures don't match, so the hidden' this'
pointer that is normally passed in your C++ code is not being passed in the
Delphi code, so the parameters are pushed onto the stack differently.


Gambit