Pular para o conteúdo principal

Descobrir tipo do Arquivo (Delphi)

Segue um exemplo de como verificar o tipo de um determinado arquivo, digita-se o nome do arquivo juntamente com o caminho no Edit1, e ao clicar no botão o Edit2 recebe o tipo do arquivo:

Function TipoArquivo(const p_File: String): String;
var
v_Inf: TSHFileInfo;

begin
IF SHGetFileInfo(PChar(p_File),0,v_Inf,Sizeof(v_Inf),SHGFI_TYPENAME) <> 0 THEN
Result := StrPas(v_Inf.szTypeName)
ELSE
BEGIN
Result := ExtractFileExt(p_File);
Delete(Result,1,1);
Result := Result +' File';
END;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := TipoArquivo(Edit1.Text);
end;

Baixe o exemplo aqui.
Marcadores:

Comentários

  1. Eduardo FP2 de junho de 2009 às 22:54

    v_Inf: TSHFileInfo;

    Não funciona. ¬¬'

    ResponderExcluir
  2. Eduardo3 de junho de 2009 às 13:52

    Olá Eduardo, basta você declarar a unit ShellAPI... abraços...

    ResponderExcluir
  3. Eduardo FP3 de junho de 2009 às 14:47

    Valeu ! \o/

    ResponderExcluir
  4. Eduardo FP3 de junho de 2009 às 15:40

    Tem como identificar o tamanho do arquivo ou da pasta com esses tipos de código ?

    ResponderExcluir
  5. Eduardo4 de junho de 2009 às 13:22

    Opa, dê uma olhada nesse artigo:

    http://programero.blogspot.com/2009/06/verificar-tamanho-de-arquivo-delphi.html

    ResponderExcluir
  6. Eduardo FP4 de junho de 2009 às 13:49

    Valeu \o/[2]

    ResponderExcluir
  7. Carlos Antonio Lopes Piubello24 de maio de 2010 às 15:16

    Olá.

    Esse exemplo é quase o que estou precisando.
    Na verdade preciso identificar que tipo de arquivo ele é, independente da extensão informada.

    ResponderExcluir
  8. Anônimo24 de janeiro de 2013 às 21:01

    Desculpem mas essa dica é não foi boa.
    Voce não ta dizendo tipo do arquivo.
    Voce só ta dando um copy loco e pegando a extensão do mesmo.

    O windows tem uma classificação generica, que aparece na tela de propriedades. Aquilo sim é tipo... pega e mostra...

    Mostrem ai!!! :)

    ResponderExcluir
  9. Anônimo24 de janeiro de 2013 às 21:05

    Retiro o que eu disse... :)

    ResponderExcluir
  10. Eduardo Teixeira29 de janeiro de 2013 às 14:45

    Sem problemas Anônimo ...

    ResponderExcluir

Postar um comentário

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

Mais visitadas

Array no PL/SQL (Oracle)

Trabalhar com estruturas indexadas pode nos poupar muito trabalho, deixar o código mais limpo e reutilizável, pois bem vamos dar um exemplo de como fazer isso no PL/SQL. Criaremos um tipo table que seja capaz de armazenar nomes de uma tabela de funcionários de forma indexada, e em seguida mostraremos o que foi armazenado, segue o código: 1: declare 2: -- tipo tabela contendo apenas texto e indexado 3: type TipoNomFunc is table of varchar 2(200) index by binary_integer; 4: -- variável do nosso tipo (como nosso tipo é indexado ele funcionará como um array) 5: func TipoNomFunc; 6: -- indice para loop 7: indice number := 1; 8: -- 9: begin 10: -- 11: -- cursor para nossa tabela de funcionarios 12: for emps in ( 13: select * 14: from funcionarios 15: ) 16: loop 17: -- colocamos o nome do funcionario em nosso "vetor" 18: func(indice) := emps.nom_funcionario; 19: -- incrementamos o indice 20:...
2 comentários
Leia mais

Criando uma Aplicação CRUD com Flask, PostgreSQL e Docker

Criando uma Aplicação CRUD com Flask, PostgreSQL e Docker Neste guia, vamos criar uma aplicação básica que acessa um banco de dados PostgreSQL e realiza operações CRUD (Create, Read, Update, Delete). Vamos usar Flask e executar tudo com Docker. Sem estilos ou extras, apenas o essencial. Estrutura do Projeto crud-app/ |-- app/ | |-- app.py | |-- templates/ | | |-- index.html | | |-- edit.html |-- Dockerfile |-- requirements.txt |-- docker-compose.yml Passo 1: Dependências Crie um arquivo requirements.txt com as seguintes linhas: Flask==2.2.2 Flask-SQLAlchemy==3.0.2 psycopg2-binary==2.9.3 Werkzeug==2.2.2 Passo 2: Aplicação Flask Arquivo app/app.py : from flask import Flask, render_template, request, redirect, url_for from flask_sqlalchemy import SQLAlchemy app = Flask(__name__) # Configuração do banco de dados app.config['SQLALCHEMY_DATABASE_URI'] = 'postgresql://user:password@db:5432/crud_db' app.config['SQLALCHEMY_TRACK_MODIFICATIONS'] = False db...
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