Desempaquetar campos numéricos comprimidos de archivo

[[newtron]]

Hola a tod@s.

Necesito leer un fichero creado con btrieve para pasarlo a mi aplicación. Con la instrucción BUTIL saco los registros a un fichero de texto pero me encuentro con que los campos numéricos están empaquetados. Para los que conozcan el BASIC quiero recordar que se empaquetaban/desempaquetaban con la instrucción cvi/cvs mki/mks.

¿Hay alguna manera desde Delphi de poder leer y desempaquetar estos campos o me tendré que preparar un programita en BASIC (horror porque no me acuerdo de nada)?

Dejo aquí un archivo de muestra por si a alguien le hace chiste y le echa un vistazo.

Gracias y un saludo

[Casimiro Notevi]

En torrys hay algunos componentes para acceder desde delphi a bases de datos btrieve/pervasive, a ver si te sirve.
También he encontrado esto, es libre.

[[newtron]]

Gracias, le echaré un vistazo y te cuento.

[[newtron]]

Parece que estos programas lo que hacen es algo similar al BUTIL que viene con las BTRIEVE que es generar un fichero de texto a partir del fichero original pero no me resuelve el problema de los números empaquetados.

Seguiremos buscando la forma.

[Casimiro Notevi]

"Números empaquetados", ¿te refieres a big endian y little endian?

unsigned long blockLength  = *blockLengthPtr++ << 24;
blockLength |= *blockLengthPtr++ << 16;
blockLength |= *blockLengthPtr++ << 8;
blockLength |= *blockLengthPtr;

unsigned long dataLength  = *dataLengthPtr++ << 24;
dataLength |= *dataLengthPtr++ << 16;
dataLength |= *dataLengthPtr++ << 8;
dataLength |= *dataLengthPtr;

[Casimiro Notevi]

Mira esta página, creo que ahí tienes la solución

Y aquí un ejemplo sencillo, que en teoría funciona;

Código Delphi [-]
function SwapEndian(Value: integer): integer; register; overload;
asm
  bswap eax
end;

function SwapEndian(Value: smallint): smallint; register; overload;
asm
  xchg  al, ah
end;