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.