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!
Versão Imprimível
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!
Use a paleta indy para isso.
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! :awesome:
Exemplo API: Fonte DevMedia.
Código PHP:
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;
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?
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.
Vlw erra isso mesmo que eu procurava
Resolvido
Pode Fechar