AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Datenbankformat herausfinden

Ein Thema von iceget · begonnen am 26. Jan 2015 · letzter Beitrag vom 4. Feb 2015
 
iceget

Registriert seit: 26. Jan 2015
13 Beiträge
 
#1

Datenbankformat herausfinden

  Alt 26. Jan 2015, 19: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
Angehängte Grafiken
Dateityp: jpg 44aff74abeef4edfc23a329abf2fdc50.jpg (145,5 KB, 41x aufgerufen)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 10:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz