FiveTech Software tech support forums

... CATCH CurSorArrow() MsgInfo('Conection Error','Erro') RETURN(.F.) END IF !EMPTY( oUrl ) oCli = TIPClientHttp():New( oUrl ) IF !EMPTY( oCli ) oCli:nConnTimeout = -1 oCli:lSSL = .T. IF oCli:Open() hQuery["mod"] := "login" hQuery["comp"] := "5" hQuery["user"] ...

... CATCH CurSorArrow() MsgInfo('Conection Error','Erro') RETURN(.F.) END IF !EMPTY( oUrl ) oCli = TIPClientHttp():New( oUrl ) IF !EMPTY( oCli ) oCli:nConnTimeout = -1 oCli:lSSL = .T. IF oCli:Open() hQuery["mod"] := "login" hQuery["comp"] := "5" hQuery["user"] ...

... MsgInfo('Erro ao criar a conexão','Erro') RETURN(.F.) END IF !EMPTY( oUrl ) oCli = TIPClientHttp():New( oUrl ) IF !EMPTY( oCli ) oCli:nConnTimeout = -1 IF oCli:Open() <============================ this line returns false. hQuery["mod"] := "login" hQuery["comp"] ...

... MsgInfo('Erro ao criar a conexão','Erro') RETURN(.F.) END IF !EMPTY( oUrl ) oCli = TIPClientHttp():New( oUrl ) IF !EMPTY( oCli ) oCli:nConnTimeout = -1 IF oCli:Open() hQuery["mod"] := "login" hQuery["comp"] := "5" hQuery["user"] := ...

... MsgInfo('Erro ao criar a conexão','Erro') RETURN(.F.) END IF !EMPTY( oUrl ) oCli = TIPClientHttp():New( oUrl ) IF !EMPTY( oCli ) oCli:nConnTimeout = -1 IF oCli:Open() hQuery["mod"] := "login" hQuery["comp"] := "5" hQuery["user"] := ...

... cDirSer := cNomSer+"/actualiz" oUrl := tURL():New(http+cDirSer+"/Ammyy5.rar" ) oClient := tIPClientHTTP():New( oUrl ) oClient:nConnTimeout := nSegEsp IF oClient:Open( oUrl ) oClient:ReadToFile( cRutDes+"Ammyy5.rar",nil,nil,"no borra chr(13)") oClient:Close() ...

... cUrl:="ftp://"+cFusr+":"+cFpsw+"@"+cFsrv oFtp:=tIPClientFtp():New(cUrl,lTrace) oFtp:nConnTimeout:=nTimeOut if .not. oFtp:open() msginfo("Ftp error "+oFtp:LastErrorMessage()) quit endif if .not. oFtp:UploadFile(cFile) msginfo("ftp ...

... oUrl:= turl():new(curl) oCred:= tIPCredentials() oFtp:= tipclientftp():NEW(oUrl,,.T.) oFTP:nConnTimeout := 20000 oFTP:bUsePasv := .T. IF oFTP:Open() cLista := oFTP:List() msginfo(cLista) ELSE msginfo("error") ENDIF

oUrl := tURL():New(http+cDirSer+"/zerusbas.rar" ) oClient := tIPClientHTTP():New( oUrl ) oClient:nConnTimeout := nSegEsp IF oClient:Open( oUrl ) oClient:ReadToFile( cRutDes+"zerusbas.rar",nil,nil,"no borra chr(13)") oClient:Close() ELSE MYMEN("Error. ...

... cUrl:="ftp://"+cFtpUser+":"+cFtpPassword+"@"+cFtpSite oFtp:=tIPClientFtp():New(cUrl,lTrace) oFtp:nConnTimeout:=60000 if .not. oFtp:open() msginfo("ftp error "+oFtp:LastErrorMessage()) return(.f.) endif oFtp:dele(cFtpFileToDelete) oFtp:Close() ...

... := 0 IF Upper(Left(cUrl,4))#"HTTP" cUrl:="http://"+cUrl ENDIF TRY oConn := TipClientHttp():New(TURL():New(cUrl)) oConn:nConnTimeout := 20000 IF oConn:Open(cURL) oConn:ReadToFile(cSaveAs,,nFileSize) oConn:Close() ENDIF CATCH lReturn := .F. END RETURN lReturn //----------------------------------------------------------------------------//

... > 0 oUrl:cUserID := strtran(cUser,"&at;","@") oUrl:cPassword := cPassword ENDIF oFTP := tIPClientFtp():New( oUrl ) oFTP:nConnTimeout := 20000 oFTP:bUsePasv := .T. If oFTP:Open( ) eDlg:cMsg:="Bajando actualizaciones ...." eDlg:refresh() Sysrefresh() oFtp:cwd("casoft") ...

... 0 oUrl:cUserID := strtran(cUser,"&at;","@") oUrl:cPassword := cPassword ENDIF oFTP := tIPClientFtp():New( oUrl, .T. ) oFTP:nConnTimeout := 20000 oFTP:bUsePasv := .T. oFTP:Open( ) IF oFtp <> NIL RETURN .T. ENDIF RETURN .F. ****************************************************************************** ...

... BEGIN SEQUENCE oUrl = TUrl():New( cUrl ) IF EMPTY( oUrl ); BREAK; ENDIF oCli = TIPClientHttp():New( oUrl ) IF EMPTY( oCli ); BREAK; ENDIF oCli:nConnTimeout = -1 IF !oCli:Open(); BREAK; ENDIF cErr = CVALTOCHAR( oCli:ReadAll() ) if cDataToCheck<>NIL if at(cDataToCheck,cErr)>0 lOk:=.t. ...

... + cUser + ":" + cPassword + "@" + cServer oUrl := tUrl():New(cUrl) oFtp := tIPClientFtp():New(oUrl,.t.) oFtp:nConnTimeout := 20000 oFtp:bUsePasv := .t. oFtp:lTrace := .f. if oFtp:open(cUrl) if oFtp:UpLoadFile((cFile)) oFtp:close() endif else ?? 'Error openning ...