Pular para o conteúdo principal

Verificar tamanho de arquivo (Delphi)

Para essa pequena dica construiremos um formulário contendo dois Edits e um botão, o primeiro Edit recebe o caminho e nome do arquivo, o segundo receberá o tamanho em bytes.
Segue a cadificação do evento click do botão:
procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  I: integer;
begin
  I := FindFirst(Edit1.Text, faArchive, SR);
  try
    if I = 0 then
      Edit2.Text := IntToStr( SR.Size )
    else
      Edit2.Text := '-1';
  finally
    FindClose(SR);
  end;
end;
Baixe o exemplo completo aqui.
Marcadores:

Comentários

  1. Eduardo FP4 de junho de 2009 às 14:02

    Qual é pasta, aparece -1...

    Tem como saber o tamanho da Pasta ?

    ResponderExcluir
  2. Eduardo4 de junho de 2009 às 20:58

    Olá Eduardo, se o valor -1 foi retornado é porque o arquivo não foi encontrado (essa dica é para pegar o tamanho dos arquivos), em meu último post mostro como listar arquivos em diretórios, no exemplo aproveitando sua dúvida coloquei a opção para verificar o tamanho de cada arquivo listado, somando esses valores temos o tamanho total da pasta, abraços...

    http://programero.blogspot.com/2009/06/listar-arquivos-existentes-em-diretorio.html

    ResponderExcluir
  3. Eliane Jany Barbanti7 de junho de 2009 às 12:42

    Olá Eduardo, agradeço sua visita e por ter se tornado meu seguidor.
    Parabéns pelo seu blog é muito produtivo.
    abraços.
    Eliane

    ResponderExcluir
  4. Anônimo9 de novembro de 2009 às 12:18

    O tamanho fornecido está em Kb?

    ResponderExcluir
  5. Eduardo9 de novembro de 2009 às 13:44

    Isso amigo anônimo, em kb, e obrigado pelo comentário...

    ResponderExcluir
  6. Unknown24 de outubro de 2010 às 15:48

    como seria este codigo se eu fosse
    Extrair o tamanho de um arquivo, só que este arquivo estando na internet.

    tipo eu informo um a url do arquivo ele retorna o tamanho.

    ResponderExcluir
  7. Anônimo26 de junho de 2012 às 11:41

    Eduardo o resultado esta sendo fornecido em bytes e não em Kb

    ResponderExcluir

Postar um comentário

Obrigado por Participar do programero, fique a vontade para agradecer, retificar, perguntar ou sugerir.

Mais visitadas

Aplicação Flask usando Nginx e Gunicorn

Aplicação Flask usando Nginx e Gunicorn Se você já desenvolveu uma aplicação Flask básica, sabe que o servidor de desenvolvimento embutido não é ideal para produção. Ele não é projetado para lidar com altos volumes de tráfego ou conexões simultâneas. Para tornar sua aplicação Flask mais robusta e pronta para produção, podemos usar o Gunicorn como servidor de aplicação e o Nginx como proxy reverso. Neste artigo, vamos adaptar o exemplo anterior ( Criando uma Aplicação CRUD com Flask, PostgreSQL e Docker ) para incluir o Nginx e o Gunicorn. O que são Nginx e Gunicorn? Gunicorn O Gunicorn (Green Unicorn) é um servidor de aplicação WSGI que roda aplicações Python como o Flask. Ele é eficiente e simples de configurar, lidando com múltiplas requisições ao mesmo tempo, algo que o servidor embutido do Flask não faz bem. Nginx O Nginx é um servidor web que atua como um proxy reverso. Ele recebe requisições HTTP e as encaminha ao Gunicorn. Além disso, o Nginx pode: Servir arquivos ...
Postar um comentário
Leia mais

Listar arquivos existentes em diretório (Delphi)

Mostraremos uma maneira simples e prática para listar o conteúdo de um diretório com a opção de incluir nessa listagem os arquivos de seus subdiretórios. No exemplo abaixo temos um Edit para receber o diretório a ser pesquisado um CheckBox para indicar se os subdiretórios entrarão na pesquisa um botão para efetuar a pesquisa e um Memo para listar os arquivos encontrados, no final um Edit que receberá o cálculo final (em bytes) da soma do tamanho dos arquivos. procedure TForm1.Button1Click(Sender: TObject); begin   tamanhoTotal := 0;   memLista.Lines.Clear;   ListarArquivos(edtDiretorio.Text, chkSub.Checked);   Edit1.Text := IntToStr( tamanhoTotal ); end; procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean); var   F: TSearchRec;   Ret: Integer;   TempNome: string; begin   Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F);   try     while Ret = 0 do ...
10 comentários
Leia mais

Centralizar Texto em Edit

Como todos sabemos o Edit mantém todo texto digitado a esquerda, o que não fica bem quando o usamos para a entrada de números, pois bem, o exemplo abaixo apresenta uma alternativa para centralizar um determinado valor dentro de um Edit: procedure EditChange(Sender: TObject); var vl_label : TLabel; //variável do tipo Label begin vl_label := TLabel.Create(self); //criamos um label WITH vl_label DO BEGIN Font.Name := TEdit(sender).Font.Name; //pegamos a fonte usada no edit Caption := TEdit(sender).Text; //pegamos o conteúdo do edit SendMessage(TEdit(sender).Handle, EM_SETMARGINS, EC_LEFTMARGIN, (TEdit(sender).Width-vl_label.Width) div 2); //centraliza no label e retorna para o edit END ; vl_label.Free; end ;
3 comentários
Leia mais