Int64 spinnt oder ich. HILFE!!!!

[himitsu]

noch eine winzige Erweiterung...

Delphi-Quellcode:

  Memo1.Lines.Append('Typ: ' + VarType(V).ToString + ' ' + VarTypeAsText(V));
  Memo1.Lines.Append('Val: ' + TVarData(V).VInt64.ToString + ' ' + TVarData(V).VUInt64.ToString);
  Memo1.Lines.Append('Raw: ' + UIntPtr(TLargestVarData(TVarData(V).VAny^)._Reserved1).ToString
                       + ' ' + UIntPtr(TLargestVarData(TVarData(V).VAny^)._Reserved2).ToString);
  var Tmp: string;
  for var i := 0 to 7{simplyunknown} do
    Tmp := Tmp + PAnsiChar(TVarData(V).VUnknown)[i];
  Memo1.Lines.Append('Bin: ' + Tmp);

[edit] aktualisiert :duck:

[Papaschlumpf73]

Zitat:

Zitat von himitsu (Beitrag 1542948)

noch eine winzige Erweiterung...

Delphi-Quellcode:

  Memo1.Lines.Append('Typ: ' + VarType(V).ToString + ' ' + VarTypeAsText(V));
  Memo1.Lines.Append('Val: ' + TVarData(V).VInt64.ToString + ' ' + TVarData(V).VUInt64.ToString);
  Memo1.Lines.Append('Raw: ' + UIntPtr(TLargestVarData(TVarData(V).VAny^)._Reserved1).ToString
                       + ' ' + UIntPtr(TLargestVarData(TVarData(V).VAny^)._Reserved2).ToString);
  var Tmp: string;
  for var i := 0 to 7{simplyunknown} do
    Tmp := Tmp + PAnsiChar(TVarData(V).VUnknown)[i];
  Memo1.Lines.Append(Tmp);

Musste ich etwas anpassen - Val funktioniert:

Delphi-Quellcode:

  try Memo1.Lines.Append('Typ: ' + VarType(V).ToString + ' ' + VarTypeAsText(V)); except on E:Exception do Memo1.Lines.Append('Typ: '+E.Message); end;
  try Memo1.Lines.Append('Val: ' + IntToStr(TVarData(V).VUInt64)); except on E:Exception do Memo1.Lines.Append('Val: '+E.Message); end;
  try Memo1.Lines.Append('Raw: ' + UIntPtr(TLargestVarData(TVarData(V).VAny^)._Reserved1).ToString+ ' ' + UIntPtr(TLargestVarData(TVarData(V).VAny^)._Reserved2).ToString); except on E:Exception do Memo1.Lines.Append('Raw: '+E.Message); end;

Typ: Überlauf bei der Konvertierung einer Variante vom Typ (Decimal) in Typ (Integer)
Val: 7978126718202166279
Raw: Zugriffsverletzung bei Adresse 008168A4 in Modul 'Project2.exe'. Lesen von Adresse F37E3C07

[Papaschlumpf73]

Bin: Zugriffsverletzung bei Adresse 00A76992 in Modul 'Project2.exe'. Lesen von Adresse F37E3C07

[himitsu]

dann lass' erstmal den/die Letzten Zeilen weg.

Hatte das nur blind, nach gutem Wissen und Gewissen zusammengeklöppelt ... die Codevervollständigung hatte nichts gesagt, dass sie es falsch findet :stupid:

Bei Typ hätte ich jetzt keinen Fehler erwartet :shock:

Geh mal in deine Projektoptionen und schalte (vorübergehend) die Überlauf und Bereichsprüfung ab. (die ist seit ein paar Delphiversionen standardmäßig aktiv)
Projektoptionen > Delphi-Compiler > Compilieren > Laufzeitfehler > Überlaufprüfung / Bereichsprüfung = off

Delphi-Quellcode:

Memo1.Lines.Append('Typ: ' + VarType(V).ToString);
Memo1.Lines.Append('Typ: ' + VarTypeAsText(V));

Das Erste geht aber?

[himitsu]

maaaaaaaaaaaaaaa ... der blöde VarType :wall:

OK, jetzt aber ... hoff' ich :oops:

Delphi-Quellcode:

  Memo1.Lines.Append('Typ: ' + VarType(V).ToString + ' ' + VarTypeAsText(VarType(V)));
  Memo1.Lines.Append('Val: ' + TVarData(V).VInt64.ToString + ' ' + TVarData(V).VUInt64.ToString);
  var Tmp: string;
  for var i := 0 to High(TVarData(V).RawData) do
    Tmp := Tmp + ' ' + TVarData(V).RawData[i].ToHexString;
  Memo1.Lines.Append('Bin: ' + Tmp);

[Papaschlumpf73]

Zitat:

Zitat von himitsu (Beitrag 1542953)

maaaaaaaaaaaaaaa ... der blöde VarType :wall:

OK, jetzt aber ... hoff' ich :oops:

Delphi-Quellcode:

  Memo1.Lines.Append('Typ: ' + VarType(V).ToString + ' ' + VarTypeAsText(VarType(V)));
  Memo1.Lines.Append('Val: ' + TVarData(V).VInt64.ToString + ' ' + TVarData(V).VUInt64.ToString);
  var Tmp: string;
  for var i := 0 to High(TVarData(V).RawData) do
    Tmp := Tmp + ' ' + TVarData(V).RawData[i].ToHexString;
  Memo1.Lines.Append('Bin: ' + Tmp);

Ergebnis:
Typ: 14 Decimal
Val: 7978126718202166279 7978126718202166279
Bin: 8000000E 00000000 F37E3C07 6EB7FFFA

[himitsu]

Das ist schon ein klein bissl blöd.
Dezimal ist grade ein Variant-Typ, welcher an vielen Stellen als "unsupported" im Code zu finden ist. :vernupft:
Aber so wie es aussieht, hätte ich vielerorts eine Exception erwartet, wenn darauf zugegriffen wird, anstatt einer falschen Rückgabe.

mal sehn ... (heut abend / morgen ...)

[jaenicke]

Zitat:

Zitat von Papaschlumpf73 (Beitrag 1542972)

Ergebnis:
Typ: 14 Decimal
Val: 7978126718202166279 7978126718202166279
Bin: 8000000E 00000000 F37E3C07 6EB7FFFA

Das war leider zu vermuten. Das Problem mit ADO ist seit fast 20 Jahren bekannt (siehe z.B. RSP-34075). Der Wert ist zwar richtig, aber varDecimal wird in Delphi nicht unterstützt. Dementsprechend wird dann eine Umwandlung durch das Betriebssystem versucht und dabei kommt dann das Ergebnis raus. In Delphi wäre daher die einzige Lösung, varDecimal zu implementieren.

// EDIT: Ach ja, und doof ist, dass man varDecimal nicht als Custom Type registrieren kann, obwohl Delphi den Typ nicht implementiert... Wenn da auch der Wert möglich wäre, wäre das eine Möglichkeit... Das könnte man recht einfach patchen, aber man müsste den Typ halt auch implementieren.

Der Fehler hingegen passiert bei Microsoft in der Funktion VariantChangeTypeEx, die in VarToInt64ViaOS verwendet wird. Da könntest du höchstens im Feedback Hub einen Eintrag machen...

Zitat:

Zitat von Papaschlumpf73 (Beitrag 1542905)

In den letzten 30 Jahren habe ich noch nie einen Debugger benutzt. Da müsste ich mich erst mal reinfummeln.

Programmieren ohne Debuggen ist, als würdest du dir eine Hand auf den Rücken binden. Das ist wirklich eine sehr schlechte Idee, die sehr viel Zeit kostet. Das merkst du nur nicht, weil du den Vergleich nicht hast.

[Rollo62]

Zitat:

Zitat von jaenicke (Beitrag 1542976)

Der Fehler hingegen passiert bei Microsoft in der Funktion VariantChangeTypeEx,

Ist der Fehler irgendwie mathematisch erklärbar?

[himitsu]

VarI8FromDec klingt nicht so schlecht
https://learn.microsoft.com/en-us/wi...o-vari8fromdec
wenigstens steht dort nichts von einem Fehler (auch sehr löblich die Fehler zumindest zu dokumentieren, anstatt sie zu beheben)
https://learn.microsoft.com/de-de/pr...ncorrect-value