FiveTech Software tech support forums

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"