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