como saber que tipo de fichero es

[cl2raul]

Hola a todos:
estoy haciendo un programa, donde necesito determinar que tipo de archivo es el seleccionado...
sere mas especifico, tenemos un archivo de imagen, puede ser bmp, gif, jpg, png, etc. Este archivo, es myimagen.png, cullo contenido es una foto de mi hermano, pero el, le cambio la extension y desde que descubrio esto, esconde sus archivos de esta forma, y tengo que estar probando cada programa para saber cual me habre correctamente el archivo...
alguien tiene algun metodo o funcion para saber que tipo de fichero es...

[[escafandra]]

El mismo Paint abre el archivo aunque su extensión esté cambiada...

Saludos.

[Neftali [Germán.Estévez]]

Supongo que debe haber una cabecera estandard para cada tipo de fichero (N bytes al inicio que sean coincidentes para todos los ficheros de un tipo).
Deberías investigar esos ficheros para los diferentes tipos e intentar identificarlos.

[bucanero]

Hola a todos,

yo utilizo las siguiente función para determinar el tipo imagen para las extensiones mas conocidas,

Código Delphi [-]
interface
...
   function  GetImageFormat(const AFileName: String; OmitirExtension:Boolean=true): String; overload;
   function  GetImageFormat(Stream: TStream; var fileType:String):boolean; overload;
...
implementation
...
function GetImageFormat(const AFileName: String; OmitirExtension:Boolean=true): String;
///  Si el parametro omitirExtension esta a true, solamente devuelve una extensión
///  cuando las cabezeras del fichero son realmente reconocidas
var
  ext: string;
  FileStream: TFileStream;
begin
  ext := lowerCase(extractFileExt(AFileName));
  try
    FileStream := TFileStream.Create(AFileName, fmOpenRead);
    try
      if not GetImageFormat(FileStream, result) and
       not omitirExtension then
           // si no se reconoce el fichero por su primeros caractes, se devuelve la propia extensión del fichero
           Result:=ext;
    finally
      FileStream.free;
    end;
  except
  end;
end;

function GetImageFormat(Stream: TStream; var fileType:string):Boolean;
var
  FirstBytes: AnsiString;
begin
  result:=False;
  fileType := '';
  if (Stream <> nil) and (Stream.Size > 40) then
  try
    SetLength(FirstBytes, 8);
    Stream.Read(FirstBytes[1], 8);
    if (Copy(FirstBytes, 1, 2) = 'BM') then
      fileType := '.bmp'
    else if (FirstBytes = #137'PNG'#13#10#26#10) then
      fileType := '.png'
    else if (Copy(FirstBytes, 1, 3) = 'GIF') then
      fileType := '.gif'
    else if  (Copy(FirstBytes, 1, 2) = #$FF#$D8) then
      fileType := '.jpg'
    else if (Copy(FirstBytes, 1, 3) = #$49#$49#$2A) then
      fileType := '.tif'
    else if (Copy(FirstBytes, 1, 3) = #$0#$0#$01) then
      fileType := '.ico';
  finally
    result:=(fileType<>'');
  end;
end;
...
end.

Para el resto de extensiones simplemente hay que buscar las cabezeras que utilizan y añadirlas a la lista

Un saludo

[mamcx]

En algunos *nix se puede correr:

file --mime FILE

Esto esta basado en libmagic. Lo he usado en python:

https://stackoverflow.com/questions/...python#2753385


---

Ahora, dile a tu hermano que deje de esconder sus fetiches de esa manera...

[roman]

Empezado por mamcx

Ahora, dile a tu hermano que deje de esconder sus fetiches de esa manera...

O que deje de ver las fotos de su hermano

LineComment Saludos

[jhonny]

Bueno, no sé si he llegado tarde... en fin, para saber el MimeType de un archivo, también puedes usar las Indy:

Código Delphi [-]
Uses IdGlobalProtocols;

function GetMIMEType(sFile: TFileName): string;
var
  aMIMEMap: TIdMIMETable;
begin
  aMIMEMap := TIdMIMETable.Create(true);
  try
    result := aMIMEMap.GetFileMIMEType(sFile);
  finally
    aMIMEMap.Free;
  end;
end;

Y usarla así:

Código Delphi [-]
  
if OpenDialog1.Execute() then
    ShowMessage(GetMIMEType('C:\RutaArchivo.ext'));

Sacado de http://stackoverflow.com/questions/2...rver-with-indy

[cl2raul]

jhonny, gracias por tu aporte todo es bien recibido, lo probare y vere si funciona, sin que el archivo tengan las extenciones....

gracias bucanero, tu codigo es de 10, solo tengo algunas duditas:
yo modifique tu codigo para saber el encabezado de cada uno de los ficheros y resulta q tengo dudas, ¿como sabes tu, que el .jpg es Copy(FirstBytes, 1, 2) y no Copy(FirstBytes, 1, 3)?...
como puedes diferenciar .jpg de .jpe y .jpeg que al final me dan el mismo encabezado...
tambien me resulto que el encabezado de .wma y .wmv son los mismo. claro esta q al reproducirlos se determina q tipo de contenidos trae...

esta charranada de mi hermano me motivo a investigar un poquito mas por lo que tome varios archivos de audio, video, imagen, comprimidos y ejecutables y muestro los encabezados de cada uno al cargarlos en la app y me surguio una pregunta... puedo yo cambiar el encabezado de los archivos, ya sea modificandolos o agregandole y que estos no se corrompan o sea que no pierda la info y se reproduzca, visualice o ejecute.

gracias tambien a mamcx, yo propongo crear una dll (entre los interesados en el clubdelphi) donde recojan gran parte de las extenciones mas usada y clasificarlas usando el codigo de bucanero a no ser que ya exista y alguien quiera dar luz... no me he motivado a terminar nigun tutorial de python, si se pudiera convertir esa lib en dll seria genial, pero creo que si nos unimos tendremos una, para la comunidad.

gracias a todos.

[mamcx]

Esa DLL ya existe. Se llama libmagic. Y ademas esta la opcion de jhonny, que deberias probar.

---

Mas concretamente:

¿como sabes tu, que el .jpg es Copy(FirstBytes, 1, 2) y no Copy(FirstBytes, 1, 3)?

Eso se sabe viendo las especificaciones de cada formato. Lo cual es una tarea larga (y ya hecha).

[cl2raul]

GRACIAS A TODOS,
si mamcx, ya vi la opcion de jhonny y muestro los resultados, pero no me facilitan las cosas... creo q por ahora sigo tomando la opcion de bucanero, que pese a q es mas larga, tiene alto rendimiento y mas comoda para mi, el problema esta en las cabeceras que hay cabeceras que los ficheros son distintos tipos, por ejemplo una dll y un exe; inclusibe hay distintas cabeceras entre dll (q rollo)...

mas seguire tu consejo de la libreria (libmagic) y buscare todas las llamadas que se le puedan hacer y probare, si tienes un link que muestre todas las llamadas a la libreria seria genial. O me vere reinbentando la rueda....

[cl2raul]

bueno, por fin puedo modificar las cabeseras de los archivos??? y estos siguen siendo los mismos...

[ecfisa]

Hola.

Empezado por cl2raul

....
¿como sabes tu, que el .jpg es Copy(FirstBytes, 1, 2) y no Copy(FirstBytes, 1, 3)?...
como puedes diferenciar .jpg de .jpe y .jpeg que al final me dan el mismo encabezado
...

Podes consultar aquí: File Signature Database

Empezado por cl2raul

bueno, por fin puedo modificar las cabeseras de los archivos??? y estos siguen siendo los mismos...

¿ Es una pregunta o nos comentas que diste con la solución ?

Saludos

[cl2raul]

Empezado por ecfisa

¿ Es una pregunta o nos comentas que diste con la solución ?

es pregunta, gracias por comentar

[mamcx]

Si modificas las cabeceras estarás corrompiendo el archivo.

[ecfisa]

Hola.

Si interpreto bién tu consulta, la respuesta es si. Aunque modifiques el file signature, el resto del contenido del archivo seguirá siendo el mismo.

Por si te pudiera ser útil, aquí encontré otra lista de file signatures.


Saludos

[[escafandra]]

Si tratas de esconder un archivo gráfico cambiando su cabecera, ten por seguro que ningún programa lo reconocerá como válido. Restaurando la cabecera, todo volverá a funcionar.


Saludos.