FiveTech Software tech support forums

... #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 ...

... Called from: => ABS( 0 ) Called from: .\source\winapi\WININET.PRG => WININET( 23 ) Called from: .\source\classes\INTERNET.PRG => TINTERNET:NEW( 28 ) Called from: nuevo1.prg => (b)MAIN( 6 ) Called from: .\source\function\MSGRUN.PRG => (b)MSGRUN( 47 ) Called from: .\source\classes\DIALOG.PRG ...

... the various options, and the pages Marc provided prior to making this post. Otto, your example uses what was supposed to be the simplified tInternet class with tFTP. It works for obtaining a directory. HOWEVER, that class has no UPLOAD or DOWNLOAD methods. SO ... I'm still hoping for more ...

... FtpSendFile(cFtpSite, cSource, cTarget, cUser, cPass, nBufSize) ","FtpSendFile()") Return .f. ENDIF oInternet := TInternet():New() IF Empty( oInternet:hSession ) MsgAlert( "Internet session not available!" ) ELSE oFTP := TFTP():New( cFTPSite, oInternet, ...

... .F.,lValRet:= .F. local lReturn := .F. MsgRun( "Connecting to Internet...", "Please, wait",{ || oInternet := TInternet():New()}) MsgRun( "Conectando al Servidor...", "Please, wait",{ ||oFTP := TFTP():New( cServer, oInternet,cUser,cpassword ...

... 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( oFtp:hFTP ) aFiles ...

// 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() ...

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

Otto,

I use the same. This is my definition:

Code: Select all  Expand view  RUN

DLL FUNCTION DELETEURLCACHEENTRY( cUrl AS LPSTR ) AS BOOL;
    PASCAL FROM "DeleteUrlCacheEntryA" LIB "wininet.dll"

EMG

Hello Otto


try to delete manually the aFTPs array

Code: Select all  Expand view  RUN

....
oInternet:End()

hb_ADel( oInternet:aFTPs, 1, .T. )
....

Can someone please help me. I am loosing memory with TInternet class. Please see the following program of the FW samples. I modified the code that the function is called in a loop. Please see the attached screen shot. Everytime you call the function ...

xbrowse(::aFTPs) Hello Michel, here in my case classdata aFTPs every time adds a new entry. As my program runs 24/7 I think this can’t be right. Also deleting the cache seems to me only a workaround. I think if you end the object all should be done. I do not know which side effects the change has bu...

Otto, I experienced the same problem. You need to delete the filecache first before redownloading a file. This is the way I do this : DELFILECACHE({"http://file1","http://file2",...})******************************************************************************#...

Dear Antonio, I faced a problem with TInternet. I have a program which is downloading files from the internet. But when I update a file online the program still downloads the old version. I felt that the content must be somewhere in a buffer. ...

... 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( cFTPSite, oInternet, Alltrim(cUserFtp),Alltrim(cPassFtp)) ...