13 replies to this topic

[enecumene]

Hola compañeros, ¿algunos de ustedes saben cómo leer un archivo .DAT?, porque cuando lo abro con wordpad o notepad, sólo me aparecen algunos cuadritos, ¿existe algún manejador de ese tipo de datos?.

Saludos.

[eduarcol]

esos son archivos binarios, y al menos que conozcas su estructura no creo que puedas hacer mucho.

[enecumene]

esos son archivos binarios, y al menos que conozcas su estructura no creo que puedas hacer mucho.

Bueno, esos datos los saco desde un Lector Dactilar de control de asistencias, y éste es el archivo que deja la cual anexo, a ver si alguien me da un empujoncito.

Saludos.

Attached Files

•  275_.zip   1.38KB   26 downloads

[Rolphy Reyes]

Saludos.

Lo abrí con Notepad y Excel y sale sin formato.

No lo he probado pero prueba en Delphi con un TStringList a ver si sale algo.

Sigue comentando los avances.

[enecumene]

No es mala idea usar un TStingList, pero el asunto sería, ¿cuál es el delimitador en este caso?, pues no se ve a simple vista.

Saludos.

[cadetill]

Hola

¿Y no te sería más sencillo preguntar al fabricante? Si es un archivo binario, deducir cómo está formado puede llegarte a costar bastante (en tiempo sobretodo)

Espero te sirva

Nos leemos

[Rolphy Reyes]

Saludos.

Enecumene encontre este articulo mira a ver si te sirve.

[seoane]

Pues yo lo único que saco en claro es que hay un tal Ramón metido en el asunto 

Por lo demás el archivo esta plagado de ceros, es decir del carácter #0, así que un TStringList no te lo va a leer bien. Es evidente que los datos están guardados de forma binaria, y para saber como esta guardada la información tienes que saber con precisión que datos se guardan y así poder deducir que es cada cosa. Pero aun así es una tarea complicada.

[cHackAll]

delphi

type
 TStruct = record
  wIndex: Word;
  bFlag: Byte;
  cbValue: array [0..7] of Char;
  cbName: array [0..27] of Char;
  bValue: Boolean;
  qwAlwaysZero: Int64;
  Value: array [0..23] of Char;
 end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 hFile, Size, Count, Index, Value, Hours: Cardinal;
 Item: array of TStruct;
begin
 hFile := _lopen('user.dat', OF_READ);
 Size := GetFileSize(hFile, nil);
 Count := Size div SizeOf(TStruct);
 SetLength(Item, Count);
 _lread(hFile, Item, Size);
 
 ListBox1.Clear;
 Caption := Item[0].cbName;
 for Index := 0 to Count - 1 do
  begin
   Value := StrToInt(Item[Index].Value);
   Hours := Value div 3600;
   Value := Value mod 3600;
   ListBox1.AddItem(IntToStr(Item[Index].wIndex) + '(' + Item[Index].Value + ') - ' + IntToStr(Hours) + ':' + IntToStr(Value div 60) + ':' + IntToStr(Value mod 60), nil);
  end;
end;

La anterior es una estructura "creada" por mi, pero notarás que es bastante congruente. La forma en que proceso "Value" se me ocurrio al ver el rango de dicho valor (puede ser el tiempo de retraso), aunque eso solo lo podras notar tu.

Salud

[enecumene]

Gracias Chackall, me ha funcionado de pelos , eres un genio.

Saludos.

[egostar]

Hola

Estuve mirando el código y la estructura que creaste Little Bro y no necesito decirte que me impresiona, solo tengo una duda, como identificaste el wIndex porque me imagino que ese es el que nos servirá para determinar el tamaño del "registro", y de esa forma saber que son 72 bytes por cada registro.

Salud OS

[eduarcol]

creo haberle entendido por lo poco que hable con el que tiene lectores binarios y hexadecimales que le permitieron definir el registro.  De todas formas cuando entre de nuevo nos explicara mejor

[cHackAll]

Lo primero fue abrir el archivo con un visor/editor que me muestre el contenido en forma ASCII/binaria/exadecimal, en los casos mas sencillos se puede notar a simple vista que se forman “lineas imaginarias” con el contenido del archivo, lo que nos sugiere que dicho archivo contiene registros de dimensión fija.



Como en casi todos los formatos de archivo, inferí que “RAMON” pertenecía a parte del cabezal del archivo el cual siendo también una estructura, no debiese tener el mismo formato que el resto de las “estructuras” del archivo, entonces analice posibles registros con formato parecido, entonces note que había alguna alineación de 4 u 8 Bytes.;



Asc;0:0;0;0;0;Dec;0;0;0;0;0;0;0;0;0;0;0;Asc;0:0;0;0;0;Dec;0;0;0;0;0;0;0;0;0;0;0;Asc;…

Hasta el final del archivo se puede ver la misma secuencia, del cual el mínimo común es de 18 DWORDs (72 Bytes); una prueba de modulo con el tamaño del archivo confirma la suposición y formula una nueva duda acerca del supuesto cabezal o formato de los primeros registros. Esto sumado a un vistazo a la cola del archivo suponemos (y probamos) la nueva estructura;

Dec;0;0;0;0;0;0;0;0;0;0;0;Asc



De aquí en adelante la estructura final la hice con la ayuda del depurador de Delphi procurando siempre usar el máximo de tamaño en los tipos de datos de la estructura para que se vea mas “limpia”.

Salud

[Caral]

Hola
Solo decir lo que ya he dicho muchas veces, genial amigo.
Saludos
PD: Como me gusta cuando explicas lo inentendible.