Hi all,
First, thank you ver much for your work and time
Get error when building,
using the default build.bat from HMG
Or is it need to build new library ?
( i have no idea how to do
)
***
Harbour 3.2.0dev (r1312060701)
Copyright (c) 1999-2013,
http://harbour-project.org/" onclick="window.open(this.href);return false;
main.prg(76) Error E0030 Syntax error "syntax error at 'NEW'"
main.prg(93) Error E0030 Syntax error "syntax error at 'OPEN'"
2 errors
No code generated.
hbmk2[main]: Error: Running Harbour compiler (embedded). 1
(v:\hmg\harbour\bin\harbour.exe) -n2 main.prg ftp.prg -DHBMK_HAS_HMG=1 -q -oC:\Users\HP\AppData\Local\Temp\hbmk_6q0j5m.dir\ -iv:\hmg\harbour\include -i. -iv:\hmg\include
***
Complete code:
***
#include 'hmg.ch'
#define DISABLE 0
#define ENABLE 1
#define CRLF INetCRLF()
#require "hbtip"
REQUEST __HBEXTERN__HBSSL__
REQUEST HB_GT_WIN_DEFAULT
/*****************************************************************************/
Function Main
/*****************************************************************************/
Public cUSER := ""
Public cSERVER := ""
Public cPASSWORD := ""
Public aFiles
Public cUrl
Public cStr
Public lRetVal := .T.
Public oUrl
Public oFTP
Public cFile := ""
Public lTrace := .T.
SET MULTIPLE OFF
SET NAVIGATION EXTENDED
SETMODE( 25, 80 )
cServer := "
ftp://johnsjn22.twentytwo.axc.nl"
cUser := "
Eldemo@johnsjn22.twentytwo.axc.nl"
cPassword := "12345"
cUrl := cServer
oUrl := TUrl():New( cUrl )
oFTP := TIPClientFTP():New( oUrl, .T. )
oFTP:nConnTimeout := 20000
oFTP:bUsePasv := .F.
IF At( "@", cUser ) > 0
oFTP:oUrl:cServer := cServer
oFTP:oUrl:cUserID := cUser
oFTP:oUrl:cPassword := cPassword
ENDIF
IF oFTP:Open( cUrl )
aFiles := Directory( "SelectAFile\*.*" )
IF Len( aFiles ) > 0
FOR EACH cFile IN afiles
? "Filename: " + cFile[ F_NAME ]
IF ! oFtp:UploadFile( cFile[ F_NAME ] )
lRetVal := .F.
EXIT
ELSE
lRetVal := .T.
ENDIF
NEXT
ENDIF
oFTP:Close()
ELSE
MsgBox( "Could not connect to FTP server " , oURL:cServer )
IF oFTP:SocketCon == NIL
cStr += hb_eol() + "Connection not initialized"
ELSEIF hb_inetErrorCode( oFTP:SocketCon ) == 0
cStr += hb_eol() + "Server response:" + " " + oFTP:cReply
ELSE
cStr += hb_eol() + "Error in connection:" + " " + hb_inetErrorDesc( oFTP:SocketCon )
ENDIF
? cStr
lRetVal := .F.
ENDIF
RETURN lRetVal
*---------------------------------------------------------------------------*
METHOD New( oUrl, xTrace, oCredentials ) CLASS TIPClientFTP
::super:new( oUrl, iif( HB_ISLOGICAL( xTrace ) .AND. xTrace, "ftp", xTrace ), oCredentials )
::nDefaultPort := 21
::nConnTimeout := 3000
::bUsePasv := .T.
::nAccessMode := TIP_RW // a read-write protocol
::nDefaultSndBuffSize := 65536
::nDefaultRcvBuffSize := 65536
// precompilation of regex for better prestations
::RegBytes := hb_regexComp( "\(([0-9]+)[ )a-zA-Z]" )
::RegPasv := hb_regexComp( "([0-9]*) *, *([0-9]*) *, *([0-9]*) *, *([0-9]*) *, *([0-9]*) *, *([0-9]*)" )
RETURN Self
METHOD Open( cUrl ) CLASS TIPClientFTP
IF HB_ISSTRING( cUrl )
::oUrl := TUrl():New( cUrl )
ENDIF
IF Len( ::oUrl:cUserid ) == 0 .OR. Len( ::oUrl:cPassword ) == 0
RETURN .F.
ENDIF
IF ! ::super:Open()
RETURN .F.
ENDIF
IF ::GetReply()
::inetSendAll( ::SocketCon, "USER " + ::oUrl:cUserid + ::cCRLF )
IF ::GetReply()
::inetSendAll( ::SocketCon, "PASS " + ::oUrl:cPassword + ::cCRLF )
// set binary by default
IF ::GetReply() .AND. ::TypeI()
RETURN .T.
ENDIF
ENDIF
ENDIF
RETURN .F.
*---------------------------------------------------------------------------*
***
Thanks and greetings...
