Indy IDFTP List Time out

[Peter60]

Hallo, ich habe seit neusten ein Problem mit der Indy idTFP Komponente.

Den folgenden Source setze ich seit Jahren ein, nun bekomme jetzt ein Time Out Fehler bei LIST.

Delphi-Quellcode:

procedure TForm6.btn1Click(Sender: TObject);
  var AFiles: TStringList;
      i1: Integer;
begin
  idftp1.Username := 'blabla';
  idftp1.Host     := 'blabla';
  idftp1.Password := 'blabla';
  idftp1.Port     := 21;
  idftp1.Connect;
  if idftp1.Connected then
  begin
    AFiles := TStringList.Create;
    idftp1.List(AFiles,'*',True); <------------ Hier kommt der Time Out Fehler
    if idftp1.DirectoryListing.Count <> 0 then
    begin
      i1:= 0;
      while not i1 = idftp1.DirectoryListing.Count do
      begin
        mylistbox.Items.Add(idftp1.DirectoryListing.Items[i1].Data);
        i1:=i1+1;
      end;
    end;
  end
  else begin
    MessageDlg('Nicht verbunden!', mtError, [mbOK], 0);
  end;
end;

Vielleicht kann mir jemand weiterhelfen!
Der Fehler tritt unter Win7 und meinen Strato Account auf. Wobei mit Filezilla alles funktioniert.

[alleinherrscher]

Hast du mal versucht, das Timeout etwas größer zu wählen? Vielleicht schafft der FTP Server das Auflisten nicht in der eingestellten Timeout-Zeit.

Gruß, Michael

[Peter60]

Ja, ich bis auf 45 Sekunden hochgegangen hat aber nichts gebracht!