Antonio, he tardado un poco en responder: así es fprintf no llega a funcionar.
Mañana probaré esto otro que me indicas.
//#include <hbapifs.h> //Necesarias para hb_fsOpen
#include <fileio.ch>
#include "hbapi.h"
#include "stdio.h"
#include "WinBase.h"
FILE * hb_fopen( const char * path, const char * mode );
...
HB_FUNC( FTPLASTFILEINDIR ) //Método por el último nombre en el listado obtenido.
{
WIN32_FIND_DATA ultdir;
WIN32_FIND_DATA dirtemp;
SYSTEMTIME stUTC;
HINTERNET FtpHandle;
FILE * fichero;
MessageBox( GetActiveWindow(), "Antes de hb_fOpen() y antes de FtpFindFirstFile()", "Informacion", 0x40 );
OutputDebugString( "Antes de hb_fsOpen() y antes de FtpFindFirstFile()\n" );
//fichero = (FILE *) hb_fsOpen( "LISTFTP.DAT", FO_WRITE );
fichero = hb_fopen( "LISTFTP.DAT", (const char * ) FO_WRITE );
OutputDebugString( "despues de hb_fsOpen() y antes de FtpFindFirstFile()\n" );
FtpHandle = FtpFindFirstFile( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ), &dirtemp, hb_parnl( 3 ), hb_parnl( 4 ) ) ;
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 50 guests