FiveTech Software tech support forums

...  FileTimeToDate( oWin32FindData:nLastWriteAccess ),;                          FileTimeToTime( oWin32FindData:nLastWriteAccess ) } )          while InternetFindNextFile( hFTPDir, @cBuffer )             oWin32FindData:cBuffer = cBuffer             AAdd( aFiles, { StripFromNull (oWin32FindData:cFileName),; ...

... ) FtpFindFirstFile( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ), ( WIN32_FIND_DATA * ) hb_parc( 3 ), hb_parnl( 4 ), hb_parnl( 5 ) ) ); } HB_FUNC( INTERNETFINDNEXTFILE ) { BOOL lSuccess = InternetFindNextFile( ( HINTERNET ) hb_parnl( 1 ), ( WIN32_FIND_DATA * ) hb_parc( 2 ) ) ; hb_retl( lSuccess ...

No se elimina el error. Pero ademàs lo que sucede con ese còdigo es que como se pasan los resultados a una varia ble definida dentro de la parte en C, la variable fd, el prg que llama a la función no ve los resultados de InternetFindNextFile dentro de la rutina en C.

Ahora es peor todavía. El error hb_free Pointer Overflow lo arroja a la primera que se hace una llamada a la funcion InternetFindNextFile. Tanto si declaro cABuffer como static al principio del programa como si la declaro como local dentro de la funcion que la usa.

Antonio, Faltaba un paréntesis y por eso arrojaba esos errores. Una vez corregido arroja estos otros: Incompatible type conversion in function HB_FUNC_INTERNETFINDNEXTFILE - en la línea: hb_storclen( 2, ( char * ) fd, sizeof( WIN32_FIND_DATA ) ) Type mismatch in parameter 'szText' wanted 'signed cha...

Con los cambios que me has indicado al compilar arroja los siguientes errores: Macro expansion too long in function HB_FUNC_INTERNETFINDNEXTFILE Wrong number of arguments in call of macro hb_retl in function HB_FUNC_INTERNETFINDNEXTFILE Compound statement missing } in function HB_FUNC_INTERNETFINDNE...

Antonio, Lo de poner space(500) ha sido para que cupiesen de sobra los datos que devuelve InternetFindNextFile porque si se pone menos da error al salir del programa. No obstante, para apurar exacto el tamaño se puede hacer definiendo una nueva función que nos devuelva ...

... WINDOW oWnd Como con esto ya no hay que volver a poner en ninguna parte cABuffer = a algo, el problema se elimina. Sin embargo, la instrucción: InternetFindNextFile( hFTPDir, @cABuffer ) si que sigue usando -modificando el contenido- la dirección de memoria correspondiente a cABuffer, siendo ...

... programa falla en la instrucción cABuffer = oWin32FindData:cBuffer Lo que esta sucediendo es que después de ejecutar por primera vez la función: InternetFindNextFile( hFTPDir, @cABuffer ) Cualquier asignación que se quiera hacer de la variable cABuffer ocasiona el error descrito. cABuffer:="" ...

Jeff, Please make these changes: hb_retnl( ( unsigned long ) OpenComm( ( char * ) hb_parc( 1 ), cbInQueue, cbOutQueue ) ); hb_retl( InternetFindNextFile( ( HINTERNET ) hb_parnl( 1 ), ( char * ) hb_parc( 2 ) ) ); BOOL lSuccess = InternetReadFile( ( HINTERNET ) hb_parnl( 1 ), ( char * ) hb_parc( ...

... Suspicious pointer conversion in function HB_FUN_ MYOPENCOMM Warning W8075 ezsat.prg 23566: Suspicious pointer conversion in function HB_FUN_ INTERNETFINDNEXTFILE Warning W8075 ezsat.prg 23588: Suspicious pointer conversion in function HB_FUN_ INTERNETREADFILE Turbo Incremental Link 5.69 Copyright ...

... Suspicious pointer conversion in function HB_FUN_ MYOPENCOMM Warning W8075 EzSat.prg 23566: Suspicious pointer conversion in function HB_FUN_ INTERNETFINDNEXTFILE Warning W8075 EzSat.prg 23588: Suspicious pointer conversion in function HB_FUN_ INTERNETREADFILE Turbo Incremental Link 5.69 Copyright ...

... ) while InternetFindNextFile( hFTPDir, @cBuffer ) oWin32FindData:cBuffer = cBuffer msginfo(oWin32FindData:cFileName) aadd( aFiles, { oWin32FindData:cFileName,oWin32FindData:nSizeLow,FileTimeToDate(oWin32FindData:nLastWriteAccess),FileTimeToTime(oWin32FindData:nLastWriteAccess),oWin32FindData:nFileAttributes ...

FtpFindFirstFile/InternetFindNextFile return the filename filled by a char, i think chr(0). I use this HB_FUNC( CLEARSTRING )                             ...

... lpszSearchFile As String, lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long Private Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" (ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long ...