Hello Antonio
I have this problems with oFtp:Directory
With FW7.07 I used
aFiles = oFTP:Directory( "filelist\01\")
and works
Now with FW 8.03 I have this error
Error description: Error BASE/1066 Parametro errato: condizionale
Thank MAurizio
Hi Maurizio,
Change
aFiles = oFTP:Directory( "filelist\01\")
to
aFiles := oFTP:Directory( "filelist\01\")
Thank Vilian
but the problem remain
Maurizio
Maurizio,
Please compile source\classes\tftp.prg as another PRG of your application and check in what line number the error is generated, thanks
My guess is that the error is coming from here:
while InternetFindNextFile( hFTPDir, @cBuffer )
but just to be sure
Antonio
Yes the error is at the line
while InternetFindNextFile( hFTPDir, @cBuffer )
I have the first file with
hFTPDir = FtpFindFirstFile( ::hFTP, cMask, @cBuffer, 0, 0 )
Regards MAurizio
Maurizio,
InternetFindNextFile( hFTPDir, @cBuffer ) should return a logical value. Its real strange that it is not returning it.
Have you modified that function ?
Antonio,
< Have you modified that function ?
absolutely no
MAurizio
local lResult
...
while ValType( lResult := InternetFindNextFile( hFTPDir, @cBuffer ) ) == "L" .and. lResult
oWin32FindData:cBuffer = cBuffer
AAdd( aFiles, { oWin32FindData:cFileName,;
oWin32FindData:nSizeLow,;
FileTimeToDate( oWin32FindData:nLastWriteAccess ),;
FileTimeToTime( oWin32FindData:nLastWriteAccess ) } )
endAntonio ,
With your modify the programm work
but in aFiels I have only the first file .
Regards MAurizio
#pragma BEGINDUMP
#include <hbapi.h>
#include <windows.h>
#include <wininet.h>
HB_FUNC( INTERNETFINDNEXTFILE )
{
hb_retl( InternetFindNextFile( ( HINTERNET ) hb_parnl( 1 ),
( LPWIN32_FIND_DATA ) hb_parc( 2 ) ) );
}
#pragma ENDDUMPAntonio ,
Thank I add the function HB_FUNC( INTERNETFINDNEXTFILE )
and it works .
I compare it with the one in wininetx.c and it's the same ???
What is strange is that when I have a error instead to have the error list of FW I had the list of xHArbour , maybe the problem is related ?
Thank Maurizio
Maurizio,
wininetx.c has not been placed inside FiveHC.lib yet. Instead we are still using source\winapi\wininet.prg
Please run samples\TestErro.prg. You should get FWH error dialog box, unless you have modified the errorsys yourself or you are linking the libraries in a different order, thanks
Antonio ,
there is a same pronblem with
oFtp:DeleteFile
I insert :
HB_FUNC( FTPDELETEFILE )
{
hb_retl( FtpDeleteFile( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ) ) );
}
And now work
Regards MAurizio
Maurizio,
We need to remove wininet.prg and add wininetx.c
Hi Antonio,
I have the same problem using the FTP functions.
Do you already have an updated lib that fix it ?
Thanks
