Não sei se vai sair em negrito a linha com erro...mas é essa daki.
IdFTP1.List(lista,arq_servidor,true);
qdo passa por essa linha da erro: List index of bounds(0).
--- Em delphi-br@yahoogrupos.com.br, "Ricardo Mendes" <[EMAIL PROTECTED]>
escreveu
>
> Galera, estou terminando um servidor de ftp e estou com um problema
em tempo de execução..
> O codigo que está dando o problema é na linha em negrito: List
index of bounds(0);
>
> Até a linha com problema...o software faz a conexão com o servidor
de ftp normalmente...mas qdo eu passo a lista do arquivo para saber
se existe alguma nova versão ele dá o erro..
>
> if IdFTP1.Connected= true then
> begin
> Label2.Caption:='Servidor Conectado';
> lista:=TStringList.Create;
> IdFTP1.List(lista,arq_servidor,true);
> Label2.Caption:='verificação de versão de software....';
> data_web:=FormatDateTime('dd/mm/yyyy
HH:mm',IdFTP1.DirectoryListing.Items[0].ModifiedDate);
> data_local:=FormatDateTime('dd/mm/yyyy
HH:mm',FileDateToDateTime(FileAge(path_local)));
> FreeAndNil(Lista);
> if StrToDateTime(data_web) > StrToDateTime(data_local) then
> begin
> ....
>
>
> Fico no aguardo da ajuda...
>
> Vlw..
>
>
> Ricardo Mendes
> Departamento de Informática
> E-mail: [EMAIL PROTECTED]
> Site: www.totalsat.com.br
> Tel. (41) 2109-7717
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
