在dll 中
extern "C" BYTE * _stdcall Get_Vehicle_Image(int Lane_ID)
{
  BYTE  * Mybitmap;
  Mybitmap=new BYTE[768 * 576 * 3];
  srand(255);
  for (int i=0;i<768 * 576 * 3;i++)
  Mybitmap[i]=rand();
return Mybitmap ;

}
声明一个函数,在然后在Delphi调用老出问题。
 ....
  var 
  bb:Pchar
  begin
      GetMem(bb,768*576*3);
      bb:=Get_Vehicle_Image();
      FreeMem(bb,768*576*3);
//就是这句老是出错,把它去掉也会出错,不知道怎么搞的。  end;
  如果把FreeMem(bb,768*576*3); 这句话去掉,结果delphi运行完毕后自动退出程序了不知道为什么???

解决方案 »

  1.   

    报错 Invalid Pointer operation
      

  2.   

    不写freeMem 也会报错:
        access voilation at address 00f053d9,write of address 00122323
      

  3.   

    我不会Delphi
    转一篇文章给你看吧
    *******************************************************
    VC与Delphi之间动态链接库互相调用Delphi 调用VC的DLLVC中DLL声名格式: 
    Extern “C” void __declspec(dllexport) __stdcall ShowMess(HWND hwnd, char* mess);输出格式为:_ShowMess@8,“8”为函数参数字节数为了避免名称分裂,可采用以下方法解决:1.声明中不加__stdcall,采用VC默认格式__cdecl,但在Delphi中要注明调用格式为cdecl。2.在VC工程中添加def文件,如:LIBRARYEXPORTSShowMess @1则DLL中输出函数名称不分裂。Delphi中调用格式: 
    Procedure ShowMess (h:HWND; mess:PChar); Stdcall;{Cdecl;} external LibName;如无Stdcall或Cdecl声名,Delphi默认Register(FastCall)调用格式。注意Delphi与VC的对齐格式不同,在VC中定义结构时要用以下格式: 
    #pragma pack(4)//结构定义#pragma pack()常用工具: 
    TDump.exe-Delphi 4 和 C++ Builder 3 提供Impdef.exe 和 Implib.exe - C++ Builder 3提供DumpBin.exe-VC5.0提供Lib.exe-VC5.0提供
      

  4.   

    它是返回BYTE* 你可以用PBYTE试试
    还有把你的Get_Vehicle_Image 相应的定义列出来对了 这个DLL的实现 不需要外面分配内存了var 
      bb:Pchar
      begin
          GetMem(bb,768*576*3);   // bb指向本进程分配的内存。。
          bb:=Get_Vehicle_Image(); // bb指向DLL中分配的内存 ..被改了!!
          FreeMem(bb,768*576*3); // 释放DLL中的内存 当然错误。。
    //就是这句老是出错,把它去掉也会出错,不知道怎么搞的
    // 当然出错了 
      

  5.   

    vc和delphi需要注意参数类型转换和函数调用约定
      

  6.   

    1、参数int Lane_ID拿来干吗的?函数内没用,函数调用也没传;
    2、用GetMem(bb,768*576*3);分配的空间后面无法释放,因为紧接着的bb:=Get_Vehicle_Image();将bb的值改变了,它已经指向了一个新的地址;
      

  7.   

    在DELPHI中将
    var 
      bb:Pchar;
    替换成:
    var 
      bb:Pointer;
    试试!-----
    pchar一般不用来指示整型!