FiveTech Software tech support forums

I get the following error:

Code: Select all  Expand view

Error: Unresolved external '_HB_FUN___CLSLOCKDEF'

What is this?

EMG

Enrico,

It seems as you are not using the right Harbour libraries as such function is defined in classes.c and classes.obj belongs to hbrtl.lib

Please edit (with an ascii viewer, I use Total Commander) hbrtl.lib and look for CLSLOCKDEF inside it

Thank you, fixed.

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

EMG

Enrico,

Are you using the flag -aa when linking ?

Antonio,

yes.

EMG

Another one. I need this:

Code: Select all  Expand view

EXTEND CLASS TControl WITH DATA lSel

How can I do it with Harbour?

EMG

Another one: with Harbour I can't use CopyFile() to copy files with character like à. It returns .F.:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    MEMOWRIT( "testà", "" )

    ? COPYFILE( "testà", "testb" )

    RETURN NIL

EMG

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

The problem is that I'm linking both gtwin.lib and gtgui.lib. But if I remove gtwin.lib I get:

Code: Select all  Expand view

Error: Unresolved external '_HB_FUN_HB_GT_WIN' referenced from E:\HARBOUR\LIB\HBRTL.LIB|gtsys

Any ideas? I think I have to define gtsys() somewhere...

EMG

Enrico,

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

Please review tclass.prg from harbour source code

Antonio,

Antonio Linares wrote:Enrico,

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

Please review tclass.prg from harbour source code

Thank you, I will try them. And sorry, I don't have Harbour source code.

EMG

Any solutions for CopyFile() problem? It looks like something unicode related...

EMG

And, by the way, I'm still unable to get a working application with Harbour...

EMG

Antonio,

Antonio Linares wrote: __clsAddMsg( hClass, "NewData" , 1, HB_OO_MSG_ACCESS )
__clsAddMsg( hClass, "_NewData" , 1, HB_OO_MSG_ASSIGN )

What is hClass?

EMG

Enrico,

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

Now you have Harbour full source code

Enrico,

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

TAnyClass():hClass

or directly from an existing object:

oObject:hClass