FTP SSL File Download

[Ruewue]

Hallo zusammen,

ich habe da ein sehr spezielles Problem. Ich habe eine bestehende FTP Virbindung auf SSL umgestellt. Soweit auch kein Problem. Mit dieser Verbindung werden Files zu einem Server hochgeladen und auch welche runter geladen. Das Hochladen klappt ohne Probleme, jedoch beim Download holt er das erste File und bricht dann ab. Er führt den DELETE Befehl nicht mehr aus. Stelle ich die Verbindung wieder auf normal, also ohne SSL, dann klappt auch der Dwonload wieder. Kann mir jemand sagen, ob für SSL beim Download noch gesonnderte Einstellungen zu machen sind?

Delphi-Quellcode:

    
//--- Jetzt die SSL/TLS Setings --------------------------------------------------------------------------
    FIdSSLHandler.Port                           := 990;
    FIdSSLHandler.PassThrough                  := false;      // SSL würde übergangen werden bei True
    FIdSSLHandler.ReadTimeout                  := -1;
    FIdFTPClient.IOHandler                     := FIdSSLHandler;
    FIdFTPClient.UseTLS                           := utUseImplicitTLS;
    FIdFTPCLient.AUTHCmd                        := tAuto;
    FIdFTPClient.DataPortProtection         := ftpdpsPrivate;

    //--- nun connecten --------------------------------------------------------------------------------------
    FIdFTPClient.Connect;

Delphi-Quellcode:

      slList := TStringList.Create;

      slList.Clear;
      FIdFTPClient.List(slList, '*.csv', false);
      for nCount := 0 to slList.Count - 1 do begin
        FIdFTPClient.Get(slList[nCount], gsPathIn + slLIst[nCount], false);
        FIdFTPClient.Delete(slList[nCount]);
        SendInfo('Die Datei ' +  slList[nCount] + ' wurde runtergeladen und gelöscht!');
      end;

Danke schon mal im Voraus!

(Meine erste SSL Verbindung)

[Ruewue]

Hallo,

ich habe das Problem selbst gelöst. Habe die OPTIONS Einstellungen ins Programm übernommen und schon gehts.

Delphi-Quellcode:

    FIdSSLHandler.SSLOptions.CertFile         := 'Certificate.crt';
    FIdSSLHandler.SSLOptions.Method            := sslvSSLv23;
    FIdSSLHandler.SSLOptions.Mode               := sslmClient;
    FIdSSLHandler.SSLOptions.VerifyDepth   := 2;
    FIdSSLHandler.SSLOptions.VerifyMode   := [];

Sind halt Anfängerfehler. Die Einstellungen hatte ich auch im TIdSSLIOHandlerSocketOpenSSL vorgenommen, doch scheins ohne Wirkung.

DANKE an Alle die sich den Kopf noch zerbrechen!