FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Cargar array of char de un archivo binario
Tengo que mostrar los datos de un archivo binario, del cual conozco su estructura, en un memo.
Todo funciona bien hasta que tengo que mostrar un dato de tipo array of char de 34 bytes, en ese momento en el memo se carga una linea vacía. Utilizo este código: ---------Declaracion del tipo------------- Type Tpgmf = record //Header block fileprint:smallint; version:smallint; count:integer; //Info Block Blockfingerprint:smallint; BlockVersion:smallint; RecordCount:integer; RecordSize:integer; //General info block Checksum:Longword; CourseName:string[34]; <----Uso esta para el char de 34bytes .... var Form1: TForm; archivo:file of Tpgmf; ... -------lectura del archivo y escritura en el memo------ procedure TForm1.Button1Click(Sender: TObject); begin if opendialog1.execute then begin assignfile(archivo,opendialog1.filename); filemode:=FMOpenRead; Reset(archivo); Read(archivo, pgmf); Memo1.lines.add('fileprint:'+inttostr(pgmf.fileprint)); Memo1.lines.add('Version:'+inttostr(pgmf.version)); Memo1.lines.add('Count:'+inttostr(pgmf.count)); Memo1.lines.add('Blockfingerprint:'+inttostr(pgmf.Blockfingerprint)); Memo1.lines.add('BlockVersion:'+inttostr(pgmf.BlockVersion)); Memo1.lines.add('RecordCount:'+inttostr(pgmf.RecordCount)); Memo1.lines.add('RecordSize:'+inttostr((pgmf.RecordSize))); Memo1.lines.add('CheckSum:'+currtostr(pgmf.CheckSum)); Memo1.lines.add('CourseName:'+pgmf.CourseName); <--- Esta me pone la linea vacía ... ¿Que estoy haciendo mal?¿Cual es la forma correcta de hacerlo? Gracias |
#2
|
|||
|
|||
Solucion y otro problema
Conseguí mostrar el array of char (eran unicode) mediante array of widechar y todo funciona bien, pero no sé por que motivo el texto se muestra bien en el memo, pero el dato que viene detrás, un integer, ya no.
Esta es la estructura del archivo a leer: Field Offset bytes) Size (bytes) .NET Type FileFingerprint 0 2 Int16 FileVersion 2 2 Int16 BlockCount 4 4 Int32 BlockFingerprint 0 2 Int16 BlockVersion 2 2 Int16 RecordCount 4 4 Int32 RecordSize 8 4 Int32 CheckSum 0 4 UInt32 CourseName 4 34 char[34]Unicode WattSlopePulse 38 4 Int32<--------Este es el que se muestra incorrecto Este es el código que uso ahora para definir los tipos type Tpgmf = record fileprint:smallint; version:smallint; count:integer; Blockfingerprint:smallint; BlockVersion:smallint; RecordCount:integer; RecordSize:integer; Checksum:Longword; CourseName:array [0..17] of widechar; WattsSlopePulse:integer; ............ ................. archivo:file of Tpgmf; ............................................... Y este el codigo para leer del archivo y mostrar en el memo: var CN:string;i:integer; begin if opendialog1.execute then begin assignfile(archivo,opendialog1.filename); filemode:=FMOpenRead; Reset(archivo); Read(archivo, pgmf); For i:=0 to length(pgmf.coursename)-1 do begin Cn:=cn+ pgmf.Coursename[i]; end; Memo1.lines.add('fileprint:'+inttostr(pgmf.fileprint)); Memo1.lines.add('Version:'+inttostr(pgmf.version)); Memo1.lines.add('Count:'+inttostr(pgmf.count)); Memo1.lines.add('Blockfingerprint:'+inttostr(pgmf.Blockfingerprint)); Memo1.lines.add('BlockVersion:'+inttostr(pgmf.BlockVersion)); Memo1.lines.add('RecordCount:'+inttostr(pgmf.RecordCount)); Memo1.lines.add('RecordSize:'+inttostr((pgmf.RecordSize))); Memo1.lines.add('CheckSum:'+currtostr(pgmf.CheckSum)); Memo1.lines.add('CourseName:'+cn); Memo1.lines.add('WatSlopePulse:'+inttostr((pgmf.WattsSlopePulse)));<---Este muestra el valor incorrecto. ¿Que puedo estar haciendo mal ahora? ¿Por favor, alguien puede echarme un cable? Gracias |
#3
|
||||
|
||||
Bueno, cuando utilizabas array of char, le dabas un tamaño de 34 bytes, pero ahora, con Unicode, le están dando un tamaño de 36 bytes. ¿Puede ser debido a eso? Yo lo comprobaría, la matriz WideChar tendría que tener un elemento menos [0..16] ó [1..17]
Saludos . |
#4
|
|||
|
|||
Gracias por la respuesta
Lo he probado y sigue pasando lo mismo.... y el caso es que si trato el archivo como si no conociera su formato y me desplazo hasta el offset siguiente al final del array of char con seek y leo los 4 bytes del integer siguiente, lo lee sin problemas y lo añade al memo... Cada vez estoy mas confuso... |
#5
|
|||
|
|||
Ya sé cual es el problema, solucionarlo NO
He descubierto que si declaro el tipo como array of char no acabo en el offset que empieza el integer; por eso así no lo mostraba bien, y con seek(archivo,offset) si. El integer empieza en el offset 58.
Empiezo en el offset 24, y debería acabar en el 57. Si lo declaro como array[1..33] of char acabo en el offset 56, y si lo declaro array[1..34] of char, acabo en el 60. ¿Que tamaño o tipo tendría que darle para que ocupe exactamente los 34 bytes qye tiene asignados para ese texto Unicode? |
#6
|
||||
|
||||
¿?
En un principio [1..34]of char ó [1..17]of widechar tendrían que colocarte en el 57. Es realmente extraño. Se me ocurre que, para salir del paso, podrías leer el fichero como secuencia de SmallInts o Word (Int16), ya que: - para los datos Int16 ya lo tienes. - para hallar los Int32, tendrías que pasar dos Int16 a hexadecimal, juntarlos, y calcular el Int32. - cada carácter Unicode equivale a un Int16. Es una idea, pero tu código debería funcionar. ¿Sería mucho pedir un archivo de ejemplo para que pudiéramos hacer pruebas? Con un ejemplo de lo que se debería obtener de él, claro. Saludos. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Cargar archivo y guardarlo en tabla | Carliviris | Varios | 4 | 30-09-2006 00:39:43 |
cargar archivo este si | gulder | API de Windows | 12 | 04-05-2005 06:26:21 |
cargar un archivo sys en builder | israelgs | C++ Builder | 0 | 08-10-2004 21:25:32 |
Cargar Archivo | srangel | JAVA | 0 | 03-09-2004 21:19:15 |
Cargar archivo chm | esocrates | Varios | 1 | 27-07-2003 09:58:02 |
|