Pegar tamanho do arquivo

Question

Estou fazendo uma ferramenta para realizar download de arquivos via ftp, gostaria de saber se tem como eu pegar o tamanho do arquivo em tempo real, estou usando dessa forma:[code:1:a73b5165f3]procedur...

Paullsoftware · Answer

Eu apenas copiei uma parte do meu atualizador, mais para retornar o tamanho de um arquivo antes de efetuar o download do mesmo, basta usar uma Variavel tipo LongWord por exemplo e usar o comando Size(ArquivoRemoto)...

    with IdFTPAtualiza do
    begin
      Host := �ftp.sitedaempresa.com.br�;
//      Port := 21;
      Username := �nomeusuario�;
      Password := �senhausuario�;
      Passive  := False;
      if not Connected then
       Connect;
      if Connected then
       begin
//         desabilito os eventos OnWork
         OnWork      := nil;
         OnWorkBegin := nil;
         ChangeDir(APastaRemota);
//        Retorno o tamanho do arquivo
         kTamanho := Size(AArqDown) div 1024;
         (* Tamanho_Arquivo, usado para barra de progresso *)
         Tamanho_Arquivo := Size(AArqDown);
         lblTamanho.Caption := �Tamanho da Aproximado: � + FormatFloat(�0.00 Kb�,kTamanho);
         lblTamanho.Font.Color := clBlue;
         lblTamanho.Font.Style := [fsBold];
         lblTamanho.Refresh;
         lblTamanho.Update;
         ANewVersao.Position := 0;
         Get(AVersaoRemota, ANewVersao, True);

espero ter ajudado :wink:

Ajudou sim, fiz dessa forma, q no meu caso est� bom

 procedure TDownloadFTP.OnFTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  frmProgresso.PosicaoAtual := frmProgresso.PosicaoAtual + AWorkCount;
end;

Tenho mais uma d�vida, n�o sei se vc sabe como fazer, em minha ferramenta o usu�rio pode parar o download e reiniciar, para parar eu fiz Ftp.Abort e para reiniciar eu n�o sei oq fazer, tem ideia?

Luiz_aquino · Answer

[quote:453914af54=�paullsoftware�]Eu apenas copiei uma parte do meu atualizador, mais para retornar o tamanho de um arquivo antes de efetuar o download do mesmo, basta usar uma Variavel tipo LongWord por exemplo e usar o comando Size(ArquivoRemoto)...[code:1:453914af54]    with IdFTPAtualiza do    begin      Host := �ftp.sitedaempresa.com.br�;//      Port := 21;      Username := �nomeusuario�;      Password := �senhausuario�;      Passive  := False;      if not Connected then       Connect;      if Connected then       begin//         desabilito os eventos OnWork         OnWork      := nil;         OnWorkBegin := nil;         ChangeDir(APastaRemota);//        Retorno o tamanho do arquivo         kTamanho := Size(AArqDown) div 1024;         (* Tamanho_Arquivo, usado para barra de progresso *)         Tamanho_Arquivo := Size(AArqDown);         lblTamanho.Caption := �Tamanho da Aproximado: � + FormatFloat(�0.00 Kb�,kTamanho);         lblTamanho.Font.Color := clBlue;         lblTamanho.Font.Style := &#91;fsBold&93;;         lblTamanho.Refresh;         lblTamanho.Update;         ANewVersao.Position := 0;         Get(AVersaoRemota, ANewVersao, True);[/code:1:453914af54]espero ter ajudado :wink:[/quote:453914af54]Ajudou sim, fiz dessa forma, q no meu caso est� bom[code:1:453914af54] procedure TDownloadFTP.OnFTPWork(Sender: TObject; AWorkMode: TWorkMode;  const AWorkCount: Integer);begin  frmProgresso.PosicaoAtual := frmProgresso.PosicaoAtual + AWorkCount;end;[/code:1:453914af54]Tenh...

Paullsoftware · Answer

quanto a retornar de onde parou isso depende do servidor de onde est� sendo baixado o arquivo, da uma olhada nesse t�pico que tem as informa��es que voc� pocura blz!
http://forum.devmedia.com.br/viewtopic.php?t=93169

:wink:

F�rum Pegar tamanho do arquivo #354869