Probleme mit Socksproxy (Indy 10)

[DelTurbo]

Hi,

irgendwie gelingt es mir nicht ein LIST zu machen. Das ganze teil bleibt mit Sanduhr stehen. Lasse ich die zuweisung des proxys weg, klappt es.

Was hab ich denn da vergessen????? Wär super wenn mir einer helfen könnte. Sitze schon 2 Stunden dran *jammer*

Was auch komig ist, "klicke ich es mir zusammen" dann geht es. Also FTP, OpenSSL, Socks auf die form ziehen und direkt die werte eintragen. Das klappt.

Vielen dank im voraus

Delphi-Quellcode:

procedure InitFTPObject(var Ftp:TIdFTP;var SSl:TIdSSLIOHandlerSocketOpenSSL);
begin
    Ftp.IOHandler:=SSl;
    Ftp.UseTLS:=utUseRequireTLS;
    Ftp.TransferType:=ftBinary;
    Ftp.DataPortProtection:=ftpdpsPrivate;
    Ftp.AUTHCmd:=tAuthSSL;
    Ftp.AutoLogin:=False;
    Ftp.Passive:=True;
    Ftp.PassiveUseControlHost:=True;
    SSL.SSLOptions.Method:=sslvTLSv1;
      SSL.SSLOptions.Mode:=sslmUnassigned;
    Ftp.ReadTimeout:=15*60000;
      Ftp.Tag:=0;
end; {InitFTPObject(Source:TIdFTP;SSl:)}

procedure TForm1.Button1Click(Sender: TObject);
var
   Source                  :TidFTP;
   SourceSSl               :TIdSSLIOHandlerSocketOpenSSL;
   SourceProxy            :TIdSocksInfo;
  l                 :TStringList;
begin
  Source:=TIdFTP.Create;
  SourceSSl:=TIdSSLIOHandlerSocketOpenSSL.Create;
  InitFTPObject(Source,SourceSSl);

  Source.Username:='test1';
  Source.Password:='123456';
  Source.Port:=50902;
  Source.Host:='192.168.0.123';
   SourceSSL.Host:='192.168.0.123';
  SourceSSL.Destination:='192.168.0.123:50902';
  SourceSSL.Port:=50902;
   SourceProxy:=TIdSocksInfo.Create;
  SourceProxy.Host:='192.168.0.101';
  SourceProxy.Port:=59123;
  SourceProxy.UserName:='proxyuser';
  SourceProxy.Password:='123456';
  SourceProxy.Version:=svSocks5;
  SourceProxy.Authentication:=saUsernamePassword;
  SourceSSL.TransparentProxy:=SourceProxy;

  Source.Connect;
  Source.Login;
  l:=TStringList.Create;
  Source.List(l,'',True);
  WriteLn(l.text);
  l.Free;
  Source.Disconnect(True);

end;