LEER ARCHIVO .DAT DE DELPHI DESDE FW

[joseluisysturiz]

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...

[xmanuel]

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!!!

[joseluisysturiz]

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!!!

Gracias por comentar, puedo abrirlo con este programa DBbsys y su estructura es parecida a una tabla MySql, pero no abre con DBU, hasta donde me informaron es el programa para su creacion, pero foxpro tambien usa IDX. Seguire buscando y esperando otra opinion...saludos...gracias...

[asesormix]

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?

[karinha]

// VIA IA:

Code: Select all | Expand

#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.