Antonio Linares wrote:Richard,
It seems that wininet.dll is available for Windows Mobile, so it should not be difficult to port the code to FWPPC. We are going to check it.
// Testing the FiveWin Internet Classes
#include "FWCE.ch"
function Main()
local oInternet := TInternet():New()
local oFTP := TFTP():New( "ftp.microsoft.com", oInternet ) // Microsoft FTP
local aFiles
if ! Empty( oFTP:hFTP )
aFiles = oFTP:Directory( "*.*" )
MsgInfo( Len( aFiles ) )
AEval( aFiles, { | aFile | MsgInfo( aFile[ 1 ] ) } )
else
MsgAlert( "oFTP:hFTP is null" )
endif
oInternet:End()
MsgInfo( "Done!" )
return nil
Return to FiveWin for Pocket PC
Users browsing this forum: No registered users and 41 guests