FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Codigo Hexadecimal
hola.. bueno queria saber a ver si alguien me puede ayudar, necesito saber como hacer para exportar el codigo hexadecimal de un archivo a un archivo .txt, yo lo que hago es abrir el archivo con editores hexadecimales y copiar todo a un .txt, se copia sin espacios y sin nada, y todo a la primera linea.. necesito hacer eso pero automatizado solamente tocando un button.
desde ya muchas gracias |
#2
|
||||
|
||||
Pregunto
Si te estoy entendiendo bien >¿ lo que deseas es hacer una copia de tu archivo hexadecimal pero con la extension TXT? o ¿hay que hacer alguna conversion respectiva?
Explicate un poco mejor... Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
|
#3
|
|||
|
|||
Diría que deseas abrir un archivo binario y representarlo en un archivo de texto plano.
Si es así te cuento cómo lo haría yo: ·Abriría el archivo binario. ·Leería de 4 bytes en 4 bytes guardándolo en variables de tipo longWord. · Usaría la función intToHex para que me devuelva un string con los caracteres hexadecimales del longWord leído. ·Guardaría esa string en el archivo. ·Seguiría para todos los bytes. Ya que estas tratando de 4 bytes en 4 bytes y guardando en un txt, puedes darle el formato que quieras. Cada 4 bytes introduces un espacio y te resuelves el problema de "se copia sin espacios" , cada 32 bytes introducir un salto de línea y te resuelves el problema de "aparece todo en la primera línea", etc.... He incluso si quieres ya hacértelo genial, pues antes de hacer el salto de línea, muestras los valores en caracteres, de la misma forma que hacen los editores hexadecimales. Espero te sirva. Un saludo, LoPiTaL |
#4
|
|||
|
|||
osea segun lo que me dijiste hago esto
procedure TForm1.Button1Click(Sender: TObject); var s: byte; begin if od.Execute then begin AssignFile (arc, od.FileName); reset(arc); while not EOF(arc) do begin read(arc, s); str[0]:= str[0]+ inttohex(s); end; str.SaveToFile('cualquiercosa.txt'); end; end; s no es un longword porq cuando lo quiero leer no me deja, entonces lo pongo en byte, ahora... esta parte: -str[0]:= str[0]+ inttohex(s);- me dice -[DCC Error] Unit1.pas(39): E2250 There is no overloaded version of 'IntToHex' that can be called with these arguments- :/ Última edición por kdemia fecha: 28-05-2010 a las 01:58:46. |
#5
|
|||
|
|||
A ver, yo usaría streams para leer de un archivo binario, ya que te hace transparente todo el jaleo de abrir y cerrar el archivo, así como un TStringList para guardar las líneas, ya que tb te permite llamar a SaveToFile ahorrándote tener que abrir y cerrar el archivo destino. Te quedaría más o menos así:
Acabo de escribirlo de cabeza, no sé si dará algún error más, pero vamos, creo que el concepto que quería transmitir queda bastante claro. Espero haberte ayudado, Un saludo, LoPiTaL Última edición por LoPiTaL fecha: 28-05-2010 a las 09:48:02. |
#6
|
|||
|
|||
Primero que nada, muchas gracias por tu tiempo LoPiTaL.
El único error que sale es q dice que no esta declarado el 'Count' de LStream.Count.. desp hay un par de errores de sintaxis como por ejemplo le falta el do begin al while |
#7
|
|||
|
|||
Cierto, no es Count es LStream.Size, jeje se me pasó!
Espero que te haya servido. Un saludo, LoPiTaL |
#8
|
|||
|
|||
me salta el siguiente error: EReadError 'Stream Read Error', puse q guarde igual el archivo en finally y al principio del archivo se guarda el EOF ..
|
#9
|
|||
|
|||
Diría que eso es porque te pasas del tamaño del archivo al leerlo de 4 en 4 bytes (el tamaño del archivo no es múltiplo de 4, por lo que en la últia lectura falla). Lee en lugar de 4 en 4, de 1 en 1 y así no fallará.
Un saludo, LoPiTaL |
#10
|
|||
|
|||
perfecto funciono perfectamente... muchas gracias LoPiTal te lo agradezco. sos un groso
|
#11
|
|||
|
|||
amigos, intente esto, pero la verdad no va siempre da read error. y lo cambie a 1, pero nada;
intente este metodo, pues lo que quiero es leer el archivo en hexadecimal y luego modificar un cadena de ese archivo. |
#12
|
||||
|
||||
Hola elmago00.
Acabo de probar el código de LoPiTaL y funciona perfectamente, sólo faltaba un begín del while (omisiones que suelen pasar cuando publicamos algún código). La prueba:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#13
|
|||
|
|||
gracias ecfisa, por ayudarme, funciona bien pero mi intecion es que el archivo se vea asi.
esto.jpg no se si en la imagen se ve bien, pero necesito la dirección seguido del hexadecimal. pues lo que necesito es ubicar una dirección del hexaceimal y modificara. sera posible esto? perdonen si molesto demasiado. saludos Última edición por elmago00 fecha: 03-05-2014 a las 21:18:02. |
#14
|
||||
|
||||
Hola elmago00.
No alcanzo a distinguir bién la imágen pero te hice un ejemplo de visor hexadecimal: salida: Mas si tu inquietud es a fines prácticos, ya existen excelentes editores hexadecimal freeware como: HxD - Freeware Hex Editor and Disk Editor. Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#15
|
|||
|
|||
esto es justamente lo que buscaba pero en lugar de verlo en stringGrid era guardarlo en .txt
pero de aquí sacare como hacerlo, muchas gracias ecfisa Última edición por elmago00 fecha: 05-05-2014 a las 06:06:59. |
#16
|
||||
|
||||
Hola elmago00.
De nada. Agregando un TButton, un TSaveDialog y muy poco código, podes continuar el anterior:
Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#17
|
|||
|
|||
muchas gracias, por haberte tomado el tiempo, de atender mi consulta.
|
#18
|
||||
|
||||
ecfisa,
Nelson. |
#19
|
||||
|
||||
Hola elmago00.
Te sugiero poner esta consulta como un nuevo hilo en el foro FireMonkey, seguramente tengas mas respuestas allí. Saludos
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Resta Hexadecimal ??? | Ðαяισš | Varios | 6 | 15-09-2010 11:34:17 |
Pasar de Hexadecimal a Decimal | chinchan | C++ Builder | 3 | 21-01-2008 04:18:57 |
Numero hexadecimal de 32 caracteres | adebonis | Varios | 2 | 15-11-2007 15:11:14 |
como pasar de asm a hexadecimal? | javier20 | Varios | 5 | 09-10-2007 19:39:08 |
de Hexadecimal a Decimal | Carlos A Ortega | Varios | 1 | 04-08-2003 22:14:56 |
|