C++ --> Delphi

Question

typedef int apiReturn;   // 函数返回值类型//连接读写器
apiReturn _stdcall ConnectScanner(HANDLE *hScanner, char *szPort, int nBaudRate);//断开连接
apiReturn _stdcall DisconnectScanner(HANDLE hScanner);

Answer 1

分不够可以再加，急
声明如下，但是连接不上，好郁闷的咯
type
   TapiReturn = Integer;//连接读写器
function ConnectScanner(var hScanner: THandle; szPort: PChar; nBaudRate: Integer): TapiReturn ;stdcall;function ConnectScanner(var hScanner: THandle; szPort: PChar; nBaudRate: Integer): TapiReturn ; external "Reader1000DLL.dll";问题大概在char *szPort这个上面，我要传一个COM12进去

Answer 2

pPort:array[0..9]of char;
sPort:string;ZeroMemory(@pPort,10);
sPort:='COM1';CopyMemory(@pPort,pchar(sPort),10);调用的时候试试这个代码

Answer 3

谢谢楼上的回复，自己搞定了，原来不是传COM12进去，而是要传\\.\COM12，TNNGX,真JB郁闷