Ir al contenido


Salvar un file Intelhex.

Comenzado por Guest_Jose Fco_* , nov 07 2008 06:33

  • Por favor identifícate para responder
65 respuestas en este tema

#21 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 09 enero 2009 - 04:11


Yo se que un dia de estos algun maestro posteara un ejemplito que funcione. :p


Un Saludo.


Claro que si amigo, estoy en ello :)

Ya lo puse al tope de mi lista de pendientes (y)

Salud OS


Ya eso esta en camino a Delphi entonces. :)

#22 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 11 enero 2009 - 07:58

  Creo que se perdio el ejemplito por el camino, o el enemigo lo secuestro. : : :

#23 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 12 enero 2009 - 01:14

Seguimos esperando el ejemplito. :p

Un Saludo.

PD:AHHH que lata da este viejo con ese bendito IntelHex. :p

#24 felipe

felipe

    Advanced Member

  • Administrador
  • 3.283 mensajes
  • LocationColombia

Escrito 12 enero 2009 - 01:38

Hey viejito, otra pregunta ¿cual es la utilidad de salvar un archivo en este formato?

:p
  • 0

#25 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.466 mensajes
  • LocationMéxico

Escrito 12 enero 2009 - 03:24

Pues he ejecutado el programa que dices amigo Jose y me crea una copia del archivo que me enviaste :s

Salud OS

PD, ya habilité que se pueda subir archivos .HEX
  • 0

#26 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 12 enero 2009 - 03:26

Hey viejito, otra pregunta ¿cual es la utilidad de salvar un archivo en este formato?

:p

Pues para poderlo meter de regreso en un micro, debe estar en ese formato. :p
De lo contrario seria un desastre total el asunto. ;)

Un Saludo.

#27 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 12 enero 2009 - 03:29

Pues he ejecutado el programa que dices amigo Jose y me crea una copia del archivo que me enviaste :s

Salud OS

PD, ya habilité que se pueda subir archivos .HEX

Hola carnal, esta bien ese file.Pero dejanos ver el fuente del codigo a ver como quedo el relajo. ;)

Un Saludo.

#28 felipe

felipe

    Advanced Member

  • Administrador
  • 3.283 mensajes
  • LocationColombia

Escrito 12 enero 2009 - 03:32


Hey viejito, otra pregunta ¿cual es la utilidad de salvar un archivo en este formato?

:p

Pues para poderlo meter de regreso en un micro, debe estar en ese formato. :p
De lo contrario seria un desastre total el asunto. ;)

Un Saludo.


Ah... ok  (y) :D
  • 0

#29 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.466 mensajes
  • LocationMéxico

Escrito 12 enero 2009 - 03:33

Hola carnal, esta bien ese file.Pero dejanos ver el fuente del codigo a ver como quedo el relajo. ;)

Un Saludo.


Pues copie exactamente lo que tu colocaste en el post #5 de este hilo, solo cambie obviamente la ruta donde están los archivos :s

^o|, será que la ruta que tu has puesto no es la correcta????



delphi
  1. LoadFromFile('C:\Documents and Settings\XP\test.HEX');
  2. SaveBufferToFile(Buffer,'C:\Documents and Settings\XP\prueba.HEX');



Salud OS
  • 0

#30 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 12 enero 2009 - 03:38

Ok, dejame intentar otra vez a ver que pasa.Una pregunta carnal, si quiero usar OpenDialog y SaveDialog, que tengo que modificar?

Un Saludo.

#31 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.466 mensajes
  • LocationMéxico

Escrito 12 enero 2009 - 03:42

Ok, dejame intentar otra vez a ver que pasa.Una pregunta carnal, si quiero usar OpenDialog y SaveDialog, que tengo que modificar?

Un Saludo.


Ah pues eso ya es otro cantar que no tiene la mayor complicación, dejame hacer algo y lo subo.

Salud OS

  • 0

#32 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 12 enero 2009 - 03:54

Hola
Tienes que poner un open y un save dialog en el form y esto:


delphi
  1. var
  2. i,j: Integer;
  3. CurrentFile: String;
  4. begin
  5. with TStringList.Create do
  6. try
  7.    //openDialog
  8.    if OpenDialog1.Execute then
  9.     CurrentFile := OpenDialog1.FileName;
  10.     LoadFromFile(CurrentFile);
  11.  // Llenamos todo el buffer con $FF
  12.  FillChar(Buffer,Sizeof(Buffer),#$FF);
  13.  // Leemos el archivo linea a linea e insertamos los datos en el buffer
  14.  for i:= 0 to Count - 1 do
  15.  Insertar(Strings[i],Buffer);
  16.     //SaveDialog
  17.     if SaveDialog1.Execute then
  18.     CurrentFile := SaveDialog1.FileName;
  19.     SaveBufferToFile(Buffer,CurrentFile);
  20.  // Aqui lo guardamos con otro nombre para ver como queda
  21.  finally
  22.  Free;
  23.  end;
  24.  
  25. end;


Saludos
  • 0

#33 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 12 enero 2009 - 04:06


Ok, dejame intentar otra vez a ver que pasa.Una pregunta carnal, si quiero usar OpenDialog y SaveDialog, que tengo que modificar?

Un Saludo.


Ah pues eso ya es otro cantar que no tiene la mayor complicación, dejame hacer algo y lo subo.

Salud OS


Ok ahora si me trabajo el condenado. :)
Entonces no se que paso la ultima vez que intente, no estaba trabajando y fue con el mismo codigo.

Si si puedes hacer un ejemplito y subirlo estaria bueno.Con OpenDialog y SaveDialog.

Un Saludo.

#34 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 12 enero 2009 - 04:09

Hola
El mismo código que tenéis, solo que con open y save dialog.
Saludos

[archivo adjunto borrado por el administrador]
  • 0

#35 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 12 enero 2009 - 04:17

Hola
El mismo código que tenéis, solo que con open y save dialog.
Saludos


Gracias Carlos, eso esta perfecto. :)

Al final salio el codigo.

Un Saludo. (y) Salud! (b) (b) (b) (b) (b) (b)

#36 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.466 mensajes
  • LocationMéxico

Escrito 12 enero 2009 - 04:22

Bueno, pues ya he "tachado" ese pendiente :D

Salud OS
  • 0

#37 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 12 enero 2009 - 04:25

Bueno, pues ya he "tachado" ese pendiente :D

Salud OS

Gracias carnal, creo que es codigo no me trabajo la ultima vez porque tengo dos discos duros en esta PC y la verdad creo que estaba esperando el resultado donde no era o queria bajar un file que no existia.Con el OpenDialog y el SaveDialog ya no tendre ese problema.

Un Saludo.

PD:En los campos que no existe data para ellos se rellenan con "00" llenarlos con "FF" es un error en el caso de los 8051(aclaro por si algun amigo sigue este proyecto que no se sienta perdido) ;)

#38 Caral

Caral

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.266 mensajes
  • LocationCosta Rica

Escrito 12 enero 2009 - 04:28

Hola
Osea, bien por el del código del OpenDialog y el SaveDialog. <:o) <:o) :D :D (b) (b)
Saludos
  • 0

#39 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 12 enero 2009 - 04:31

Hola
Osea, bien por el del código del OpenDialog y el SaveDialog. <:o) <:o) :D :D (b) (b)
Saludos

Asi es amigo, ya quedo trabajando el codigo y pues con el Open and Save Dialog esta super. (y)

Gracias Maestros.

#40 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.466 mensajes
  • LocationMéxico

Escrito 12 enero 2009 - 04:35

Hola
Osea, bien por el del código del OpenDialog y el SaveDialog. <:o) <:o) :D :D (b) (b)
Saludos


jejeje, aqui se cumple la máxima, NADIE SABE PARA QUIEN TRABAJA, jejeje :p

Salud OS
  • 0
Volver a General


  1. Comunidad Delphiaccess
  2. → PROGRAMACIÓN
  3. → General
  4. Privacy Policy
IP.Board spam blocked by CleanTalk.