New topic: FTPKiit
<http://forums.realsoftware.com/viewtopic.php?t=29377> Page 1 of 1 [ 1 post ] Previous topic | Next topic Author Message ivanomonti Post subject: FTPKiitPosted: Tue Aug 04, 2009 5:06 am Joined: Mon Nov 03, 2008 6:36 am Posts: 5 Good morning everyone, I'm developing a module for managing FTP documents to a central server. We chose FTPKit, but we have a problem send + commands simultaneously using the Queue Examples if TextField_file_path.Text <> "" and TextField_file_name.Text <> "" then dim Queue as new FTPQueue // new session if f= nil then f = SelectFolder end if if f <> Nil then TextField_ftp(5).Text = f.AbsolutePath end if ho = TextField_ftp(0).Text // hosting us = TextField_ftp(1).Text // user ps = TextField_ftp(2).Text // password re = TextField_ftp(3).Text // path remote po = TextField_ftp(4).Text // port lo = TextField_ftp(5).Text // path local theSocket.Encoding = Encodings.UTF8 theSocket.Login ho, po.Val, us, ps if theSocket.IsConnected = false then theSocket.Connect self.Title = "Connect Ok" end if // new folder Queue.CreateDirectory TextField_server_path.Text // new File dim s1, s2 as string s1 = TextField_file_path.Text + TextField_file_name.Text if TextField_server_path.Text <> "/" then s2 = TextField_server_path.Text + "/" + TextField_file_name.Text else s2 = TextField_file_name.Text end if TextArea_result.Text = s1 + EndOfLine + s2 Queue.UploadFile s1,s2 // lettura root Queue.ListFiles re,true // end code theSocket.Perform Queue else MsgBox "Select a file" TextField_file_path.BackColor = &cFFECD0 end if but this will not bring you anything, if send a command at a time, everything works ????? any suggestions. Top Display posts from previous: All posts1 day7 days2 weeks1 month3 months6 months1 year Sort by AuthorPost timeSubject AscendingDescending Page 1 of 1 [ 1 post ] -- Over 1500 classes with 29000 functions in one REALbasic plug-in collection. The Monkeybread Software Realbasic Plugin v9.3. http://www.monkeybreadsoftware.de/realbasic/plugins.shtml [email protected]
