FiveTech Support Forums

Saludos, mi tema es el siguiente, hay una aplicacion desarrollada en Delphi, no se bajo que version, mi trabajo es leer, extraer y grabar datos en sus tablas que son .DAT y .IDX (conozco la estructura del archivo), asumiendo que eso son index y alimentar mis tablas en MYSQL, mi pregunta es...existe alguna manera directa con FW de leer los datos del .DAT y asi luego llevarlos a mi tabla en MYSQL.? leyendo algo en un foro de delphi parece podria hacerlo con ADO y conector ODBC. Para los expertos en ADO, puedo leer directamente archivos .DAT-? si es asi, como .?

Quedo a la espera de sugerencias, ideas y algun sample de la forma que sea que se pueda leer la data del .DAT y asi alimentar mi tabla MYSQL. desde ya, gracias...saludos, gracias...

Priemero tienes que saber que tipo de fichero es.
Por la pinta parece un DBF renombrado a DAT.
Pero podría ser un fichero PARADOX. Del IDX podras presindir ya que por el sufijo parece de indices y eso no es relevante para MySQL.

Para hacer pruebas renombre de .DAT a .DBF y lo abres con el DBU por ejemplo...
Ya nos contarás!!!

xmanuel wrote:Priemero tienes que saber que tipo de fichero es.
Por la pinta parece un DBF renombrado a DAT.
Pero podría ser un fichero PARADOX. Del IDX podras presindir ya que por el sufijo parece de indices y eso no es relevante para MySQL.

Para hacer pruebas renombre de .DAT a .DBF y lo abres con el DBU por ejemplo...
Ya nos contarás!!!

Saludos Jose Luis. Te escribe Jose Antonio desde Bqto. Lograste accesar estas tablas .dat , como lo hiciste? Podrias enseñarme como hicistes para acceder estas tablas?

// VIA IA:

#include "fivewin.ch"

// Ejemplo conceptual en FiveWin/xHarbour
// Suponiendo un archivo .DAT con un INT (4 bytes) y un CHAR(20)
FUNCTION LeerDAT( cArchivo )

   LOCAL cBuffer, nHandle, nValor, cTexto

   cHandle := FOPEN(cArchivo, 'rb') // Abrir para lectura binaria

   IF cHandle != NIL

  // Leer 4 bytes para un entero
  FREAD(cBuffer, 4, cHandle)

  nValor := Ord(cBuffer) // Conversión conceptual, dependerá de la arquitectura

  // Leer 20 bytes para una cadena
  FREAD(cBuffer, 20, cHandle)

  cTexto := STR(cBuffer) // Convertir buffer a cadena

  FCLOSE(cHandle)

   ENDIF

RETURN NIL

Regards, saludos.