I have this lines of source, and when i run my app it produce error:
Code: Select all
FUNCTION ComandoCEM( cPipe, xComando)
LOCAL xInBuffer := 101
LOCAL xOutbuffer
LOCAL xRespuesta
CallNamPip( cPipe, ; // lpNamedPipeName
xComando, ; // lpInBuffer
Len(xComando) + 1, ; // nInBufferSize
xOutBuffer, ; // lpOutBuffer
1024, ; // nOutBufferSize
xRespuesta, ; // lpBytesRead
20000 ) // nTimeOut
RETURN ( NIL )
//------------------------------------------------------------------------------
DLL32 FUNCTION CallNamPip( lpNamedPipeName AS STRING,;
@lpInBuffer AS LPSTR,;
nInBufferSize AS LONG, ;
@lpOutBuffer AS LPSTR,;
nOutBufferSize AS LONG, ;
@lpBytesRead AS LONG,;
nTimeOut AS LONG ) ;
AS LONG PASCAL;
FROM "CallNamedPipeA" LIB "KERNEL32.DLL"
Tank´s