Passive FTP through SOCKS5

Hi DragonSlayer,

My problems are:

1. How to combine these two components? Do I need other components? You said TIdSocksInfo.Connection but how to set it? There is no such property (Undeclared identifier error)

2. Should I explicitly call TIdSocksInfo.MakeSocksConnection method? When? Which host/port should I use there?

3. What about TIdFTP.ProxySetting? Should I set them also?

The following is my current code for making a connection which doesn't  work. It works if I don't use SOCKS. I've changed the following properties manually (in Object Inspector):
 TIdFTP: Host, Port, Username, Password
 TIdSocksInfo - nothing


procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  // the following if was added for SOCKS
  if CheckBox1.Checked then begin
    with IdSocksInfo1 do begin
      Host := edtSHost.Text; // here I enter the local IP of the SOCKS proxy, its port, username and password
      Port := StrToInt(edtSPort.Text);
      Username := edtSUser.Text;
      Password := edtSPass.Text;
      if cbSAuth.Text = 'No' then begin
        Authentication := saNoAuthentication;
      end else begin
        Authentication := saUsernamePassword;
      end;
      if cbSVersion.Text = 'No' then Version := svNoSocks;
      if cbSVersion.Text = 'Socks4' then Version := svSocks4;
      if cbSVersion.Text = 'Socks4A' then Version := svSocks4A;
      if cbSVersion.Text = 'Socks5' then Version := svSocks5;
      // Connection := IdFTP1; // added after your comment
      MakeSocksConnection(IdFTP1.Host, IdFTP1.Port);
    end;
  end;

  try
    if CheckBox1.Checked then begin
      IdFTP1.Passive := true;
    end else begin
      IdFTP1.Passive := false;
    end;
    IdFTP1.Connect;
    Label3.Caption := IdFTP1.RetrieveCurrentDir;
    RichEdit1.Lines.Add('->System:');
    RichEdit1.Lines.Add(IdFTP1.SystemDesc);
    RichEdit1.Lines.Add('->Login:');
    for i := 0 to IdFTP1.LoginMsg.Text.Count - 1 do begin
      RichEdit1.Lines.Add(IdFTP1.LoginMsg.Text[i]);
    end;
    RichEdit1.Lines.Add('->Greeting:');
    for i := 0 to IdFTP1.Greeting.Text.Count - 1 do begin
      RichEdit1.Lines.Add(IdFTP1.Greeting.Text[i]);
    end;
    ShowCurrentFolder(RichEdit2.Lines, '*.*');
  except
    ShowMessage('Connect failed');
  end;
end;
---
Regards, Geo

Thanks DragonSlayer,

I can connect to the FTP server, change directories up and down and disconnect. So, you've got 250 points.

However I'll increase the points to 500 (or open another thread) if you can help me making the List, Get and Put commands work also. I receive '10051 Socket error' which means 'Network unreachable' (if I'm not mistaken). I suppose that I'm missing something and if List starts going then Put and Get will work too. I must also say that I'm able to do all these things using 'Windows Commander 5.10'.

This is what I've got so far:

procedure TForm1.Button5Click(Sender: TObject); // quick connect
var i: integer;
begin
  try
    IdFTP1.Passive := true;
    // SOCKS
    IdFTP1.IOHandler := TIdIOHandlerSocket.Create(IdFTP1);
    IdFTP1.Socket.SocksInfo := TIdSocksInfo.Create(IdFTP1.Socket);
    with IdFTP1.Socket.SocksInfo do begin
      Host := edtSHost.Text;
      Port := StrToInt(edtSPort.Text);
      Authentication := saNoAuthentication;
      Username := '';
      Password := '';
      Version := svSocks5;
    end;

    IdFTP1.Connect;

    Label3.Caption := IdFTP1.RetrieveCurrentDir;
    RichEdit1.Lines.Add('->System: '+IdFTP1.SystemDesc);
    RichEdit1.Lines.Add('->Login:');
    for i := 0 to IdFTP1.LoginMsg.Text.Count - 1 do begin
      RichEdit1.Lines.Add(IdFTP1.LoginMsg.Text[i]);
    end;
    RichEdit1.Lines.Add('->Greeting:');
    for i := 0 to IdFTP1.Greeting.Text.Count - 1 do begin
      RichEdit1.Lines.Add(IdFTP1.Greeting.Text[i]);
    end;

    RichEdit2.Lines.Clear;
//    IdFTP1.List(RichEdit2.Lines, '*.*', false); // <----- error !!!
  except
    ShowMessage('Connect failed');
  end;

end;

Regards, Geo

I can't seem to get it work either :(

Seems that it needs to open another port as the data channel but that port is not tunnelled through SOCKS? Hmm...

Perhaps you would like to post it as another thread, so that other experts can give their opinions as well.

Sorry Geo... but I'll keep trying.

I'm sorry for the delay ;-)

no probs :)

any news about the LIST thingy yet?