![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#6
|
|||
|
|||
|
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... |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Leer archivo Binario de una vez | NEG1414 | C++ Builder | 2 | 01-02-2010 00:12:17 |
| Binario en string | 3NK1 | Varios | 4 | 16-04-2009 01:10:31 |
| Leer un Archivo Binario | voldemmor | Varios | 2 | 30-03-2009 18:19:25 |
| Registro con valor BINARIO !!! | Ledian_Fdez | Varios | 1 | 07-06-2007 00:25:58 |
| conversión caracter-binario | fabiof2000 | Varios | 5 | 17-08-2005 06:24:00 |
|