Przemysław Czerpak wrote:
>
> Thank you very much for it.
> I think that many Harbour users will find your decision as really great.
>
For sure Harbour plus users of other compiler too will benefit more than
they get today.
Thanks for your words.
> Just for information only. Have you implemented COM_KEY(), COM_SKEY(),
> COM_EVENT() functions, <lNoDelete> in COM_READ() and additional
> parameters (2,3,4) in COM_OPEN()?
>
Com_Key() => No
Com_SKey() => No
Com_Event() => No
The all three functions need Overlapped and asynchronous CreateFile()
protocol, which at that times, I was not able to handle.
Com_Read( nPort, nBytesToRead, lNoDelete ) => No
Again this can only be possible with asynchronous and
overlapped structures.
COM_OPEN(<nComPort>,<nBufferIn>,<nBufferOut>, [<lTrapMode>]) -->
lStatus
nBufferIn, nBufferOut => YES
lTrapMode => NO
nBufferIn, nBufferOut as:
if valtype( nInBuffer ) == 'N'
DEFAULT nOutBuffer TO 1024
if !SetupComm( nHandle, nInBuffer, nOutBuffer )
CloseHandle( nHandle )
return .f.
endif
endif
/*
BOOL SetupComm(
HANDLE hFile, // handle to communications device IN
DWORD dwInQueue, // size of input buffer IN
DWORD dwOutQueue // size of output buffer IN
);
*/
HB_FUNC_STATIC( SETUPCOMM )
{
hb_retl( SetupComm( ( HANDLE ) hb_parnl( 1 ), hb_parnl( 2 ), hb_parnl( 3
) ) );
}
//-------------------------------------------------------------------//
-----
enjoy hbIDEing...
Pritpal Bedi
http://hbide.vouch.info/
--
View this message in context:
http://harbour-devel.1590103.n2.nabble.com/Vouch32-Under-Harbour-Contrib-tp5065692p5067162.html
Sent from the harbour-devel mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
