Hi,
after rebuilding latest xharbour cvs code I did try to build a program of mine
which is a simple class which has a destructor, now, every time I run it I get
a runtime error?!?
Unrecoverable error 9000: Destructors disabled! Destructor of class: 'TFTP'
can't be executed.
Called from hb_vmQuit()
Why does this error happen? This code has been working fine since last march
(last time I did build this program).
Best regards.
Maurilio.
PS. This is the class definition which does not work anymore
CLASS TcURLEasy
METHOD New( cUrl )
DESTRUCTOR Free()
METHOD Perform()
METHOD Reset()
// callbacks
METHOD Write( cStr, nSize, nMemb ) VIRTUAL
METHOD Read( cStr, nSize, nMemb ) VIRTUAL
METHOD Progress( nDLTotal, nDLNow, nULTotal, nULNow ) VIRTUAL
ASSIGN URL( cUrl ) INLINE ::SetUrl( cUrl )
ASSIGN FOLLOWLOCATION( lValue ) INLINE curl_easy_setopt(
::pcUrl, CURLOPT_FOLLOWLOCATION, iif( lValue, 1, 0 ) )
ASSIGN UPLOAD( lValue ) INLINE curl_easy_setopt(
::pcUrl, CURLOPT_UPLOAD, iif( lValue, 1, 0 ) )
ASSIGN INFILESIZE_LARGE( nValue ) INLINE curl_easy_setopt(
::pcUrl, CURLOPT_INFILESIZE_LARGE, nValue )
ASSIGN FTP_USE_EPSV( lValue ) INLINE curl_easy_setopt(
::pcUrl, CURLOPT_FTP_USE_EPSV, iif( lValue, 1, 0 ) )
ASSIGN TCP_NODELAY( lValue ) INLINE curl_easy_setopt(
::pcUrl, CURLOPT_TCP_NODELAY, iif( lValue, 1, 0 ) )
ASSIGN BUFFERSIZE( nValue ) INLINE curl_easy_setopt(
::pcUrl, CURLOPT_BUFFERSIZE, nValue )
ASSIGN NOPROGRESS( lValue ) INLINE curl_easy_setopt(
::pcUrl, CURLOPT_NOPROGRESS, iif( lValue, 1, 0 ) )
// When passing an array you _have to_ pass Self as fourth parameter
ASSIGN POSTQUOTE( aValue ) INLINE curl_easy_setopt(
::pcUrl, CURLOPT_POSTQUOTE, aValue, Self )
ASSIGN PREQUOTE( aValue ) INLINE curl_easy_setopt(
::pcUrl, CURLOPT_PREQUOTE, aValue, Self )
// Should be protected, at least, but I don't know how to call such a
method from C code :/
METHOD AddSList( pSList )
PROTECTED:
METHOD SetUrl( cUrl )
VAR pcURL INIT NIL // Handle of cURL object
HIDDEN:
VAR cUrl INIT ""
VAR aSList INIT {}
ENDCLASS
--
__________
| | | |__| Maurilio Longo
|_|_|_|____| farmaconsult s.r.l.
------------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It is the best place to buy or sell services for
just about anything Open Source.
http://p.sf.net/sfu/Xq1LFB
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
