Please help me FTP I can connect but....

Discussion in 'Questions (Windows Mobile)' started by vinians, Aug 29, 2007.

  1. vinians

    vinians Member Licensed User

    Im creating an application and all is ok but FTP.... Im connect, setting current directory but when I list this is not working. Im showing a message to debug and I got only a empty string from a lot of files on FTP server. The code follows:

    Code:
    Sub btnSincronizarAgora_Click
       
    'ErrorLabel(ErroConexao)
         'Mensagem = "instanciando objeto"
       dfmSincronizacao_MostraMensagem("Instanciando...")
       
    ftp.New1
       WaitCursor(
    True)
       dfmSincronizacao_MostraMensagem(
    "Conectando ao servidor...")
        
    ftp.Open(FTP_HOST, FTP_USUARIO, FTP_SENHA)
       dfmSincronizacao_MostraMensagem(
    "Conectado.")
       WaitCursor(
    False)
       
    if (ftp.IsFTPConnected = Truethen
          dfmSincronizacao_MostraMensagem(
    "<<< Sincronizando >>>")
          lblConexaoServidorOK.Text = 
    "OK"
          dfmSincronizacao_MostraMensagem(
    "Selecionado Pasta...")
          
    if FTP_DIRETORIO <> "" then 
             
    ftp.SetCurrentDirectory(FTP_DIRETORIO)
          
    end if
          dfmSincronizacao_MostraMensagem(
    "Listando...")
          WaitCursor(
    true)
          FTP_ARQUIVOS() = 
    ftp.GetEntries("*.*"false)
          WaitCursor(
    False)
          dfmSincronizacao_MostraMensagem(
    "Listagem OK")
          
    for i = 0 to ArrayLen(FTP_ARQUIVOS()) -1 step 3
             sFileName = FTP_ARQUIVOS(i)
             sData      = FTP_ARQUIVOS(i+
    1)
             sSize       = FTP_ARQUIVOS(i+
    2)
               erro(sFileName)
          
    next
          
    ftp.Close    
       
    end if
    End Sub
    Thanks in advance friends
     
  2. dzt

    dzt Active Member Licensed User

    Your code is working fine for me (desktop test only).
    Did you check your ftp server with DOS ftp?
     
  3. vinians

    vinians Member Licensed User

    Yes friend exactly the problema was with the ftp server. Sorry about this silly question and thx for trying to help
     
Loading...