I want to buy the latest version Fivewin's

[mtajkov]

For a long time I can not resolve a problem with opening multiple COM ports FWHX in version 7.12 and therefore used in current old 16 bit version FW 1.92. Problem with version FWHX 7.12 is what OpenComm ('COM1', 1024.1024) and OpenComm ('COM2', 1024.1024) always give the same result (1). Since it is very important to me I want to buy the latest version, but only if it will solve the problem.

Please help!

[Antonio Linares]

You can order it from www.fivetechsoft.com thanks

[mtajkov]

Does that mean that you know that this problem existed with version 7.12 and that the newer versions of the problem solved?

[Antonio Linares]

mtajkov,

Current FWH version is 12.07 which it is 5 years difference from your version. As far as I know no one else has reported the error that you mention, anyhow if you provide us a self contained and small example we can check it with FWH 12.07, thanks

[mtajkov]

example:

Code: Select all  Expand view

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local cDcb
   local nCom1 := OpenComm( "COM1", 1024, 1024)
   local nCom2 := OpenComm( "COM2", 1024, 1024)

  // ------- Com1

    if nCom1 < 0
        MsgStop("Error Open COM1!")
    endif

   if ! BuildCommDcb( "COM1:9600,N,8,1", @cDcb )
      MsgStop( "Error BUILD!" )
   endif


   if ! SetCommState( nCom1, cDcb  )
      MsgStop( "Error SETCOMM!" )
   endif

MsgInfo("nCom1="+str(nCom1,1))

  // ------- Com2

    if nCom2 < 0
        MsgStop("Error Open COM2!")
    endif

   if ! BuildCommDcb( "COM2:9600,N,8,1", @cDcb )
      MsgStop( "Error BUILD!" )
   endif


   if ! SetCommState( nCom2, cDcb  )
      MsgStop( "Error SETCOMM!" )
   endif


MsgInfo("nCom2="+str(nCom2,1))


return
 

the problem is that nCom1 = 1 nCom2 = 1 (FW 1.92: nCom = 1 nCom2 = 2)

[Antonio Linares]

Here you have the EXE, please test it on your pc:

http://minus.com/lDrbijoJpyBKX

[mtajkov]

messages:

[Antonio Linares]

This code should be changed:

MsgInfo("nCom1="+str(nCom1,1))
...

into:

MsgInfo( "nCom1=" + str( nCom1 ) )

going to rebuild it again...

[Antonio Linares]

Here it is:

http://minus.com/lbtVb83480Hdcn

[mtajkov]

Yes! This is good. What is the solution?

[Antonio Linares]

There are many changes since 7.12 version, so the best advise is to upgrade your FWH from www.fivetechsoft.com thanks

[mtajkov]

Please one more information. Will the combination FWHX 12.07 and xHarbour 0.99.61 be fine or do I get a new xHarbour?

Thanks for everything
regards

Sorry for my english!

[Antonio Linares]

You need a new xHarbour that you can download from here:

http://code.google.com/p/harbour-and-xharbour-builds/downloads/list

[mtajkov]

Is it possible to download FWH 12.07 demo? On the site there is only FWH 6.12.

regards

[Antonio Linares]

We don't provide demo versions of current versions, sorry