dotNETportal.cz

Dobrý den, používám tento kód ke stahování souborů z několika stejných zařízení. Problém, který řeším je ten, že z některých to stáhnu a z některých ne. Pokud se na ně připojím přes totalcomander, tak to stáhnu bez problému, ale z VB ne. Hodí to chybu: Vzdálený server vrátil chybu: 227 Entering Passive Mode (217,64,2,239,13,87).

Jelikož se tam přes totalcomander dostanu, předpokládám, že je chyba v kódu? Poradíte někdo, kde mám hledat chybu? Může to být v nastavení providera? Port 21 mají povolen. Děkuji.

 Private Sub stahuj(ByVal DenSt As String)

        CestaHD = "c:\\Data\" & ip & "\" & DenSt & "\"
        FileName = "int" & DenSt & ".txt"
        
        Dim uri As String = "ftp://jmeno:heslo@" & ip & "/data/" & DenSt & "/"

        Dim myStringWebResource As String = Nothing
        Dim myWebClient As New WebClient()
        
            myStringWebResource = uri + FileName

            Try
                myWebClient.DownloadFile(myStringWebResource, CestaHD + FileName)

            Catch ex As WebException
                MessageBox.Show("Chyba při stahování: " & ex.Message, Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try

        Next

    End Sub

Používáte "pasivní přenos" musíte použít "akticní přenos", to jsou termíny z FTP.

Příklad najdete na:

http://www.freevbcode.com/ShowCode.Asp?I...

děkuji za reakci, bohužel tím to nebude, v Total Commanderu mi to stahuje s nastavením v pasivním i aktivním přenosu. Ten příklad je poměrně rozsáhlý, budu se tím asi muset prokousat...

Proč používáte k přenosu pomocí FTP věci, které k tomu vůbec nejsou určeny a ne System.Net.FtpWebRequest? To se pak nelze divit, že to nefunguje.

Se System.Net.FtpWebRequest se přenos choval stejně. Problém jsem vyřešil, přidal jsem jeden řádek a povolil firewall. Vše funguje. Děkuji.

ftp.UsePassive = False

Problém byl zřejmě ve firewallu a absenci veřejné IP adresy již od začátku. V aktivním režimu FTP totiž datové spojení navazuje server směrem na klienta.