FiveTech Software tech support forums

Another , how use ftp over TLS ? hLib = LOADLIBRARY( "wininet.dll" ) hInternet := INETOPEN( "Anystring", 1, 0, 0, 0 ) hConnect := INETCONNECT( hInternet, "www.xtech.com.cn",21, "xxx@xtech.com.cn", "erp6.5", 1, 0,0 ...

... *); internet.prg(526): note: vea la declaraci¢n de 'hb_fopen' internet.prg(538): warning C4312: 'conversi¢n de tipo': conversi¢n de 'long' a 'HINTERNET' de mayor tama¤o internet.prg(597): warning C4312: 'conversi¢n de tipo': conversi¢n de 'long' a 'HINTERNET' de mayor tama¤o Microsoft (R) ...

... de 'HB_LONGLONG' a 'DWORD'; posible p‚rdida de datos internet.prg(387): warning C4311: 'conversi¢n de tipo': truncamiento de puntero de 'HINTERNET' a 'LONG' internet.prg(387): warning C4302: 'conversi¢n de tipo': truncamiento de 'HINTERNET' a 'LONG' internet.prg(399): warning C4244: 'argumento': ...

1.

Modifica este código:

( HINTERNET ) hb_parnl( 1 )

así:

( HINTERNET ) hb_parnll( 1 )

1.- error (warning): internet.prg(441): warning C4302: 'conversi¢n de tipo': truncamiento de 'HINTERNET' a 'LONG' internet.prg(446): warning C4312: 'conversi¢n de tipo': conversi¢n de 'long' a 'HINTERNET' de mayor tama¤o Code: line 441:      hb_retnl( ...

Este es el prototipo de InternetReadFile(): BOOL InternetReadFile(  _In_   HINTERNET hFile,  _Out_  LPVOID lpBuffer,  _In_   DWORD dwNumberOfBytesToRead,  _Out_  LPDWORD lpdwNumberOfBytesRead); http://msdn.microsoft.com/en-us/library/windows/desktop/aa385103%28v=vs.85%29.aspx ...

... ) en C y FTP_LastFileInDirectory ( cMask,cIP,cUser,cPass ) en Harbour. function FTP_LastFileInDirectory( cMask,cIP,cUser,cPass ) local hInternet, hConnect local clastFileinDir:=space(260) default cMask := "*.*" hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, ...

... value of the function you use to write de file via FTP: HB_FUNC( INTERNETWRITEFILE ) { DWORD nBytesWritten; BOOL lSuccess = InternetWriteFile( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ), hb_parnl( 3 ), &nBytesWritten ); hb_retl( lSuccess ); } So if it is .T. the file was writen in the destination.

... Necesito algo muy simple y es obtener fecha y hora de un archivo que se encuentre dentro de una carpeta del servidor FTP Estoy haciendo esto: hInternet :=INTERNETOPEN( "CualquierCosa", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) hConnect :=INTERNETCONNECT( hInternet, cFTP_url, INTERNET_INVALID_PORT_NUMBER, ...

... 2) Escribe la siguiente funcion: FUNCTION SubirFtp( cFtpAddress, cUser, cPass, cOrigen, cDestino, nPort, nService ) local hWinInet, hInternet, hConnect, lOk // cargamos la DLL si no estaba cargada hWinINet := WinINet() if hWinINet < 0 .or. hWinINet >= 32 hInternet := InternetOpen( ...

... (csv/pepe1.txt) // cDestino path destino (/html/csv/pepe2.txt) FUNCTION SubirFtp( cFtpAddress, cUser, cPass, cOrigen, cDestino ) local hWinInet, hInternet, hConnect, lOk // cargamos la DLL si no estaba cargada hWinINet := WinINet()    if hWinINet < 0 .or. hWinINet >= 32       hInternet ...

... 15 @ 3, 2 BUTTON "FTP download"; ACTION DOWNLOAD( oPrg ) ACTIVATE DIALOG oDlg; CENTER RETURN NIL STATIC FUNCTION DOWNLOAD( oPrg ) LOCAL hInternet, hConnect, hSource, hDest, nRead LOCAL cData := SPACE( 1024 ) LOCAL nPos := 0 hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, ...

... 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( 2 ), hb_parclen( ...

Julio, "Anystring" sirve. Es cualquier nombre que quieras usar. Prueba a usar MsgInfo() para ver que valores toman hInternet y hConnection: hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) MsgInfo( hInternet ) hConnect = INTERNETCONNECT( ...

... 3 // // flags for FTP // #define INTERNET_FLAG_TRANSFER_ASCII 1 #define INTERNET_FLAG_TRANSFER_BINARY 2 FUNCTION MAIN() LOCAL hInternet, hConnect hInternet = INTERNETOPEN( "Anystring", INTERNET_OPEN_TYPE_DIRECT, 0, 0, 0 ) \\ donde dice Anystring hay que colocar algo ...