idFTP.list bei glftpd (ftpserver) +ssl ->Read Timeout

[gandime]

Hi,
ein freund von mir hat einen glftpd Ftp-Server +ssl. Das connecten läuft super kann auch was runterladen usw aber ich kann die ordner einfach nicht auflisten lassen!
Ich habe folgenden code:

Delphi-Quellcode:

procedure TForm1.SSLconnect;
//var
//  FIdFTPClient: TIdFTP;
//  FIdSSLHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  try
    FIdFTPClient.Host:=ed_ip.text;
    FIdFTPClient.Port:=strtointdef(ed_port.text,21);
    FIdFTPClient.Username:=ed_user.text;
    FIdFTPClient.Password:=ed_pw.text;
    if cb_ssl.Checked then
    begin
      FIdFTPClient.IOHandler:=FIdSSLHandler;
      FIdSSLHandler.SSLOptions.CertFile:='Z:\Delphi\ftp ssl\ssl.cer';
      FIdSSLHandler.SSLOptions.Method:=sslvSSLv23;
      FIdSSLHandler.SSLOptions.Mode:=sslmClient;
      FIdSSLHandler.SSLOptions.VerifyMode := [sslvrfPeer]; 
      FIdSSLHandler.PassThrough := False; 
      FIdSSLHandler.OnVerifyPeer := MeinSSLZertifikatChecker;
      FIdSSLHandler.Destination:=FIdFTPClient.Host;
      FIdSSLHandler.host:=FIdFTPClient.Host;
      FIdFTPClient.IOHandler := FIdSSLHandler;
      FIdFTPClient.UseTLS := utUseExplicitTLS;
      FIdFTPClient.AUTHCmd := tAuto;
      FIdFTPClient.DataPortProtection:=ftpdpsPrivate;
      FIdFTPClient.UseTLS:=utUseImplicitTLS;
      FIDFTPClient.ReadTimeout:=15000;
      FIDFTPClient.Passive:=true;
      FIdFTPClient.DataPortProtection:=ftpdpsPrivate;
      FIdFTPClient.UseTLS:=utUseExplicitTLS;
    end
    else
    begin
      FIdFTPClient.UseTLS := utNoTLSSupport;
      FIdFTPClient.DataPortProtection := ftpdpsClear;
    end;
    FIdFTPClient.Connect;
  finally
  end;
end;

procedure TForm1.list;
begin
  FTP.List(slList,'',false);// Hier is der Fehler
//usw.
end;

Fehler:

Zitat:

Erste Gelegenheit für Exception bei $76CBF35F. Exception-Klasse EIdReadTimeout mit Meldung 'Read Timeout'. Prozess Project1.exe (3748)

was mache ich falsch?


mfg

gandime