No puedo extraer datos de una base de datos antigua

[zeta2]

yo veo todo bien...

[[movorack]]

Si!. No es un archivo binario. Es solo texto.

Hice el ejercicio y pude pasarlo del archivo a un ClientDataSet pero tuve problemas para cargar todas las líneas.

Básicamente cargué el archivo en un StringList, luego a la línea que carga le voy dando manejo con los posibles tamaños de campos y eso lo voy subiendo al dataset.

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
  const
    C_LENREG = 205;
  var
    lStFile : TFileName;
    lSlFile : TStrings;
    lStLineas : TStrings;
    lLinea : String;
begin
  Memo1.Lines.Clear;
  CdsTemp.EmptyDataSet;

  lStFile := StringReplace(ParamStr(0), '.exe', '.fil', [rfIgnoreCase, rfReplaceAll]);
  if not FileExists(lStFile) then
    Exit;

  TSpeedButton(Sender).Down := True;
  FLeer := True;

  lSlFile := TStringList.Create;
  lStLineas := TStringList.Create;
  try
    lSlFile.LoadFromFile(lStFile);
    lSlFile[0] := StringReplace(lSlFile[0], #0, ' ', [rfIgnoreCase, rfReplaceAll]);
    while (Length(lSlFile[0]) > 1) and FLeer do
    begin
      lLinea := Copy(lSlFile[0], 1, C_LENREG);
      lStLineas.Add(lLinea);
      Memo1.Lines.Add(lLinea);

      if CdsTemp.State in [dsEdit, dsInsert] then
        CdsTemp.Cancel;

      CdsTemp.Append;
      CdsTempField01.AsString := Copy(lLinea, 001, 06);
      CdsTempField02.AsString := Copy(lLinea, 007, 58);
      CdsTempField03.AsString := Copy(lLinea, 065, 25);
      CdsTempField04.AsString := Copy(lLinea, 090, 50);
      CdsTempField05.AsString := Copy(lLinea, 140, 18);
      CdsTempField06.AsString := Copy(lLinea, 158, 11);
      CdsTempField07.AsString := Copy(lLinea, 169, 10);
      CdsTempField08.AsString := Copy(lLinea, 179, 06);
      CdsTempField09.AsString := Copy(lLinea, 185, 20);
      CdsTempField10.AsString := Copy(lLinea, 205, 01);
      CdsTemp.Post;

      lSlFile[0] := Copy(lSlFile[0], Length(lLinea) + 1, Length(lSlFile[0]));

      Application.ProcessMessages;
      Sleep(250);
    end;
  finally
    FreeAndNil(lStLineas);
    FreeAndNil(lSlFile);
  end;
end;

Adjunto el fuente del ejercicio. Para usarlo debes modificar el nombre del archivo ".fil" a Project1.fil y colocarlo en el directorio del ejecutable. "Project1.fil"

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

[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