delphi 调用VC 图像算法dll

Question

如题:
dll中的一个函数形式如下：
*
 * 函数名称：
 * DIBPaletteSize()
 *
 * 参数:
 * LPSTR lpDIB - 指向DIB图像的指针
 *
 * 返回值:
 * WORD - DIB图像中调色板的大小
 *
 * 说明:
 * 该函数返回DIB图像中调色板的大小。对于Windows3.0 DIB图像，返回颜色数目×
 * RGBQUAD的大小；对于其它返回颜色数目×RGBTRIPLE的大小。delphi中调用时参数转换形式为：lpstr <-> pChar
那delphi中这个参数具体怎么实现呢？pchar类型参数传进函数之前应该怎么样赋值？
能否简单举例说明下。怎么把bmp图像传到这个函数中去处理多谢啦

Answer 1

// 没有测试，自己试试看var
  pDIB  : PChar;
  dwSize: DWORD;
begin
  GetDIB(Image1.Picture.Bitmap.Handle, Image1.Picture.Bitmap.Palette, pDIB);
  dwSize:= 0;
  DIBPaletteSize(pDIB, dwSize);
  //...
end;

Answer 2

GetDIB怎么实现呢？
Bitmap.Handle 是HBitmap 类型，
好像并不是PChar。
请指教