Ver Mensaje Individual
  #6  
Antiguo 22-11-2010
marcos.ramos marcos.ramos is offline
Registrado
NULL
 
Registrado: nov 2010
Posts: 3
Reputación: 0
marcos.ramos Va por buen camino
Ok, detalles.

Bien, me disculpo, es que no me he explicado bien, un centro científico ha guardado sus datos por años en ficheros binarios, un fichero cada día....son 30 años...a eso me refiero con una BD en ficheros, no, no es nada orientado a un servidor de ficheros como access o sqlite...no, se trata simplemente de un monton de ficheros todos con la misma estructura(12 veces(matriz de 12 X 4, record, arreglo de records))

Este es el code delphi que escribe en el fichero cada una hora:

function Save_Data(dat_path: string): boolean;
var
F: file;
begin
try
AssignFile(F, dat_path);
Rewrite(F, 1);
BlockWrite(F, measur, SizeOf(measur)); //12X4 byte
BlockWrite(F, fix, SizeOf(fix)); // record
BlockWrite(F, dat_a, SizeOf(dat_a)); //arreglo de records
CloseFile(F);
except
on EInOutError do
begin
case IOResult of
2: MessageDlg('El fichero de correcciones de datos no existe.', mtError, [mbOk], 0);
3: MessageDlg('No se encuentra el directorio del fichero de datos.', mtError, [mbOk], 0);
5: MessageDlg('Acceso denegado para abrir el fichero de datos.', mtError, [mbOk], 0);
32: MessageDlg('Error al abrir el fichero de datos.', mtError, [mbOk], 0);
end;
result := FALSE;
end;
end;
result := TRUE;
end;


Tengo que leer esos ficheros con php, y pasarlos a una BD en MySQL...
Responder Con Cita