No puedo extraer datos de una base de datos antigua

[cloayza]

Otra opción podría ser:
Coloca un TMemo en un form, agregas un boton y copias este código al evento del botón.

Código Delphi [-]
{          02 B1-FECHIN     PIC 9(6).
           02 B1-TITULO     PIC X(58).
           02 B1-AUTOR1     PIC X(25).
           02 B1-AUTOR2     PIC X(25).
           02 B1-AUTOR3     PIC X(25).
           02 B1-EDITOR     PIC X(18).
           02 B1-EDICION.
              03 B1-ANIO    PIC 9(4).
              03 B1-VEZ     PIC 9(2).
           02 B1-ASIGNATURA PIC X(15).
           02 B1-TOPO.
              03 B1-UB      PIC X(3).
              03 B1-EST     PIC X(3).
          02 B1-COLECCION   PIC X(20).
          02 B1-PROCEDENCIA PIC X.

}
procedure TForm1.Button1Click(Sender: TObject);
type
   TDatos=record
      Fecha:array[0..5] of AnsiChar;
      Titulo:array[0..57] of AnsiChar;
      Autor1:array[0..24] of AnsiChar;
      Autor2:array[0..24] of AnsiChar;
      Autor3:array[0..24] of AnsiChar;
      Editor:array[0..17] of AnsiChar;
      EdicionAnio:array[0..3] of AnsiChar;
      EdicionVez:array[0..1] of AnsiChar;
      Asignatura:array[0..14] of AnsiChar;
      TopoUB:array[0..2] of AnsiChar;
      TopoEst:array[0..2] of AnsiChar;
      Coleccion:array[0..19] of AnsiChar;
      Procedencia:AnsiChar;
   end;
var
  F: TFileStream;
  t:TDatos;
begin
     FillChar(t,SizeOf(t),0);

     Memo1.lines.BeginUpdate;

     F := TFileStream.Create('bibli01.fil', fmOpenRead);

     while F.Position < F.Size do
     begin
          F.Read(t, SizeOf(t));
          Memo1.Lines.Add(Format('%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|%s|',
           [t.Fecha,t.Titulo,t.Autor1,t.Autor2,t.Autor3,t.Editor,t.EdicionAnio,t.EdicionVez,
           t.Asignatura,t.TopoUB,t.TopoEst,t.Coleccion,t.Procedencia]));
     end;

     F.Free;
     Memo1.lines.EndUpdate;
end;

Ojala te ayude en algo

[roman]

Empezado por cloayza

Código Delphi [-]
{          02 B1-FECHIN     PIC 9(6).
           02 B1-TITULO     PIC X(58).
           02 B1-AUTOR1     PIC X(25).
           02 B1-AUTOR2     PIC X(25).
           02 B1-AUTOR3     PIC X(25).
           02 B1-EDITOR     PIC X(18).
           02 B1-EDICION.
              03 B1-ANIO    PIC 9(4).
              03 B1-VEZ     PIC 9(2).
           02 B1-ASIGNATURA PIC X(15).
           02 B1-TOPO.
              03 B1-UB      PIC X(3).
              03 B1-EST     PIC X(3).
          02 B1-COLECCION   PIC X(20).
          02 B1-PROCEDENCIA PIC X.

}

¿Esta es la descripción de la tabla? ¿En qué archivo la encontraste?

LineComment Saludos

[[movorack]]

Con el método de cloayza se lee muy bien el archivo.

[zeta2]

De cuál versión de delphi es ese proyecto?

[zeta2]

Me tiraba un error, pero ya lo solucioné. Estoy viendo como funciona.

[[movorack]]

Empezado por zeta2

De cuál versión de delphi es ese proyecto?

Delphi 5 .

[zeta2]

Claro, lo abrí en un delphi 7.

Lee re bien el archivo.fil lo que si, me exporta un xml pero no lo puedo lee, me tira un error en excel, en notepad lo leo sin problemas, en breve veo cual puede ser el problema.

[[movorack]]

Ese XML es el TClientDataSet guardado en XML. No se si Excel lo lea bien.

Para llevarlo a la DB relacional solo debes conectar el ClientDataSet a tu motor de preferencia.

[cloayza]

Empezado por roman

¿Esta es la descripción de la tabla? ¿En qué archivo la encontraste?

LineComment Saludos

Hace muchos años que no veía programas en Cobol...para mi fué una pesadilla aprender a programar en este lenguaje...Pero fue bueno recordar esos momentos...

A tu pregunta...
Los archivos fuentes son los *.CBL, miré algunos y por coincidencia los nombres de los archivos fuentes son muy parecidos a los archivos de datos...

Así que :
BIBLI001.CBL contiene esto...

Código Delphi [-]
 IDENTIFICATION DIVISION.
       PROGRAM-ID.                 BIBLI001.
       SECURITY.                   ABM DE LIBROS.
      *
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.            PCI.
       OBJECT-COMPUTER.            PCI.
       SPECIAL-NAMES.
               DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.

           SELECT BIBLIO ASSIGN TO DISK,
                              "bibli01.fil" 
               ORGANIZATION IS RELATIVE
               ACCESS MODE IS dynamic
               RELATIVE IS B1-CLAVE.
...
DATA DIVISION.
       FILE SECTION.
             COPY "bibli01.cop".
             COPY "bibli02.cop".
             COPY "bibli03.cop".
             COPY "bibli04.cop".
             COPY "bibli07.cop".

El FILE SECTION es donde se hace la descripción de los registros de los archivos...

Bibli01.COP

Código Delphi [-]
 FD BIBLIO
           label record standard.
       01 B1-REG.
           02 B1-FECHIN     PIC 9(6).
           02 B1-TITULO     PIC X(58).
           02 B1-AUTOR1     PIC X(25).
           02 B1-AUTOR2     PIC X(25).
           02 B1-AUTOR3     PIC X(25).
           02 B1-EDITOR     PIC X(18).
           02 B1-EDICION.
              03 B1-ANIO    PIC 9(4).
              03 B1-VEZ     PIC 9(2).
           02 B1-ASIGNATURA PIC X(15).
           02 B1-TOPO.
              03 B1-UB      PIC X(3).
              03 B1-EST     PIC X(3).
          02 B1-COLECCION   PIC X(20).
          02 B1-PROCEDENCIA PIC X.

Y lo demás fué cantar...

[roman]

Empezado por cloayza

Y lo demás fué cantar...

Bueeeno, si tú lo dices

Gracias por la explicación

LineComment Saludos