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

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

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