Paradox Currency Feld umschlüsseln?

[Mitchl55]

Hallo,

habe maln (Für ein Prog) eine Paradox-Datenbank byteweise eingelesen.

An der Stelle der Curreny-Werte z.B. 555,55€ steht " €�\fffff€ "
auf der Festplatte! Weiß jemand wie ich aus diesem Wert wieder
die Zahl umschlüsseln kann. Oder unter welchen Stichwörtern ich
im Netz nochmal nachschlagen könnte?

Danke & Gruß

Mitchl

PS: Auch Nummeric Felder werden nicht als Zahl abgespeichert?!?

[marabu]

Hallo,

bist du sicher, dass du an der richtigen Stelle nachgesehen hast? Paradox speichert currency und numeric fields als double precision - das sind 8 Byte - wenn du die Adresse kennst, dann kannst du sie in eine Variable vom Typ Double einlesen - kein Umcodieren nötig.

Grüße vom marabu

[Mitchl55]

Hallo,

Zitat:

@marabu

Zuerst einmal vielen Dank für Deine Unterstützung, ohne Dich wäre ich jetzt nicht so weit! Vielleicht könntest Du mir das mit dem Umwandeln des Types von Double in Curreny an einem Showmessage Beispiel erklären???

ich habe dann mal wieder nachgeschaut! in den schon dargestellten Zeichen:

Zitat:

Curreny-Werte z.B. 555,55€ steht " €�\fffff€ "

muss sich irgendwie der Wert 555,55€ Verbergen. Wie Du schon sagtest sind das 8Byte, damit kommt man dann auf eine 64bit Code. die maximale Zahl die sich daraus ergibt ist +922.337.203.685.477,5808 15-Vorkommastellen und 4-Nachkommastellen die minimale Zahl ist -922.337.203.685.477,5808. Jetzt habe ich recherchiert, aber immer noch das Problem wie ich aus den 8Byte ("�\fffff€") die Zahl 555,55€ mache? Ich weiß nicht ob der Begriff "Festkommazahl" da weiterhilft.

Danke & Gruß

Mitchl

[marabu]

Hallo Mitchl,

wenn du weißt an welcher Stelle in der Datei die Information steht, dann kannst du sie z.B. so einlesen:

Delphi-Quellcode:

procedure ReadDouble(fn: TFileName; offset: Cardinal; var d: Double);
var
  fs: TFileStream;
begin
  fs := TFileStream.Create(fn, fmOpenRead, fmShareDenyWrite);
  try
    fs.Position := offset;
    fs.Read(d, SizeOf(d));
  finally
    fs.Free;
  end;
end;

Grüße vom marabu

[Mitchl55]

Hey, vielleicht wieder ne blöde Frage jetzt??!!!???

Kann ich mir die aus der Procedure dann z.B. mit Showmessage anzeigen lassen?
Wollte das mal Prüfen, bin leider nicht so Delphi-Fit wie Du/Ihr...

z.B. Bei Button6 Procedure einlesen ausführen und dann Showmessage? etc...

vielen Dank

Mitchl

[marabu]

Ja sicher das.

Delphi-Quellcode:

ShowMessage(Format('%m', [d]));

marabu

[Mitchl55]

Binde ich die Abfrage den so ein? Die Datei habe ich einen Schritt vorher schon
komplett eingelesen und die Datenreihenfolge habe ich in der Variable ba[i]
gespeichert. Dann kann doch das:

Delphi-Quellcode:

fs.Read(d, SizeOf(d));

an der Stelle wegfallen oder?

So habe ich das nicht hinbekommen....:

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
var:
a : integer;
w : double;
begin
a := 1;
w := '';

    For a = 1 to 8 do begin
        w := w + ba[i+a];
    end;

    ReadDouble(GetCurrentDir+'\'+File, Cardinal, w);
    ShowMessage(Format('%m', [w]));

end;

Danke

Mitchl

[marabu]

Ach Mitchl, was treibst du da? Hast du schonmal probiert deinen Code zu kompilieren? Eine Variable w vom Typ Double kannst du nicht mit einem leeren String initialisieren. Ich habe Zweifel, ob du überhaupt weißt, an welchen Offsets in einer Tabellendatei - das sind die mit der Erweiterung .db - currency Werte stehen. Und wenn du die Datei vorher schon komplett eingelesen hast, dann zeige die 2 Statements bitte auch, damit ich den Code in seinem Kontext sehe. Die Art, wie du meine Funktion ReadDouble in deinen Code eingebaut hast, macht mich auch stutzig. Weißt du wirklich, was du da machst?

Sorgenvolle Grüße vom marabu

[Mitchl55]

Also, ich denke schon ich weiß was ich will, nur an der Umsetzung habe ich wohl meine Probleme.

Also Deine Procedure kann ich nicht richtig einbinden, dazu bin ich zu dumm! Leider! Glaube ich!

Ich denke aber mit Deiner Procedure gebe ich dem PC eine Datei vor die Eingelesen wird und aus der
eine String von der Position x als Typ double ausgegeben wird?

Die Datei habe ich jetzt aber bereits zurvor eingelesen! Komplett Variable ba[i]! Und ich weiß an welche Position der
Teil für den Typ Currency steht! Er ist 8Byte lang! Diesen muss ich jetzt nur umwandeln in das Format Currency! Und
zur Prüfung als Showmessage wollte ich mir diesen dann anzeigen lassen! Dachte das das mit der Procedure geht?

vielen Dank fürs Verständniss, ich arbeite hart an meinen Programmierkenntnissen...


Mitchl

[marabu]

Du hast genau verstanden, was meine Prozedur macht.

Wenn sich der Inhalt deiner Tabelle in einem ByteArray befindet, dann kannst du die 8 Byte, anstatt sie zu lesen, einfach in eine Variable passenden Typs kopieren:

Delphi-Quellcode:

uses
  Types;

function ExtractDouble(ba: TByteDynArray; offset: Cardinal): Double;
begin
  Result := PDouble(@ba[offset])^;
end;

Wie du den Wert anzeigen kannst, habe ich dir schon gezeigt.

Zitat:

Zitat von Mitchl55

ich arbeite hart an meinen Programmierkenntnissen...

... und ich helfe dir gerne dabei - denke bitte nichts anderes.

Freundliche Grüße vom marabu

[Mitchl55]

Gute, dass habe ich jetzt verstanden bzw. es funktioniert, aber leider nicht wie gewünscht!

Bräuchte dann doch noch einmal fachmännische Hilfe dazu.

Als Anhang habe ich eine Beispieltabelle angehängt Test.DB darin gibt es:

1.) Feld: Name, Typ: String, Länge: 20 Inhalt: AAAAAAAAAABBBBBBBBBB
2.) Feld: Currency, Typ: Currency, Länge: $ Inhalt: 555,55€
3.) Feld: Datum, Typ: Date, Länge: d Inhalt: 11.11.200

In Tabellencode steht:

1.) AAAAAAAAAABBBBBBBBBB
2.) À�\fffff
3.) € %C

mit dem String 1.) gibt es keine Probleme aber mit den Punkten 2.) und 3.) habe Probleme diese zurückzuwandeln.
Die schon gezeigt Methode funktioniert zwar, aber an welche Position muss die angewendet werden? Ich habe schon
herausgefunden, das die ersten 2054 Zeichen zum Tabellenkopf gehören und dann fängt der String 1.) an.

Wie wandele ich nun die folgenden Felder richtig um??

Danke & Gruß

Mitchl

[marabu]

Guten Morgen, Mitchl.

Kennst du eigentlich diese Website: klick ?

Mit den Informationen von dort lese ich deine drei Werte ein und zeige sie an:

Delphi-Quellcode:

procedure SwapBytes(var buffer; size: word);
var
  b: byte;
  pbIn, pbOut: PByte;
begin
  pbIn := @buffer;
  Inc(pbIn, size - 1);
  pbOut := @buffer;
  while cardinal(pbIn) > cardinal(pbOut) do begin
    b := pbOut^;
    pbOut^:= pbIn^;
    pbIn^ := b;
    Dec(pbIn);
    Inc(pbOut);
  end;
end;

procedure SwitchHighBit(var buffer);
begin
  Byte(buffer) := Byte(buffer) xor $80;
end;

function ParadoxDate(days: Cardinal): Integer;
const
  REF1900 = 693594;
begin
  Result := days - REF1900;
end;

procedure ReadValues(fn: TFileName; offset: Cardinal);
var
  fs: TFileStream;
  s: String;
  d: Double;
  c: Cardinal;
begin
  fs := TFileStream.Create(fn, fmOpenRead, fmShareDenyWrite);
  fs.Position := offset;

  // 20 Bytes einlesen
  SetLength(s, 20);
  fs.Read(s[1], Length(s));
  // bei trailing 0 abschneiden
  s := PChar(s);
  ShowMessage(Format('string = "%s"', [s]));
 
  // 8 byte currency value einlesen
  fs.Read(d, SizeOf(d));
  // highbit umkehren
  SwitchHighBit(d);
  // byte order umkehren
  SwapBytes(d, SizeOf(d));
  ShowMessage(Format('double = "%f"', [d]));

  // 4 byte date einlesen
  fs.Read(c, SizeOf(c));
  // highbit umkehren
  SwitchHighBit(c);
  // byte order umkehren
  SwapBytes(c, SizeOf(c));
  // Zahl der Tage seit der Zeitrechnung
  ShowMessage(Format('paradox date = "%d"', [c]));
  // Umwandeln nach Delphi Date
  ShowMessage(DateToStr(ParadoxDate(c)));

  fs.Free;
end;

marabu

[Mitchl55]

Hallo marabu,

wenn ich so weiter mache werde ich auch noch ein sehr aktives Mitglied, allerdings im Fragen stellen!?

Den Link habe ich heute morgen auch in meinem Postfach von einem Bekanntem gehabt, hab allerdings in den Downloads nichts gefunden...da war meine ich nur eine *.PAS oder?

Hoffe ich habe jetzt das letzte Problem / Habe das so umgebaut um sie weiter nutzen zu können:

Delphi-Quellcode:

procedure TForm1.ReadValues(fn: TFileName; offset: Cardinal; xc: String; z: integer; a: integer);
var
  fs: TFileStream;
  s: String;
  d: Double;
  c: Cardinal;
// xc: Feldtyp wird übergeben
//  z: Stringlänge
//  a: Field Name Position in der Tabelle - Wird aus String Grid genommen
begin
  fs := TFileStream.Create(fn, fmOpenRead, fmShareDenyWrite);
  fs.Position := offset;

  if xc = 'String' then begin
     // 20 Bytes einlesen
     SetLength(s, z);
     fs.Read(s[1], Length(s));
     // bei trailing 0 abschneiden
     s := PChar(s);
//     Table1[Stringgrid1.cells[0,a+1]] := s;
     ShowMessage(Format('string = "%s"', [s]));
  end;

  if xc = 'Currency' then begin
  // 8 byte currency value einlesen
  fs.Read(d, SizeOf(d));
  // highbit umkehren
  SwitchHighBit(d);
  // byte order umkehren
  SwapBytes(d, SizeOf(d));
  ShowMessage(Format('double = "%f"', [d]));
  end;

  if xc = 'Date' then begin
  // 4 byte date einlesen
  fs.Read(c, SizeOf(c));
  // highbit umkehren
  SwitchHighBit(c);
  // byte order umkehren
  SwapBytes(c, SizeOf(c));
  // Zahl der Tage seit der Zeitrechnung
//  ShowMessage(Format('paradox date = "%d"', [c]));
  // Umwandeln nach Delphi Date
  ShowMessage(DateToStr(ParadoxDate(c)));
  end;

  if xc = 'Float' then begin
  // 8 byte currency value einlesen
  fs.Read(d, SizeOf(d));
  // highbit umkehren
  SwitchHighBit(d);
  // byte order umkehren
  SwapBytes(d, SizeOf(d));
  ShowMessage(Format('float = "%f"', [d]));
  end;
  fs.Free;

end;

Ich Rufe die Procedure "procedure TForm1.ReadValues(fn: TFileName; offset: Cardinal; xc: String; z: integer; a: integer);" aus Button1.click auf und möchte die Daten dann in Table1 speichern. Diese habe ich aber schon geöffnet in der Button1 Procedure.

Wie könnte ich die Werte denn am elegantesten speichen? Zeilenweise?

Danke

Mitchl

[marabu]

Hallo Mitchl,

schau nochmal etwas genauer - auf der Seite wird ein ZIP Archiv mit drei Dateien angeboten. Die Datei PxFormat.txt habe ich mir angesehen, um den Code zu bauen.

Wenn du die Werte aller Felder in allen Datensätzen auslesen willst, dann wirst du dir eine Struktur definieren müssen, die diese Werte aufnehmen kann. Wenn dein Programm mit nur einer Tabellenstruktur umgehen können muss, dann kannst du einen record nehmen, ansonsten musst du mit einer ZeigerListe arbeiten. Den Zugriff selbst würde ich elementarer gestalten - mein Beispiel sollte ja nur die Machbarkeit demonstrieren. Eine vernünftige Signatur für die Zugriffs-Routine könnte so aussehen:

Delphi-Quellcode:

procedure ReadValue(
  s: TStream;           // kann ein memory oder ein file stream sein
  offset: Cardinal;     // stelle ab der gelesen werden soll
  ft: Word;             // der Feldtyp, siehe PxFormat.txt
  len: Word;            // wieviel bytes in den buffer gelesen werden sollen
  var buffer            // hier soll das Ergebnis abgelegt werden
);

Was wird das werden, wenn es fertig ist?

marabu

[Mitchl55]

Hallo,

mittlerweile habe ich alles wie gewünscht ans laufen gebracht. Wenn ich das richig
sehe,(siehe Tabelle) dann Fehlen mir aber noch einige mögliche Tabellenfelder?
Hab einmal Probiert, die Abfrage " xc = 'Time' " zu programmieren, aber ich bekomme
da immer nur " 00:00:00 " hin, obwohl dort eine andere Zeit stehen müßte.
Kann mir jemand bei den anderen Abfragen weiterhelfen?

| | $01 v "A" String |
| | $02 4 "D" Date |
| | $03 2 "S" Short integer |
| | $04 4 "I" Long integer |
| | $05 8 "$" currency |
| | $06 8 "N" Number |
| | $09 1 "L" Logical |
| | $0C v "M" Memo BLOb |
| | $0D v "B" Binary Large Object |
| | $0E v "F" Formatted Memo BLOb |
| | $0F v "O" OLE |
| | $10 v "G" Graphic BLOb |
| | $14 4 "T" Time |
| | $15 8 "@" Timestamp |
| | $16 4 "+" Autoincrement |
| | $17 17* "#" BCD |
| | $18 v "Y" Bytes

Danke & Gruß

Mitchl