DBase-Tabelle lesen

[ulrich70]

Hallo,

hab's hinbekommen. Ist leider kein schöner Weg, aber anders ging es nicht:

Ich kopiere die Dbf, setze das 29.te Byte auf 0, damit die Tabelle denkt, sie habe keinen Index, lese alle Datensätze aus und fülle sie in eine neu Tabelle mit Index, die ich dann weiter benutzen kann.

Vielen Dank für Eure Hilfe.

[nytaiceman]

Ich habe ein ähnliches Problem wie Ulrich70. Leider ist Ulrich70 nicht mehr in diesem Forum aktiv weswegen ich die Community um weitere Infos bitten möchte.

Er schrieb:

Zitat:

Ich kopiere die Dbf, setze das 29.te Byte auf 0, damit die Tabelle denkt, sie habe keinen Index, lese alle Datensätze aus und fülle sie in eine neu Tabelle mit Index, die ich dann weiter benutzen kann.

Da stehe ich ziemlich auf dem Schlauch, kann mir jemand sagen was er mit "Setze das 29. Byte auf 0"?

Hat jemand Erfahrungen wenn es darum geht DB-Dateien aus einer xBase Applikation zu öffnen?
--> Nur Lesen würde schon reichen.

Danke bereits für Eure Hilfe.

[Fritzew]

schau Dir mal
TDBF
an, damit habe ich recht gute Erfahrungen gemacht

[himitsu]

HxD
Entweder mit einem Editor, der Dateien "binär" bearbeiten kann.

Oder du nimmst z.B. einen TFileStream, setzt die Position auf 28 (Byte 0 ist das erste Byte) und schreibst dann ein Byte mit dem Wert 0 auf diese Stelle.

[nahpets]

Zitat von ulrich70:

Ich kopiere die Dbf, setze das 29.te Byte auf 0, damit die Tabelle denkt, sie habe keinen Index, lese alle Datensätze aus und fülle sie in eine neu Tabelle mit Index, die ich dann weiter benutzen kann.

Damit ist gemeint, die DBF-Datei mit einem Hex-Editor zu öffnen und mit seiner Hilfe das besagte Byte auf den Wert Hex 0 zu ändern.

Steht in diesem Byte eine 1, so wird davon ausgegangen, dass eine Indexdatei vorhanden ist und bei deren fehlen wird ein Fehler ausgegeben. Kann man nicht für die entsprechende Indexdatei sorgen, weil sie fehlt oder defekt ist, so kann man durch Ändern eben dieses Bytes auf 0 eine "Quasireparatur" vornehmen.

TDBF ist eine gut nutztbare Komponenten, die ich überall dort nutze, wo noch dBase dransteht, aber keines mehr drin ist und auf die BDE verzichtet werden soll.

Mehr Infos zum dBase-Format: http://web.archive.org/web/201503230...truct.htm#T2.1

[nytaiceman]

Vielen Dank an Euch Alle!
Ich habe mich ein bisschen in TDBF eingearbeitet und kann nun meine DBF Dateien anzeigen.
Das folgende hilft vielleicht einem anderen Anfänger wie mir:

Delphi-Quellcode:

// Auf der Form liegen: 
// DataSource1 : TDataSource;
// DBF1 : TDBF;
// DBGrid1 : TDBGrid;
// BT_openDBClick : TButton;

// Als globale Variable
var 
 CurrentDbf  : TDbf;

// Eine DBF Datei auswählen
procedure TForm1.BT_openDBClick(Sender: TObject);
begin
  SelectDB;
end;

// Eine DBF Datei anzeigen
procedure TForm1.SelectDB;
var
  sDBFile : String;
begin
  with TFileOpenDialog.Create(nil) do
  try
    if Execute then begin sDBFile := Filename end;
  finally
    Free;
  end;
  if length(sDBFile) < 1 then exit;

  ResetDBHandle;
  CurrentDbf := TDbf.Create(nil);
  try
    CurrentDbf.FilePathFull  := ExtractFileDir(sDBFile);
    CurrentDbf.TableName     := ExtractFileName(sDBFile);
    CurrentDbf.Exclusive     := True;
    CurrentDbf.TableLevel    := 3;

    DataSource1.DataSet := CurrentDbf;
    DBGrid1.DataSource := DataSource1;
    CurrentDbf.Open;
    LabeledEdit1.Text := IntToStr(CurrentDbf.ExactRecordCount);

   except
     on E : Exception do MessageDlg(E.ClassName +#13#10 +E.Message,mtError, [mbOK], 0);
  end;

end;

// Zurücksetzen einer allenfalls geöffneten DB
procedure TForm1.ResetDBHandle;
begin
  if assigned(CurrentDbf) then
  begin
    CurrentDbf.Close;
    CurrentDbf.Free;
    LabeledEdit1.Text := '';
  end;
end;

// Schliessen der Applikation
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ResetDBHandle;
end;

// Verändern der Applikationsgrösse
procedure TForm1.FormResize(Sender: TObject);
begin
  DBGrid1.Width   := DBGrid1.Parent.Width -22;
  DBGrid1.Height  := DBGrid1.Parent.Height -DBGrid1.Top -40;
end;