在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运行完毕后自动退出程序了不知道为什么???
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运行完毕后自动退出程序了不知道为什么???
access voilation at address 00f053d9,write of address 00122323
转一篇文章给你看吧
*******************************************************
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提供
还有把你的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中的内存 当然错误。。
//就是这句老是出错,把它去掉也会出错,不知道怎么搞的
// 当然出错了
2、用GetMem(bb,768*576*3);分配的空间后面无法释放,因为紧接着的bb:=Get_Vehicle_Image();将bb的值改变了,它已经指向了一个新的地址;
var
bb:Pchar;
替换成:
var
bb:Pointer;
试试!-----
pchar一般不用来指示整型!