Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-05-2012
gusspagano gusspagano is offline
Miembro
 
Registrado: mar 2012
Posts: 47
Poder: 0
gusspagano Va por buen camino
Hola,

Bueno, al parecer se guardan los valores ASCII pues el manual no dice otra cosa, y en cuanto a lo que hay que leer es Word (palabras de 16 bits), ahora, es esto suficiente para convertir a texto??, que función puedo usar??
Responder Con Cita
  #2  
Antiguo 20-05-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por gusspagano Ver Mensaje
Hola,

Bueno, al parecer se guardan los valores ASCII pues el manual no dice otra cosa, y en cuanto a lo que hay que leer es Word (palabras de 16 bits), ahora, es esto suficiente para convertir a texto??, que función puedo usar??
Hola gusspagano.

Ateniendome a lo que me comentas, una forma de leerlo sería:
Código Delphi [-]
var
  FileWord: file of Word;
  s: string;
  W: Word;
begin
  AssignFile(FileWord, 'C:\TU_RUTA\TU_ARCHIVO.BIN');
  try
    Reset(FileWord);
    with TStringList.Create do
    try
      while not Eof(FileWord) do
      begin
        s:= '';
        repeat
          Read(FileWord, W);
          s:= s + Chr(W);
        until (W = 13) or Eof(FileWord);
        if not Eof(FileWord) then TS.Add(s);
      end
    finally
      // El contenido ya está en TS. 
      // Como ejemplo copio a un Memo y luego libero TS
      Memo1.Lines:= TS;
      TS.Free
    end
  finally
    CloseFile(FileWord)
  end
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #3  
Antiguo 22-05-2012
gusspagano gusspagano is offline
Miembro
 
Registrado: mar 2012
Posts: 47
Poder: 0
gusspagano Va por buen camino
Hola ecfisa,

lo intente pero sigo viendo puros simbolos, voy a checar otra vez el manual y a ver que encuentro, si logro hacer algo lo comento.

Muchas gracias por tu ayuda.
Responder Con Cita
  #4  
Antiguo 05-06-2013
gusspagano gusspagano is offline
Miembro
 
Registrado: mar 2012
Posts: 47
Poder: 0
gusspagano Va por buen camino
Pues bien, después de más de un año, pude convertir mis archivos RAW en TXT. Resulta que el archivo estaba basado en palabras de 16 bits (declaré el archivo como "file of word"), y estructurado en registros (de 6144 bytes cada uno), así que todo lo que leía eran cantidades entre 0 y 65535 (rango de valores de enteros sin signo de 16 bits). Luego, cada uno de esos datos o cantidades leidas correspondía a un valor que aplicando una formula que se encuentra en el manual del radar me da el valor de reflectividad, con el cual ya puedo estimar precipitación.

Por último use el código de compresión que viene en el manual para descomprimir los archivos. El código consiste en reemplazar cadenas de ceros por un número que indica la cantidad de ceros que han sido reemplazados.

Listo, luego solo automaticé el proceso para leer los más de 60 mil archivos RAW y generar imágenes de precipitación acumulada en 24 horas.

Esto probablemente no le interese a muchas personas, pero por si hubiera alguien por ahí que se tope con un problema similar al mio, sepa que si hay una solución, que me costó mucho encontrar, pero finalmente pude hacerlo.

Saludos ecfisa y gracias por tu ayuda.
Responder Con Cita
  #5  
Antiguo 05-06-2013
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.107
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular

.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
decimal a binario luisito2011 C++ Builder 2 05-12-2011 04:43:08
transformar archivo binario a texto pakitto Varios 1 26-11-2008 14:09:45
¿Como convertir un Blob(texto), a un Blob(Binario)? Nelly Varios 2 19-09-2007 22:30:37
Archivos de Texto y binario (manejar) h2o_mx OOP 2 20-04-2006 08:28:55
Convertir Archivos DFM de binario a Texto (Text DFM) DiDi Varios 4 21-04-2005 19:39:43


La franja horaria es GMT +2. Ahora son las 00:21:42.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi