C++函数转成pascal ，求解

Question

//生成条码图片到句柄
(C++)
void __stdcall MakeToHBitmap(unsigned char* ucData, long nDataLen, long nClumn, long nErr, long nHLRatio,long nHeight,
   HBITMAP* pHBitmap);参数说明:ucData          条码数据 
 nDataLen        条码数据长度(注:是字节数) 长度<=1555；
 nClomn          条码列数，取值范围1-30，根据具体数据字符串长度；
 nErr            纠错等级，取值范围0-7，建议取2-3；
 nHLRatio        条码单位长度和宽度比例，取值范围1-5；
                  1----紧凑型条码，生成条码图片容量最小，适合配合数据库管理系统使用，
                       便于直接以最小的容量存储在数据库中，而且生成速度最快，适合大
                       批量生成条码。但需要通过报表控件做纵横向适当拉伸后，打印出来
                       才可识读，不能直接打印识读或软解码；
                  2--5 标准型条码，适合直接打印识读或软件解码，建议取3。
nHeight 生成BMP图片高度,若为0则自动生成最合适的高度，否则按指定高度，保持长宽比例缩放生成的二维条码图片                          
          以上参数的设置将直接影响条码的可读性和条码图片的大小。
 pHBitmap  传出的HBITMAP句柄指针
//***************MakeToHBitmap--S*************/
HBITMAP hbitmap = NULL;
MakeToHBitmap("海量HL", strlen("海量HL"),  m_nV1,m_nV2, m_nV3,0,
   &hbitmap);不知道HBITMAP这个类型用哪个类型替换

Answer 1

HBITMAP 是windows api的类型，是bitmap位图句柄，delphi里可以直接用。

Answer 2

把MakeToHBitmap函数的实现 或dll发上来看看

Answer 3

type
  PHBITMAP = ^HBITMAP;
  procedure MakeToHBitmap(ucData: PChar; nDataLen: integer; nClumn: integer; nErr: integer; nHLRatio: integer; nHeight: integer;
   pHBitmap: PHBITMAP); stdcall; external 'a.dll';