FiveTech Software tech support forums

Este es el prototipo de InternetReadFile(): BOOL InternetReadFile(  _In_   HINTERNET hFile,  _Out_  LPVOID lpBuffer,  _In_   DWORD dwNumberOfBytesToRead,  _Out_  LPDWORD lpdwNumberOfBytesRead); ...

... FTPGETFILESIZE ) { DWORD nFileSizeHigh; hb_retnl( ( LONG ) FtpGetFileSize( ( HINTERNET ) hb_parnl( 1 ), &nFileSizeHigh ) ); } HB_FUNC( INTERNETREADFILE ) { DWORD nBytesRead; BOOL lSuccess = InternetReadFile( ( HINTERNET ) hb_parnl( 1 ), ( LPVOID ) hb_parc( 2 ), hb_parclen( 2 ), &nBytesRead ...

Lucas, These functions are duplicated in ftp.prg or ftp.c. There is no ftp.* in FWH neither in Harbour, unless I miss something: fiveh32.lib(WININET.obj) : warning LNK4006: _HB_FUN_INTERNETOPEN ya se definió en ftp.obj; segunda definición omitida fiveh32.lib(WININET.obj) : warning LNK4006: _HB_FUN_I...

... METHOD OpenWS(url) CLASS TdWebService local hFile,ret,xml hFile = InternetOpenUrl(::hOpen, url,"",0,,0) xml:=space(::sbuffer) InternetReadFile(hFile, @xml, ::sbuffer, @Ret) return XML * return subst(alltrim(xml),1,len(alltrim(xml))-5) ***************************** METHOD End() ...

... FTPGETFILESIZE ) { DWORD nFileSizeHigh; hb_retnl( ( LONG ) FtpGetFileSize( ( HINTERNET ) hb_parnl( 1 ), &nFileSizeHigh ) ); } HB_FUNC( INTERNETREADFILE ) { DWORD nBytesRead; BOOL lSuccess = InternetReadFile( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ), hb_parclen( 2 ), &nBytesRead ...

... I compile: Warning W8075 c:\\myapp\\test\\FTP.PRG 645: Suspicious pointer conversion in function HB_FUN_INTERNETREADFILE Line is: BOOL lSuccess = InternetReadFile( ( HINTERNET ) hb_parnl( 1 ), hb_parc( 2 ), hb_parclen( 2 ), &nBytesRead ); And whole function ...

... 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( 2 ), &nBytesRead );

... 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 (c) 1997-2005 Borland * Application successfully built * In the older version I had no warnings ...

... 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 (c) 1997-2005 Borland Fatal: Too many DEF file names: \bcc582\lib\wininet.LIB * Linking errors *

Hi James,

Thanks for your hint. I'm playing with WinInet for some days, but instead InternetReadFile(), I think that I need InternetWriteFile(), but it is not so easy to use, please see at msdn and another problem, I need use SOAP protocol, or ws will reject my request...

Regards,

Toninho.

... C:\FWH\SAMPLES\TESTFTP .OBJ Error: Unresolved external 'FtpGetFileSize' referenced from C:\FWH\SAMPLES\TESTF TP.OBJ Error: Unresolved external 'InternetReadFile' referenced from C:\FWH\SAMPLES\TES TFTP.OBJ Drücken Sie eine beliebige Taste . . .

You have to use InternetWriteFile() instead of InternetReadFile(). Study my sample and improve it accordingly.

EMG

... from a PHP program. Unfortunately I cannot pick the values out. Someone already solved the problem regards, Carsten sbuffer = empty function InternetReadFile( hFile ,sBuffer,lNumBytesToRead,lNumberOfBytesRead ) local hDLL := iIf( ValType( xdll ) == "N", xdll, LoadLib32( "xdll" ) ) local uResult ...

Antonio, I received the new update, but now it appears the following error: FiveCE.lib(TFTPFILE.obj) : error LNK2001: unresolved external symbol HB_FUN_INTERNETSETFILEPOINTER FiveCE.lib(TFTPFILE.obj) : error LNK2001: unresolved external symbol HB_FUN_INTERNETREADFILE FiveCE.lib(TFTPFILE.obj) : error...

... If empty(hFile) ? "Não foi possivel conectar." else //InternetWriteFile(hFile, @sBuffer, 3200, @Ret) sBuffer:= Space(3200) InternetReadFile(hFile, @sBuffer, 3200, @Ret) InternetCloseHandle(hFile) InternetCloseHandle(hOpen) If Empty(sBuffer) MsgStop("Erro conectar servidor ...