FTP -Verificar se existe um arquivo em uma determinada pasta

Question

Como verificar se um determinado arquivo esta em uma devida pasta de FTP, usando o delphi 7.

Ricardo

[color=red:563b0d1b44]T�tulo alterado pelo Moderador oTTo. Removido: �FTP�.[/color:563b0d1b44]

Tatuweb · Answer

Se tratando de FTP eu prefiro fazer tudo via API. Assim evita problemas com vers�es diferentes do Delphi. Para verificar se existe um arquivo em um servidor FTP basta implementar o c�digo abaixo. Modifique o c�digo de acordo com seu servidor.

var
  hConnection, hOpen, hFind: PInteger;
  hData: TWIN32FINDDATA;
begin
  hOpen := InternetOpen (��, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  hConnection := InternetConnect (hOpen, �ftp.seusite.com.br�, INTERNET_DEFAULT_FTP_PORT,
    �seulogin�, �suasenha�, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);
  FtpSetCurrentDirectory (hConnection, �pasta_a_ser_verificada�);
  hFind := FtpFindFirstFile (hConnection, �arquivo.exe�, hData, 0, 0);

  if hFind = nil then
    Caption := �Arquivo n�o foi encontrado.�
  else
    Caption := �O Arquivo foi encontrado.�;

  InternetCloseHandle (hConnection);
  InternetCloseHandle (hOpen);
end;

Tatuweb · Answer

Esqueci de informar. Voc� deve adicionar a unit Wininet na se��o uses do form. :wink:...

Zlink · Answer

Tentei em farios ftps e alterando com v�rias pastas e arquivos, n�o obtive sucess.
Tem alguma forma de saber se tivemos acesso a determinado ftp ou pasta, algum retorno, exemplo:

label1.caption := ftp que est� logado ou a pasta atual no ftp

Cordialmente

Ricardo

Zlink · Answer

Caro AmigoRefiz os testes com mais calma, e deu certo, muito obrigado pela rotina, se tiver mais algumas como:a) listar os aquivos da pastab) ...Ficarei muito agradecido.AtenciosamenteJos� Ricardo...

Zlink · Answer

c) listar as pastas e subpastasd) editar um arquivo txt ou baixar para a m�quina local para edita-loObrigado...

Flaviosan · Answer

Desculpe me meter, mas acho uma boa ideia testar a data do arquivo pra ver se ele � mais novo que um arquivo que j� se possui, tipo como o liveupdate do virusscan e do norton.
Espero ter ajudado.

Zlink · Answer

Fica mais uma d�vidaComo trocar as variaveis(pastas por edits)Exemplo:  hConnection := InternetConnect (hOpen, �meuftp.com.br�, INTERNET_DEFAULT_FTP_PORT,  hConnection := InternetConnect (hOpen, [b:68ecf2eacf]Edit1.text[/b:68ecf2eacf], INTERNET_DEFAULT_FTP_PORT,    ��, ��, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, 0);  FtpSetCurrentDirectory (hConnection, �/pasta/subpasta/�);  FtpSetCurrentDirectory (hConnection, [b:68ecf2eacf]edit2.text[/b:68ecf2eacf]);...

Tatuweb · Answer

[quote:9c8c5bc626=�infoagenda�]Como trocar as variaveis (pastas por edits) [/quote:9c8c5bc626]Fa�a do jeito que est� fazendo mas antes coloque um PChar. Isso vai resolver o problema:[b:9c8c5bc626]PChar (Edit1.Text)[/b:9c8c5bc626][b:9c8c5bc626]Outros comandos:[/b:9c8c5bc626][b:9c8c5bc626]Fazer download [/b:9c8c5bc626]FtpGetFile (hConnection, �arquivo.exe�, �c:pasta_onde_vou_guardararquivo.exe�, False, 0, 0, 0);[b:9c8c5bc626]Fazer Upload [/b:9c8c5bc626]FtpPutFile (hConnection, �C:arquivo.exe�, �arquivo.exe�, 0, 0);[b:9c8c5bc626]Deletar arquivo no servidor [/b:9c8c5bc626]FtpDeleteFile (hConnection, �arquivo.exe�);[b:9c8c5bc626]Renomear um arquivo no servidor[/b:9c8c5bc626]FtpRenameFile (hConnection, �arquivo.exe�, �file.exe�);[b:9c8c5bc626]Remover um diret�rio no servidor[/b:9c8c5bc626]FtpRemoveDirectory (hConnection, �nome_do_diretorio�);As tres primeiras e as duas ultimas linhas da rotina passada no outro post permanecem iguais. O resto � s� adaptar. As rotinas acima s�o apenas uma alternativa ao uso dos componentes Indy e FastNet para evitar problemas com vers�es diferentes do Delphi. Use PChar antes das strings. Eu esqueci de colocar.Mais sobre fun��es FTP em (conte�do ingl�s)://www.swissdelphicenter.ch/torry/showcode.php?id=1095//www.cryer.co.uk/brian/delphi/wininet.htm :wink:...

Zlink · Answer

Caro amigoFuncionou beleza, estou precisando agora s� de saber como pegar a lista de pastas e de arquivos de um ftp.AtenciosamenteJos� Ricardo...

Tatuweb · Answer

Baixe um exemplo completo nesse site://users.servicios.retecal.es/sapivi/src/D5_WinInetFTP.zip...

Guima · Answer

FtpPutFile (hConnection, PChar(Origem), PChar(SR.Name), 0, 0); TatuWeb fiz a sua rotina pra v c a foto estah na net, caso naun esteja envia, isso funciona legal, porem ela naun sobe - qdo vou no site ela naun estah lah - uso o D5 - alguem pode me ajudar urgente ??

Sem mais e obrigado

Guima

Antunes Rodrigo · Answer

Caso seja de interesse de mais algu�m. Estava precisando disso. //www.cryer.co.uk/brian/delphi/wininet/example_findfirstnextfile.htm...