[Delphi/Indy10] FTP/TSL bereikt login-fase niet...

[NaliXL]

Ik ben bezig met een TSL FTP zender, gebruik makend van Indy10 voor win32. Deze maakt netjes verbinding, dit wordt bevestigd door de logs van mijn FTP server (FileZilla Server 0.9.19):

code:

Connected, sending welcome message...

Dit gebeurt overigens in Implicit mode op poort 990.
Op dat punt blijft mijn programma echter steken, terwijl er volgens mij een authenticatie verzonden zou moeten worden. Dit lijkt niet te gebeuren. Na ongeveer een halve minuut volgt een timeout:

code:

421 Login time exceeded. Closing control connection.
disconnected

De gebruikte code is als volgt:

Delphi:

  FileList := TStringList.Create;
  FTPClient := TIdFTP.Create(NIL);
  FTPClient.TransferType := ftBinary;
  FTPClient.Passive := false;
  FTPClient.Password := 'tussenkeulen';
  FTPClient.Username := 'klant1';
  FTPClient.IOHandler := OurIOHandler;
  FTPClient.UseTLS := utUseImplicitTLS;
  FTPClient.DataPortProtection := ftpdpsPrivate;
  FTPClient.Host := 'server-adres-weggehaald';
  FTPClient.Port := 990;
  FTPClient.AUTHCmd := tAuto;

  try
    FTPClient.Connect('server-adres-weggehaald', 990); // Hier gaat het fout.
  except
    MessageBox(Handle, FTPClient.LoginMsg.Text.GetText, 'Fout 005', MB_OK );
    try
        try
            FTPClient.Disconnect;
        except
            Label_Status.Caption := 'Opnieuw verbinden...';
        end;
        FTPClient.Passive := true;
        FTPClient.Connect;
    except
        MessageBox(Handle, FTPClient.LoginMsg.Text.GetText, 'Fout 006', MB_OK );
        Label_Status.Caption := 'Kan geen verbinding maken...';
        MessageBox(Handle, PChar('Er is een fout opgetreden tijdens het maken van een verbinding. Onze excuses voor het ongemak.'), 'Fout 002', MB_OK );
        Self.ModalResult := 1;
    end;
  end;

Overigens is de MessageBox met de login-message steeds leeg.

Ook wanneer ik gebruik maak van Explicit mode gaat het fout. Wanneer ik dan inlog, zie ik keurig verschijnen dat Indy een beveiligde sessie aanvraagt, de server bevestigt dit, en verbreekt de verbinding:

code:

Connected, sending welcome message...
AUTH TLS
234 Using authentication type TLS
disconnected.

Maar aan de kant van mijn programma wordt er een exception ge-raised:

code:

EIDSocketError with message 'Socket error # 10054 connection reset by peer'

Waar ik zou verwachten dat Indy het verbreken van de verbinding verwacht en direct op poort 990 een veilige verbinding maakt...

Mijn code in Explicit mode:

Delphi:

  FTPClient := TIdFTP.Create(NIL);
  FTPClient.TransferType := ftBinary;
  FTPClient.Passive := false;
  FTPClient.Password := 'tussenkeulen';
  FTPClient.Username := 'klant1';
  FTPClient.IOHandler := OurIOHandler;
  FTPClient.UseTLS := utUseExplicitTLS;
  // FTPClient.UseTLS := utUseImplicitTLS;
  FTPClient.DataPortProtection := ftpdpsPrivate;
  FTPClient.Host := 'server-adres-weggehaald';
  FTPClient.Port := 21;
  FTPClient.AUTHCmd := tAuto;

  try
    FTPClient.Connect('server-adres-weggehaald', 21);
  except
    MessageBox(Handle, FTPClient.LoginMsg.Text.GetText, 'Fout 005', MB_OK );
    try
        try
            FTPClient.Disconnect;
        except
            Label_Status.Caption := 'Opnieuw verbinden...';
        end;
        FTPClient.Passive := true;
        FTPClient.Connect;
    except
        MessageBox(Handle, FTPClient.LoginMsg.Text.GetText, 'Fout 006', MB_OK );
        Label_Status.Caption := 'Kan geen verbinding maken...';
        MessageBox(Handle, PChar('Er is een fout opgetreden tijdens het maken van een verbinding. Onze excuses voor het ongemak.'), 'Fout 002', MB_OK );
        Self.ModalResult := 1;
    end;
  end;

Overigens heb ik zowel in Implicit als in Explicit mode geprobeerd om Connect() te vervangen door Login(). Deze lijkt echter niet veel meer te doen, en geeft bovendien een exception (access violation).

Wat doe ik hier verkeerd?

[ Voor 0% gewijzigd door NaliXL op 14-11-2006 16:36 . Reden: Volledige logs weergeven ]

[farlane]

Firewall dicht staan ?

[NaliXL]

De firewall is opengezet. Aan beide kanten de firewall helemaal uitschakelen heeft ook geen effect. Overigens gebeurt alles tot nu toe op een lokaal netwerk...

[farlane]

NaliXL schreef op woensdag 15 november 2006 @ 08:44:
De firewall is opengezet. Aan beide kanten de firewall helemaal uitschakelen heeft ook geen effect. Overigens gebeurt alles tot nu toe op een lokaal netwerk...

Mja ... mss dat je super-duper Windows Firewall roet in het eten gooit? Anyway het feit dat je client geen reactie van de server ontvangt kan naar mijn idee alleen maar aan je netwerk liggen; je mag aannemen dat de componenten iig in die fase behoorlijk getest zijn.

Wat bedoel je eigenlijk met implicit mode? Ik ken active en passive FTP ( probeer daar eens wat mee, een windows server bak staat default volgens mij op active FTP ) maar niet implicit of explicit.

[edit]
Doet ie wel normaal FTP?'
Doet ie het wel naar een lokale server?
Wat betekent die dataportprotection? ( Ik zie bv dat bij die blablaprivate jouw iohandler van een bepaald type moet zijn )
Wat doet jouw OurIOHandler callback?

[ Voor 12% gewijzigd door farlane op 15-11-2006 10:04 ]

[NaliXL]

farlane schreef op woensdag 15 november 2006 @ 09:08:
[...]


Mja ... mss dat je super-duper Windows Firewall roet in het eten gooit? Anyway het feit dat je client geen reactie van de server ontvangt kan naar mijn idee alleen maar aan je netwerk liggen; je mag aannemen dat de componenten iig in die fase behoorlijk getest zijn.

De windows firewall is de enige die er momenteel tussen zat, en zoals gezegd heb ik die al uitgeschakeld zonder resultaat.

Wat bedoel je eigenlijk met implicit mode? Ik ken active en passive FTP ( probeer daar eens wat mee, een windows server bak staat default volgens mij op active FTP ) maar niet implicit of explicit.

Implicit en explicit mode zijn manieren om te verbinden met secure FTP, zoal in de Indy documentatie prima gedocumenteerd is. Ik heb active en passive mode beide al geprobeerd, maar het gaat fout al voor het moment dat er op passive modus kan worden overgeschakeld, dus daar kan het imho. niet aan liggen. Bovendien gebruik ik niet de standaard windows FTP server, maar FileZilla server.

[NaliXL]

farlane schreef op woensdag 15 november 2006 @ 09:08:
[edit]
Doet ie wel normaal FTP?'
Doet ie het wel naar een lokale server?

Normaal onbeveiligd FTP gaat goed. De server is lokaal (op hetzelfde netwerk) en kan, zowel beveiligd met TLS als onbeveiligd, zonder problemen bereikt worden door bijvoorbeeld de FileZilla FTP cliënt.

Wat betekent die dataportprotection? ( Ik zie bv dat bij die blablaprivate jouw iohandler van een bepaald type moet zijn )
Wat doet jouw OurIOHandler callback?

DataPortProtection geeft niet meer aan dan het feit dat de verbinding beveiligd moet worden. Zie Indy documentatie.

En mijn excuses, ik heb de create van die OurIOHandler er niet bij gezet. Die staat wel in mijn programma:

Delphi:

OurIOHandler := TIdSSLIOHandlerSocketBase.Create;

En die is is gedeclareerd als een private class-member van de huidige form, als volgt:

Delphi:

var OurIOHandler : TIdSSLIOHandlerSocketBase;

Maar wat je bedoelt met de "Callback" van mijn IOHandler is me niet helemaal duidelijk . Kun je dat uitleggen?

[NaliXL]

Het probleem is opgelost.

Oplossing:
In plaats van TIdSSLIOHandlerSocketBase als IOHandler te gebruiken moet TIdSSLIOHandlerSocketOpenSSL gebruikt worden. Met de nodige DLL bestanden erbij werkt het dan.