Jump to content

Yuppski

Members
  • Content Count

    1
  • Joined

  • Last visited

Community Reputation

0 Neutral
  1. Hi All I have a test app that uses the Indy components. I'm replicating this test app using the Internet Component Suite, TSslFtpClient. One of the features using the Indy components is to get a complete list of the Host Directories/Files:- procedure TfrmMain.GetFolderInventory; var DirList : TStringList; begin {$REGION 'Connected?'} if (myFTP.Connected) then begin try try lbConnection_Information.Caption := 'Going to root...'; myFTP.ChangeDir('/'); lbConnection_Information.Caption := 'At root, getting DirList...'; DirList := TStringList.Create; myFTP.List(DirList, '', True); lbConnection_Status.Caption := ''; lbConnection_Information.Caption := IntToStr(DirList.Count) + ' files and folders found'; mDirectories.Lines.Assign(DirList); except on e:Exception do begin lbConnection_Information.Caption := 'Unable to show contents'; lbConnection_Status.Caption := e.Message; end; end; finally FreeAndNil(DirList); end; end else lbConnection_Status.Caption := 'You are not connected...'; {$ENDREGION 'Connected?'} end; How can I replicate this using the TSslFtpClient? Also what do the options:- SslFtpClient1.Passive := True; SslFtpClient1.Binary := True; do? Thanks
×