Error in EXTEND CLASS tIPClientFtp

[FabioNery]

Hi,

Please, run this program:

[code]

#include "hbclass.ch"

FUNCTION Main()

EXTEND CLASS tBrowse WITH DATA cTipoListFiles // works ok

EXTEND CLASS tIPClientFtp WITH DATA cTipoListFiles // error

RETURN NIL

[/code]

I got this error:

----------------------------- xHarbour Error
Log ------------------------------
Operating system...: Windows XP Professional 5.01.2600 Service Pack 3
xHarbour version...: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130328)
xHarbour built on..: Apr 5 2013 14:05:18
C/C++ compiler.....: Pelles ISO C Compiler 3.0 (32 bit)
Multi Threading....: NO
VM Optimization....: 2

-------------------- Internal Error Handling
nformation ---------------------

Subsystem Call ....: BASE
System Code .......: 1066
Default Status ....: .F.
Description .......: Argument error
Operation .........: conditional
Arguments .........: [ 1] = Type: U
Involved File .....:
Dos Error Code ....: 0

Trace Through:
----------------
TIPCLIENTFTP:__DESTRU : 173 in Module: W:\xHarbour\source\tip\ftpcln.prg
MAIN : 7 in Module: teste.prg


############################## Video Screen Dump
##############################

+--------------------------------------------------------------------------------+
|
|
|Teste de download ...
|
|Error BASE/1066 Argument error: conditional Arguments: ( [ 1] = Type: U)
|
|
|
|Error at ...: TIPCLIENTFTP:__DESTRUCTOR(173) in Module: ftpcln.prg
|
|Called from : F_FTPCONECTA(46) in Module: ftchama.prg
|
|Called from : F_ATUALIZASISTEMA(169) in Module: ftchama.prg
|
|Called from : MAIN(30) in Module: ftchama.prg
|
|
|
|D:\Fontes\outros\xx>
|
|D:\Fontes\outros\xx>XBUILD TESTE
|
|D:\Fontes\outros\xx\teste.exe->teste.obj
|
|D:\Fontes\outros\xx\teste.exe->teste.exe
|
|D:\Fontes\outros\xx>TESTE
|
|
|
|Error BASE/1066 Argument error: conditional Arguments: ( [ 1] = Type: U)
|
|Error at ...: TIPCLIENTFTP:__DESTRUCTOR(173) in Module:
W:\xHarbour\source\tip\f|
|tpcln.prg
|
|Called from : MAIN(7) in Module: teste.prg
|
+--------------------------------------------------------------------------------+

Could You help me?

TIA,
Fabio Nery

[cul...@gmail.com]

Fabio

TipFtpClient cannot be extended, but you can derive the class

Regards
Luiz

[Enrico Maria Giordano]

Luiz,

> TipFtpClient cannot be extended,

Why?

EMG

--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic

[FabioNery]

Hi Luiz,

The problem only occurs because ::ltrace is NIL.


PROCEDURE FtpClnDesTructor CLASS tIPClientftp

IF VALTYPE( ::lTrace ) = 'L' .AND. ::lTrace .AND. ::nHandle > 0 //
testing the type avoids the error
FClose( ::nHandle )
::nHandle := - 1
ENDIF

RETURN

Can You make this modification in ftpcln.prg, please?

Thank You,
Fabio


<cul...@gmail.com> escreveu na mensagem
news:9203f827-57a7-4665...@googlegroups.com...

[Saulius]

Hi Fabio,

> Can You make this modification in ftpcln.prg, please?

Fixed in rev 9954
Thank You for reporting

Saulius

[Mel Smith]

Saulius said:

> Fixed in rev 9954
> Thank You for reporting

Hi Saulius:

When I 'svn' using either update or checkout, I only get build
9951 -- nothing higher than that !

Any suggestions ?

Thanks,

-Mel Smith

[Enrico Maria Giordano]

Mel,

> When I 'svn' using either update or checkout, I only get build
> 9951 -- nothing higher than that !
>
> Any suggestions ?

Please use this new address for checkout and updates:

https://svn.code.sf.net/p/xharbour/code/trunk/xharbour

[Mel Smith]

Enrico said:
> Please use this new address for checkout and updates:
>
> https://svn.code.sf.net/p/xharbour/code/trunk/xharbour

Hi Enrico:

Thanks for the suggestion.

I'll try it out shortly.


-Mel

[Mel Smith]

"Mel Smith" <med_cuto...@aol.com> wrote in message
news:av77ad...@mid.individual.net...

Hi Enrico:

On my Win XP (sp3) system, I had an error with the following command:

c:\xharbour\> svn update xharbour (where my xharbour directory is
c:\xharbour

So, I went in to the xharbour sub-dir: and ran the 'checkout'

c:\>cd \xharbour
c:\xharbour\>svn co
https://svn.code.sf.net/p/xharbour/code/trunk/xharbour

Then svn created a whole new xharbour sub-dir *under* the current
xharbour sub-dir (as I expected it would

So, on completion, I did the following

.. then I emptied all the sub-dirs of the main xharbour sub-dir

... then I did the following:

c:\xharbour\> xcopy xharbour\*.* /s /e

then I deleted the sub-sub-dir of xharbour:
c:\xharbour\>RD xharbour /S

then, I re-built xharbour with BCC 6.6.0

and it works :)

But *why the Error* at the beginning of this torturous sequence, and it
STILL won't take the following command:

c:\>svn update xharbour ???

-Mel

[Enrico Maria Giordano]

Mel,

> But *why the Error* at the beginning of this torturous sequence, and it
> STILL won't take the following command:
>
> c:\>svn update xharbour ???

You have to delete the old repository, made a new checkout and you are done.

[Mel Smith]

Enrico said:

> You have to delete the old repository, made a new checkout and you are
> done.

Hi Enrico:

I assume by 'repository' that you mean delete my c:\xharbour\ sub-dir in
its entirety ???

-Mel

[Enrico Maria Giordano]

Mel,

Yes. To stay on the safe side, just make a copy before deleting it. :-)

[Mel Smith]

Hi Enrico:

Thanks for the confirmation.

Starting the build for 9954 now.

-Mel

[dlzc]

Dear Enrico Maria Giordano:

On Saturday, May 11, 2013 2:08:05 PM UTC-7, Enrico Maria Giordano wrote:
...

> > > You have to delete the old repository, made a
> > > new checkout and you are done.
>

> > I assume by 'repository' that you mean delete
> > my c:\xharbour\ sub-dir in its entirety ???
>
> Yes. To stay on the safe side, just make a copy
> before deleting it. :-)

Just rename it. Much safer.

David A. Smith

[Enrico Maria Giordano]

David,

> Just rename it. Much safer.

Of course. And faster. :-)

[FabioNery]

Hi Saulius,

Thank You Very Much.

Sds,
Fabio Nery

"Saulius" <lab...@gmail.com> escreveu na mensagem
news:kml8er$hc9$1...@speranza.aioe.org...