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 classdata adds a new TFtp.
Thanks in advance
Otto
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 classdata adds a new TFtp.
Thanks in advance
Otto
function Main()
local I:= 0
for I:= 1 to 50
testftp()
msgWait("ok"+ str(I))
next
msginfo("Ende")
return nil
function testftp
local oInternet := TInternet():New()
local oFTP := TFTP():New( "ftp.microsoft.com", oInternet ) // Microsoft FTP
local aFiles
xbrowse( oInternet:aFTPs)
if ! Empty( oFTP:hFTP )
aFiles = oFTP:Directory( "*.*" )
// AEval( aFiles, { | aFile | MsgInfo( aFile[ 1 ], aFile[ 3 ] ) } )
else
MsgAlert( "oFTP:hFTP is null" )
endif
oInternet:End()
//MsgInfo( "Done!" )
return nil
//----------------------------------------------------------------------------//