FiveTech Software tech support forums

... "fivewin.ch" #include "dll.ch" Function Main MsgRun( "Connecting to Internet...", "Please, wait",{ || oInternet := TInternet():New()}) Return Compilado con Buildx.bat de la carpeta de ejemplos Application =========== Path and name: J:\Fwh2307\fwh\samples\nuevo1.exe ...

... => MAIN( 6 ) Ejemplo #include "fivewin.ch" Function Main MsgRun( "Connecting to Internet...", "Please, wait",{ || oInternet := TInternet():New()}) Return

... FtpSendFile(cFTP, cSource, cTarget, nVar41, nVar42, 14147 ) FUNCTION FtpSendFile( cFTPSite, cSource, cTarget, cUser, cPass, nBufSize ) LOCAL oInternet, oFTP DEFAULT cUser:="", cPass:="", nBufSize:=2000 IF EMPTY(cFtpSite) .or. EMPTY(cSource) .or. EMPTY(cTarget) MsgInfo("Missing ...

... para liarme con el resto. Gracias #include "FiveWin.ch" #include "hbcurl2.ch" static oWnd, oTimer, oReader, oTdif, oFTP, oInternet, nDis //----------------------------------------------------------------------------// function Main() local fm:="test" , curl, ...

... activo el Ipv4 y el Ipv6 es la unica diferencia que he encontrado. este mi proceso alguna sugerencia muy agradecidos: Function VerUpdate() local oInternet,oFtp,oWait local aFiles,cFile,mFile:={} local cServer := "ftp.servidor.com" local cUser := "user@servidor.com" local cpassword:= ...

... class, I could just be doing something wrong. Below is code from samples. The site I can connect from my browser fine. Function TestFtpDir() local oInternet := TInternet():New() local oFtp := TFtp():New( "speedtest.tele2.net", oInternet,"anonymous" ) local aFiles if !Empty( ...

// BDía, esto funciona para mi, en servidores FTP, con SFTP es otra historia. *--// Conexión con SFTP oInternet:=TInternet():New() oFTP :=TFTP():New('www.miftp.com.mx', oInternet, cUser:='Joel', cPassword:='123456', lFTPPAsivo:=.f., nPuerto:=21) if empty(oFTP:hFTP) oInternet:End() ...

My program freezes when I execute TIPClientHTTP() function.

oInternet:= TIPClientHTTP():New("http://www.google.com", .f.)

What could It be?

... }, ; { "I:\cPicker1.zip" } ) MsgRun( "Verbinde mit Internet...", "Bitte warten",; { || oInternet := TInternet():New(),; oFTP := TFTP():New( cFTPSite, oInternet, "-------", "--------" ) } ) // name and password needed ...

... "dll.ch" #include "hbcurl.ch" FUNCTION MD203() //Obtener Token Web Service LOCAL oHttp,Doc,cxmLbody,oIni,oDlg2,oSay,oError,oInternet LOCAL ts_token:="",ts_usuario:=space(50),ts_id:=space(50) LOCAL ts_clave:=space(20),ts_exit:=.f.,tw_servidor:='' LOCAL nrate:=nil ...

... Function FTPSendFiles( cFTPSite, aSource, aTarget, cUserFtp, cPassFtp ) Local lEnd := .f. Local nBufSize := 2000 Local oInternet, oFTP oInternet := TInternet():New() if Empty( oInternet:hSession ) MsgAlert( "Sin Conexión a Internet!" ) else oFTP := TFTP():New( ...

Thanks Anser, but i have a big problem, i use this to connect a ftp: oInternet := TInternet():New() oFTP := TFTP():New( "ftp.orgfree.com", oInternet, "user", "passw" ) IF Empty( oFtp:hFtp) MsgAlert("Não foi possível conectar ...

... on 192.168.2.95 and on "c:\prova" i have the file CUSTOMER.DBF I have this PRG: #include "FiveWin.ch" function Main() local oInternet := TInternet():New() local oFTP := TFTP():New( "192.168.2.95", oInternet, "usr", "psw" ) local aFiles if ! Empty( ...

... Function FTPSendFiles( cFTPSite, aSource, aTarget, cUserFtp, cPassFtp ) Local lEnd := .f. Local nBufSize := 2000 Local oInternet, oFTP MsgRun( "Conectando al Sitio FTP...", "Espere...",; { || oInternet := TInternet():New(),; If( Empty( oInternet:hSession ...

... that the FTP dll is missing, corrupted, a new incompatible version, or it is not registered in the Windows registry. Try checking the valtype of oInternet. oInternet := TInternet():New() msgInfo(valtype(oInternet)) If it is not "O" then it is a problem with the DLL. I do not know the ...