Question

求一个C代码定义转换成delphi定义~~

ZBRGetHandle
Description: Gets a handle for a printer driver.
Syntax: int ZBRGetHandle(
HANDLE *hPrinter,
char *printerName,
int *printerType,
int *err)
Parameters: hPrinter [out]pointer to returned printer driver handle
printerName [in] pointer to printer driver name
printerType [out]pointer to returned printer type value,
see Appendix B
err [out]pointer to returned error code
Return Value: TRUE successful
FALSE failed
Error Codes: Appendix A

上面是斑马打印机SDK中一个ZBRGetHandle函数的定义,求转换成delphi?
我自己试过这样,但不行
getprintHD:function(var printHD:THandle; printName:pchar; var printType:integer; var err:integer):integer

Answer 1

function ZBRGetHandle(hPrinter^: HANDLE;
printerName: PChar;
printerType^: Integer;
err^: Integer):integer;cdecl; (or stdcall);

Answer 2

function ZBRGetHandle(hPrinter : THandle; printerName : PChar; printerType : LongInt; err : LongInt):LongInt; stdcall;

因为hPrinter,printerName,pinterType和err这些个参数作为指针传入,不能加var关键字.