Are you using FWH CopyFile() ?
Why can't you use Harbour ? What else is missing ? 
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Migrating to Harbour
Antonio Linares wrote:Enrico,
https://github.com/harbour/core/tree/master
Now you have Harbour full source code
Thank you, downloaded!
EMG
Antonio,
Are you sure about that "1"? From tclass.prg:
and
and
I'm confused...
EMG
Antonio Linares wrote: __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:
__clsAddMsg( hClass, "hClass" , 1, HB_OO_MSG_ACCESS )
__clsAddMsg( hClass, "_hClass" , 1, HB_OO_MSG_ASSIGN )and
__clsAddMsg( hClass, "aDatas" , 3, HB_OO_MSG_ACCESS )
__clsAddMsg( hClass, "_aDatas" , 3, HB_OO_MSG_ASSIGN )and
__clsAddMsg( hClass, "AddData" , @AddData() , HB_OO_MSG_METHOD )I'm confused...
EMG
Antonio,
Ok, I'll try this too, thank you.
EMG
Antonio Linares wrote: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
Antonio Linares wrote:Are you using FWH CopyFile() ?
Yes. I just compiled and run the sample I reported.
Antonio Linares wrote:Why can't you use Harbour ? What else is missing ?
I don't know. First step is getting a working EXE.
EMG
? TControl():hClassError BASE/1004 Message not found: TCONTROL:HCLASSEMG
Enrico Maria Giordano wrote:One more problem: a console pops up when I run my EXEs. How to get rid of it?
Solved with:
REQUEST HB_GT_GUI_DEFAULTEMG
Another problem. The following call doesn't work as expected:
It keeps reading the first line.
EMG
MEMOLINE( cRes, 1024, 1, , .F., .T., @nPos )It keeps reading the first line.
EMG
Enrico,
Sorry, it is ClassH instead of hClass
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
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
Enrico,
How to test the memoline() problem that you have found ?
Antonio,
here it is:
EMG
here it is:
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 NILEMG
Enrico,
There is a little bug in your code. This is the right code
? ALLTRIM( MEMOLINE( cTxt, 1024, i, , .F., .T., @nPos ) )
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