Siga-nos em...
Follow us on Twitter Follow us on Facebook Watch us on YouTube
Registro

Alpha Servers
Resultados 1 a 6 de 6

Tópico: Ajuda com FTP

  1. #1

    Avatar de YaHiKo
    Data de Ingresso
    Sep 2011
    Localização
    Mundo Perdido
    Posts
    59
    Agradecido
    9
    Agradeceu
    6
    Peso da Avaliação
    0

    Smile Ajuda com FTP

    Pessoal queria ver com vcs se alguem pode mim dar um help aqui, e o seguinte tenho uma aplicação em delphi e queria que ela verificasse se uma determinada pasta exite no servidor ftp.

    Desde já agradeço!

  2. #2


    Avatar de dcvitoria
    Data de Ingresso
    Aug 2009
    Localização
    Maringá, PR
    Idade
    43
    Posts
    452
    Agradecido
    43
    Agradeceu
    25
    Peso da Avaliação
    20

    Padrão

    Use a paleta indy para isso.

  3. #3



    Avatar de Prøjë¢T
    Data de Ingresso
    Jul 2010
    Localização
    Sao Jose do Rio Preto
    Posts
    1.134
    Agradecido
    105
    Agradeceu
    40
    Peso da Avaliação
    31

    Padrão

    Dependendo do tipo de aplicação e conexao que voce esta querendo estabelecer tera que fazer um upgrade do componente indy para -> indy10 senao me falha a memoria, pois o indy do delphi 7 esta um pouco defasado para alguma certas operações, ou voce pode tentar fazer
    tudo via API, assim evitando problemas com versoes diferentes de Delphi!

    Exemplo API: Fonte DevMedia.

    Código PHP:

    var 
      
    hConnectionhOpenhFindPInteger
      
    hDataTWIN32FINDDATA
    begin 
      hOpen 
    := InternetOpen (''INTERNET_OPEN_TYPE_PRECONFIGnilnil0); 
      
    hConnection := InternetConnect (hOpen'ftp.seusite.com.br'INTERNET_DEFAULT_FTP_PORT
        
    'seulogin''suasenha'INTERNET_SERVICE_FTPINTERNET_FLAG_PASSIVE0); 
      
    FtpSetCurrentDirectory (hConnection'pasta_a_ser_verificada'); 
      
    hFind := FtpFindFirstFile (hConnection'arquivo.exe'hData00); 

      if 
    hFind nil then 
        Caption 
    := 'Arquivo não foi encontrado.' 
      
    else 
        
    Caption := 'O Arquivo foi encontrado.'

      
    InternetCloseHandle (hConnection); 
      
    InternetCloseHandle (hOpen); 
    end
    Última edição por Prøjë¢T; 24-04-2012 às 12:54 AM.

  4. #4

    Avatar de YaHiKo
    Data de Ingresso
    Sep 2011
    Localização
    Mundo Perdido
    Posts
    59
    Agradecido
    9
    Agradeceu
    6
    Peso da Avaliação
    0

    Padrão

    dcvitoria, já fiz a conexão e tals

    Prøjë¢T vlw pela dica mais esse seria para verificar se um arquivo existe tem como fazer para verificar se a pasta existe?

  5. #5



    Avatar de Prøjë¢T
    Data de Ingresso
    Jul 2010
    Localização
    Sao Jose do Rio Preto
    Posts
    1.134
    Agradecido
    105
    Agradeceu
    40
    Peso da Avaliação
    31

    Padrão

    da mesma forma como voce verifica um arquivo na seguinte linha:
    hFind := FtpFindFirstFile

    Voce verifica pegando pelo diretorio

    hFind := FtpSetCurrentDirectory (hConnection, 'pasta_a_ser_verificada');

    so trocar.

  6. #6

    Avatar de YaHiKo
    Data de Ingresso
    Sep 2011
    Localização
    Mundo Perdido
    Posts
    59
    Agradecido
    9
    Agradeceu
    6
    Peso da Avaliação
    0

    Padrão

    Vlw erra isso mesmo que eu procurava

    Resolvido
    Pode Fechar

 

 

Informações de Tópico

Usuários Navegando neste Tópico

Há 1 usuários navegando neste tópico. (0 registrados e 1 visitantes)

Tópicos Similares

  1. |Suporte| Ajuda
    Por diegojj no fórum Dúvidas
    Respostas: 0
    Último Post: 06-02-2015, 09:54 PM
  2. |Suporte| ~ Ajuda
    Por ViperJr no fórum Dúvidas
    Respostas: 0
    Último Post: 20-01-2015, 05:41 PM
  3. |Suporte| Ajuda - DLL
    Por C. Henrique no fórum Dúvidas|Pedidos
    Respostas: 0
    Último Post: 26-09-2013, 10:39 PM
  4. |Dúvida| Ajuda C++
    Por bkpkbmu no fórum C++
    Respostas: 1
    Último Post: 28-07-2012, 03:45 AM

Marcadores

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  •