Migrating to Harbour

[Antonio Linares]

Are you using FWH CopyFile() ?

Why can't you use Harbour ? What else is missing ?

[Enrico Maria Giordano]

Enrico,

https://github.com/harbour/core/tree/master

Now you have Harbour full source code

Thank you, downloaded!

EMG

[Enrico Maria Giordano]

Antonio,

__clsAddMsg( hClass, "NewData" , 1, HB_OO_MSG_ACCESS )
__clsAddMsg( hClass, "_NewData" , 1, HB_OO_MSG_ASSIGN )

Are you sure about that "1"? From tclass.prg:

Code: Select all  Expand view

        __clsAddMsg( hClass, "hClass"         ,  1, HB_OO_MSG_ACCESS )
         __clsAddMsg( hClass, "_hClass"        ,  1, HB_OO_MSG_ASSIGN )

and

Code: Select all  Expand view

        __clsAddMsg( hClass, "aDatas"         ,  3, HB_OO_MSG_ACCESS )
         __clsAddMsg( hClass, "_aDatas"        ,  3, HB_OO_MSG_ASSIGN )
 

and

Code: Select all  Expand view

        __clsAddMsg( hClass, "AddData"        , @AddData()        , HB_OO_MSG_METHOD )

I'm confused...

EMG

[Enrico Maria Giordano]

Antonio,

Enrico,

hClass is the handle of a Class, you can access it this way:

TAnyClass():hClass

or directly from an existing object:

oObject:hClass

Ok, I'll try this too, thank you.

EMG

[Enrico Maria Giordano]

Are you using FWH CopyFile() ?

Yes. I just compiled and run the sample I reported.

Why can't you use Harbour ? What else is missing ?

I don't know. First step is getting a working EXE.

EMG

[Enrico Maria Giordano]

Code: Select all  Expand view

? TControl():hClass

Code: Select all  Expand view

Error BASE/1004  Message not found: TCONTROL:HCLASS

EMG

[Enrico Maria Giordano]

One more problem: a console pops up when I run my EXEs. How to get rid of it?

Solved with:

Code: Select all  Expand view

REQUEST HB_GT_GUI_DEFAULT

EMG

[Enrico Maria Giordano]

Another problem. The following call doesn't work as expected:

Code: Select all  Expand view

MEMOLINE( cRes, 1024, 1, , .F., .T., @nPos )

It keeps reading the first line.

EMG

[Antonio Linares]

Enrico,

Sorry, it is ClassH instead of hClass

[Enrico Maria Giordano]

Antonio,

I found contrib/xhb/xhbcls.ch that should offer EXTEND CLASS command. But to check it I first need to solve the MEMOLINE() problem...

EMG

[Enrico Maria Giordano]

Summary:

- FileCopy failed to copy filename with à or similar characters

- Memoline don't work properly

- EXTEND CLASS command to check

I really can't believe that someone could have migrated to Harbour with these problems...

EMG

[Antonio Linares]

Enrico,

How to test the memoline() problem that you have found ?

[Enrico Maria Giordano]

Antonio,

here it is:

Code: Select all  Expand view

FUNCTION MAIN()

    LOCAL cTxt := "This is a test" + CHR( 13 ) + CHR( 10 ) + "This is another test"

    LOCAL nLines

    LOCAL nPos := 1

    LOCAL i

    nLines = MLCOUNT( cTxt, 1024, , .F., .T. )

    ? "Lines: " + LTRIM( STR( nLines ) )
    ?

    FOR i = 1 TO nLines
        ? ALLTRIM( MEMOLINE( cTxt, 1024, 1, , .F., .T., @nPos ) )
    NEXT

    INKEY( 0 )

    RETURN NIL

EMG

[Antonio Linares]

Enrico,

There is a little bug in your code. This is the right code

? ALLTRIM( MEMOLINE( cTxt, 1024, i, , .F., .T., @nPos ) )

[Enrico Maria Giordano]

Antonio,

No! The syntax is correct. The third parameter must be 1 because it indicates the line to read starting at nPos. If I replace 1 with i I get only the first line in xHarbour. It looks like Harbour doesn't support parameter nPos...

Unfortunately I'm still unable to use Harbour to compile my applications...

EMG