Ajuda com FTP

[YaHiKo]

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!

[dcvitoria]

Use a paleta indy para isso.

[Prøjë¢T]

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.

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; 

[YaHiKo]

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?

[Prøjë¢T]

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.

[YaHiKo]

Vlw erra isso mesmo que eu procurava

Resolvido
Pode Fechar