Delphi调用VC的类并引用(参数,执行类方法等)

      一直以为Delphi与VC之间不能进行传递对象类型参数, 所以一直以结构或更普通的数据类型交换数据 , 但前段时间得一大神传授, 终于知道如何实现类对象的传递.

     需要注意的是C++里面的struct才能与delphi里面的class一一对应, 而且,struct里面的元素地址不能随意改变(比如setlength),不然就AV了.

     具体代码在: http://git.oschina.net/tigera15/delphi-vc-callwithclass/blob/master/delphi-vc-passClass.7z

   Delphi的类原型:

type

  size_t = NativeUInt;
  MyClass = Class
    p1: integer;
    p2: pansichar;
    p3: size_t;
    p4: boolean;
    p5: pinteger;
    p6: size_t;
    function callMethod(pv1: array of integer; pv2: size_t): integer;vitual;
       stdcall;
  End;

     C++的类原型:

struct MyClass
{
	int p1;
	char* p2;
	size_t p3;
	bool p4;
	int* p5;
	size_t p6;
	virtual int __stdcall callMethod(int* pv1, size_t pv2)
	{
		MessageBoxA(0, "run VC callMethod", "callMethod", 0);
		int lvRet = p1;
		for (size_t i = 0; i < p6; i++) {
			lvRet += p5[i];
		}
		for (size_t i = 0; i < pv2; i++) {
			lvRet += pv1[i];
		}
		sprintf_s(p2, p3, "return value:%d", lvRet);
		return lvRet;
	}
};