Datenstruktur erkennen Turbo Pascal Dos mit Toolbox(4)

[hathor]

Was bedeutet die 4 in Turbo Pascal Dos mit Toolbox(4)?
Wer ist der Autor?
In welchem Jahr ist das erschienen?

[einseins]

keine Ahnung ich denke einfach es ist mit TP 4 progammiert. Der Entwickler hat in Windos Zeiten auch eine Win Variante veröffentlich die auf die selben Datenstruktur zugriff , unter Delphi 3 . Es gibt eine Konfigdatei im Programm wo man das erkennen kann . Diese Version ist nicht verfügbar , war aber mal installiert.

Auszug daraus
.........C:\delphi3\Source\SysPfad.............. anderere binaärcode wir hier nicht dargestellt

[Furtbichler]

Wenn der Quelltext der DOS-Version verfügbar ist, könnte es klappen, wenn nicht, kann man eventuell etwas basteln. Dazu müssen definierte Werte eingetragen werden (1,2,3,4, 'TEST1','TEST2' etc.), also mehrere Records.

Dann kann man mit einem Dateianalyzer oder Gehirnschmalz (bzw. beidem) versuchen, die gespeicherten Daten wiederzufinden. Das lässt dann auf die Recordstruktur schließen.

Die Daten sind im Format

Delphi-Quellcode:

Type TDaten = Record
  RecordHeader : LongInt;  // z.B.
  IrgendEinString : String[50];
  EineZahl : Integer;
  ...
end;

Alles machbar.

[hathor]

@einseins

Bist Du ein Troll oder gibt es noch irgend etwas Sinnvolles ausser dieses sinnlose DATEN.rar?

[MeierZwoo]

@einseins, existiert denn das Programm noch (und läuft)?

[einseins]

Hallo Danke erst mal für die vielen Antworten . Das Programm ist täglich im Einsatz . Ich habe das aber mit nur einem Datensatz versehen , damit man das analysieren kann . Leider ist kein Quellcode verfügbar , aber versuchs heute nochmal mit dem Entwickler eine kleine Email zu verfassen . Leider ist der Aufbau der Datendatei eindeutig , ich habe schon einige Ansätze von euch bekommen um darüber nachzudenken. Der Ansatz mit der txt Datei ist nicht möglich, da diese Datei nicht immer verfügbar ist. Ich habe mal alle Datendateien als rar gepackt und füge die mal ein . Zum einen ist ne Rechnung erstellt, zum anderen wurde diese in der Buchhaltung verbucht (egal wie erst mal).

[grl]

Hmmm - ich hab mal irgendwo gelesen, daß die Filestruktur vom TurboPower BTree Filer übernommen wurde - der ist via Sourceforge noch zu kriegen.

Vielleicht kann man damit die Dateien lesen?

GRL

[MeierZwoo]

Zitat von einseins:

Leider ist der Aufbau der Datendatei eindeutig ,

Wieso "leider"? Ein eindeutiger Aufbau einer Datendatei ist doch kein Manko, im Gegenteil.

Und es ist richtig, daß die DataToolbox durch BTree-Isam abgelöst wurde, diese dann als "Filer" übernommen und inzwischen der Quellcode freigegeben wurde. Der Quellcode muß aber angepaßt werden, da er nur bis Delphi 2007 unterstützt. Nur ist das eh egal, da ja wohl eine Konvertierung zu einem neuen Programm vorgenommen werden soll, also aus den reinen Datendateien Die Datensätze ausgelesen und einem neuem Programm (konvertiert) zur Verfügung gestellt werden sollen. Die Indexdateien kann man dabei getrost vergessen, weil deren Struktur zu ermitteln ohne Quellcode und den darin beschriebenen Indexparametern so gut wie unmöglich ist.

Ich würde erstmal einen 32bit PC sicherstellen, damit auch später noch von vorh. Daten eine Aktenlage (auf Papier) hergestellt werden kann (ab 64bit gibt es keine DOS-VM mehr). Dann zum Jahreswechsel mit Jahresabschluß die Aktenlage herstellen.

Bei dem Wust an Dateien (s. rar) viel Zeit nehmen oder die weitergeführten Stamm-Daten, wie z.B. Kunden/Mandanten/Lager/Waren-Parameter einfach von Ausdrucken oder dem alten Programm selbst in das neue Programm eintippseln.

@einseins, wenn du die Datendateien wirklich auslesen und konvertieren willst, beachte auch, daß nicht alle Datensätze einer Datei gleich aufgebaut sein müssen - nur ihre Gesamtlänge [byte] ist wohl gleich, aber auch nicht komplett benutzt.

Die Datendateien bestehen aus einem Header (erster Satz, Rec 0), in dem vier Parameter, drei Longint und ein Word stehen. Diese geben
a) FirstFree:longint (RecNr des ersten gelöschten Recs)
b) NumFree:longint (Anzahl der gelöschten Recs)
c) UsedRecs:longint (Anzahl Recs ohne Rec0 und ohne gelöschte/ungültige Recs
d) Reclen:word
an. Daraus interessiert beim Auslesen der Daten ansich nur RecLen, wiel diese der Record-Größe zum deklarieren der Datei oder dem Lesepuffer entsprechen muß.

Wie oben schon gesagt (Furtbichler) besteht jeder Datensatz aus einem Longint (4 Byte) und den nachfolgenden Daten. Der Longint zählt mit zum RecLen und zum zu deklarierenden Record/Puffer. Ein Datensatz ist nur gültig, wenn diese ersten vier Byte alle Null sind - ansonsten gilt er als gelöscht und der Longint ist ein Zeiger auf den nächsten, gelöschten Datensatz. Aber das sollte auch in dem vorher schon verlinkten Handbuch stehen (?).

Die spezielle Struktur eines Datensatzes ermittelt man am besten, in dem man mit dam Anwenungsprogramm Daten anlegt; möglichst einedeutig wiedererkennbar und dann in den Datendateien nach diesen Daten sucht (z.B. mit einer Hilfsroutine oder einem HexEditor). Und dann daraus die jeweiligen Records ermittelt.

FF (Fiel Freude), ich hoffe, Du wirst gut bezahlt.