Komischer Datenbankeffekt

[sakura]

Zitat von sakura:

Bist Du Dir sicher

...

Zitat von sko1:

ich denke schon

Denken ist nicht überprüfen.

Unabhängig davon, es ist wahrscheinlich, dass der Fehler schon an anderer Stelle auftritt und durch einen Überlauf verursacht wurde. Wenn Du die Reihenfolge der Deklarationen in Deiner Klasse änderst, dann würdest Du evtl. den Inhalt einer anderen Variable zerstören.

......

[sko1]

Wie bekomme ich solch einen Überlauf raus?
Selbst wenn ich den Stream auf Platte zwischenkopiere und daraus ins Datenbankfeld schreibe ist das Array futsch!

Delphi-Quellcode:

    Vorlage.Settings.Stream1.Position := 0;
    Vorlage.Settings.Stream1.SaveToFile('c:\temp\xxx');
    TBlobfield(FDQuery.FieldByName('Stream1')).LoadFromFile('c:\temp\xxx');

und zwar genau in dem Moment TBlobfield(FDQuery.FieldByName('Stream1')).LoadFro mFile

Ciao
Stefan

[TiGü]

Datenhaltepunkt...hallo? Irgendwer? Beitrag Nummer 3?

[sko1]

Ich habe umgebaut, es wird noch verwirrender:

Delphi-Quellcode:

 
   //umkopieren in anderen Stream
   ms:=TMemoryStream.Create();
   ms.Position := 0;
   ms.CopyFrom(Vorlage.Settings.Stream1, Vorlage.Settings.Stream1.size);
   ...

schon beim Kopieren in ms ist das Array Vorlage.Felder, was damit ja eigentlich überhaupt nichts zu tun hat, leer!

Ciao
Stefan

[sko1]

Zitat:

Datenhaltepunkt...hallo? Irgendwer? Beitrag Nummer 3?

ich debugge ja, was willst Du mir denn eigentlich damit sagen?

Ciao
Stefan

[TiGü]

Zitat von sko1:

Zitat:

Datenhaltepunkt...hallo? Irgendwer? Beitrag Nummer 3?

ich debugge ja, was willst Du mir denn eigentlich damit sagen?

Ciao
Stefan

Hast du das Tutorial angeschaut?
Ein Datenhaltepunkt ist kein normaler roter Haltepunkt!
Du kannst explizit auf dein Array einen Datenhaltepunkt setzen und das Programm hält an, wenn auf der Adresse geschrieben wird.
Anhand des Call Stacks wirst du dann sicherlich schlauer.

[sko1]

Leider macht mich das überhaupt nicht schlauer, nur dümmer

Ich habe jetzt die Memorystreams in den Settings durch Strings ersetzt, welche ich an den entsprechenden Stellen dann wieder in einen Stream lade oder den Stream in String konvertiere.
Das Array bleibt ganz auch während des Wegschreibens in die Datenbank (FDQuery.fieldbyname('...').asstring aber dann beim FDQuery.Post ist das Array wieder weg!

Das kann doch alles nicht wahr sein!

Kommentiere ich das Schreiben dieser langen Strings aus ist nach Post alles noch in Ordnumg!

So langsam komme ich zu dem Eindruck, dass die FDQuery irgendwelche Probleme mit langen Feldinhalten hat?

Nur wie komme ich jetzt weiter?

Ciao
Stefan

[TiGü]

Zitat von sko1:

Leider macht mich das überhaupt nicht schlauer, nur dümmer

Wenn du nicht genau verstanden hast wie es geht, dann frage doch einfach nach?!

Guck mal bitte hier ab Minute 31:30:
https://www.youtube.com/watch?v=eqs27gB7Zms

Zitat von sko1:

Nur wie komme ich jetzt weiter?

Probiere mal folgendes.

Mache aus:

Delphi-Quellcode:

type
  TVorlage = class
  private
  public
    Filename: string;
    Settings: TSettings;
    Felder : Array of TFeld;

Jenes:

Delphi-Quellcode:

TWorkaround = class
public
  Felder : Array of TFeld;
end;

type
  TVorlage = class
  private
  public
    Filename: string;
    Settings: TSettings;
    FelderPerWorkaround :TWorkaround
...
  function GetFelder: Array of TFeld; 
...
function TVorlage.GetFelder: Array of TFeld;
begin
  Result := FelderPerWorkaround.Felder; 
end;

Das Array also in einer inneren Klasse "verstecken".

[hoika]

Hallo,
fehlt vielleicht irgendwo ein TXStream.Create?

[sko1]

So, endlich kann ich positive Rückmeldung geben!

Die Datenbank war nicht das eigentliche Problem, wie FastMM4 mir mitgeteilt hat.
Problemursache war das Array of TSonderfeld wobei

Delphi-Quellcode:

type
  TSonderfeld = record
    Feld1: integer;
    Feld2: integer;
    ...
  end;

ein primitiver Record war.
Diesen habe ich jetzt in eine Klasse gepackt und benutze nun ein Array dieser Klasse.

Warum ein Array aus Records hier Probleme gemacht hat (es gibt auch weitere solche Arrays ohne negative Effekte) und die Probleme nun als Klassen-Array beseitigt sind, entzieht sich allerdings meiner Kenntnis...

Ich werde auf jeden Fall vorsorglich auch die anderen Records als Klassen deklarieren!

Ciao
Stefan