Registriert seit: 26. Jan 2015
13 Beiträge
|
Datenbankformat herausfinden
26. Jan 2015, 20:01
Hallo liebe Community,
ich muss mich in den SourceCode einer Delphi-Programmierung einlesen.
Es geht darum das eine Datenbank geschrieben wird, und ich diese jedoch mittels C# auslesen / schreiben muss.
Könnt ihr mir helfen? Ich bin leider in Delphi ein blutiger Anfänger.
Damals habe ich Visual Basic programmiert, heute Visual C#. Nur mit Delphi... kenne ich mich nicht aus, und muss deswegen auch einlesen.
Ich habe von dieser Datenbankdatei (die diese Anwendung erstellt hat) einen kleinen Auszug via HexEditor erstellt.
XXX und YYY sind die eigentlichen Daten.
Die Funktion die diese Struktur schreibt sieht wie folgt aus:
Lesen:
Node: PVirtualNode;
NodeData: PArchivListData;
TempNode: PVirtualNode;
NodeDataArchiv: PArchivData;
log: string;
SRec: TSearchRec;
...
WriteLN(DBChannel[0], 'Buffer Normal = ' + Buffer);
WriteLN(DBChannel[0], 'Interpret = ' + Interpret);
WriteLN(DBChannel[0], 'Titel = ' + Titel);
...
Node := VSTArchivList.AddChild(VSTArchivList.RootNode);
NodeData := VSTArchivList.GetNodeData(Node);
...
NodeData.ValueType[0] := vtNumber;
NodeData.ValueType[1] := vtPickString;
NodeData.ValueType[2] := vtPickString;
NodeData.ValueType[3] := vtPickString;
NodeData.ValueType[4] := vtPickString;
NodeData.ValueType[5] := vtPickString;
NodeData.ValueType[6] := vtPickString;
NodeData.ValueType[7] := vtPickString;
NodeData.ValueType[8] := vtPickString;
...
Schreiben:
// Schreibe Dateistruktur
VSTArchiv.LoadFromFile(Path + '\Archiv.dat');
except
end;
Node := VSTArchiv.AddChild(VSTArchiv.RootNode);
NodeData := VSTArchiv.GetNodeData(Node);
...
NodeData.ValueType[0] := vtPickString;
NodeData.Value[0] := INIUpdateName;
WriteLN(DBChannel[0], 'INIUpdateName = ' + INIUpdateName);
NodeData.ValueType[1] := vtPickString;
NodeData.Value[1] := CheckIfGroupExist(INIUpdateName);
...
SaveArchiv
Hoffe ihr könnt mir helfen!
Vielen dank schonmal im Vorfeld!
Lg iceget
|