HMGforum.com

rathinagiri wrote:Hi Roberto,

Have you seen Harbour\source\rtl\hbbit.c which contains the hbbit* functions like hbbit_and() hbbit_or()?

n := hb_bitAnd( n1, hb_bitAnd( n2, n3 ) )
n := hb_bitOr( n1, n2, n3, ..n )

n := hb_bitshift( 1, nBit )

Chacal.GO wrote:Below another project with sockets (Maybe has something usefull)...

This Project is started at harbour developer group and made from Daniel Garcia Gil e Antonio Linares

You need a HTML5 WebSockets support capable Internet browser like Chrome. Unfortunately IE does not apply. IE is behind its competitors regarding HTML5 support. Thats why I use Chrome, and also because it is much faster. Microsoft has promised a new version with HTML5 support but it seems as it is not ready yet.
Internet Explorer 10 and Metro style apps using JavaScript add support for the WebSocket API as defined in the W3C's HTML5 specification on the WebSocket API, which is currently in the Working Draft stage.
http://code.google.com/p/harbour-websocket/

rathinagiri wrote:That's cool.

Now my question is, can we connect to a MySQL database in the local server using websockets if we compile wssocket.exe along with mysql calls and if we have libmysql.dll file in the websocket folder?

Hi,

As I've said in a previous post, I'm trying to enhance the Harbour
websockets server by Antonio Linares and Daniel García Gil to allow it
to return messages longer than 126 bytes to the client browser.

The original line creating data frame is the following:

Code: Select all

oClient:SendData( Chr( 129 ) + Chr( Len( cAnswer ) ) + 
 hb_StrToUtf8( cAnswer ) ) 

I've researched about WebSockets protocol and I've found the following
pseudo-code aimed to explain how data framing must be done:

Code: Select all

////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 
 bytesFormatted[0] = 129 

indexStartRawData = -1 // don't matter what value is here; it will be 
 set now: 

if bytesRaw.length <= 125 
     bytesFormatted[1] = bytesRaw.length 

    indexStartRawData = 2 

else if bytesRaw.length >= 126 and bytesRaw.length <= 65535 
     bytesFormatted[1] = 126 
     bytesFormatted[2] = ( bytesRaw.length >> 8 ) AND 255 
     bytesFormatted[3] = ( bytesRaw.length      ) AND 255 

    indexStartRawData = 4 

else 
     bytesFormatted[1] = 127 
     bytesFormatted[2] = ( bytesRaw.length >> 56 ) AND 255 
     bytesFormatted[3] = ( bytesRaw.length >> 48 ) AND 255 
     bytesFormatted[4] = ( bytesRaw.length >> 40 ) AND 255 
     bytesFormatted[5] = ( bytesRaw.length >> 32 ) AND 255 
     bytesFormatted[6] = ( bytesRaw.length >> 24 ) AND 255 
     bytesFormatted[7] = ( bytesRaw.length >> 16 ) AND 255 
     bytesFormatted[8] = ( bytesRaw.length >>  8 ) AND 255 
     bytesFormatted[9] = ( bytesRaw.length       ) AND 255 

    indexStartRawData = 10 

// put raw data at the correct index 
 bytesFormatted.put(bytesRaw, indexStartRawData) 

// now send bytesFormatted (e.g. write it to the socket stream) 
 ////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 

Then, I've attempted to translate to Harbour as follows:

Code: Select all

////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 

bytesFormatted_0 := chr(129) 
    if Len( cAnswer ) <= 125 
       bytesFormatted_1 := Chr( Len( cAnswer ) ) 
       oClient:SendData( bytesFormatted_0 + bytesFormatted_1 + 
 hb_StrToUtf8( cAnswer ) ) 
    elseif Len( cAnswer ) >= 126 .and. Len( cAnswer ) <= 65535 
       bytesFormatted_1  := chr(126) 
       bytesFormatted_2  := chr ( hb_bitAnd 
 ( hb_bitShift( Len( cAnswer ) , 8 ) , 255 ) ) 
       bytesFormatted_3  := chr ( hb_bitAnd ( Len( cAnswer ) , 255 ) ) 
                 oClient:SendData( bytesFormatted_0 + bytesFormatted_1 + 
 bytesFormatted_2 + bytesFormatted_3 + hb_StrToUtf8( cAnswer ) ) 
    else 
       /* not implemented yet */ 
    endif 

////////////////////////////////////////////////////////////////////////////////////////////////////////////////// 

But, the code fails to return messages longer than 255 characters.

Is the translation to Harbour correct?

TIA.

Regards,

Roberto.