Komischer Datenbankeffekt

[sko1]

Hallo,

ein besserer Threadtitel fiel mir nicht ein, ich debugge seit Stunden und komme nicht weiter:

Folgender Ablauf:
Es gibt eine global deklarierte Klasse, welche unter anderem ein Array beinhaltet.
Dieses wird beim Erstellen der Klasse mit SetLength eingestellt und gefüllt.

Nun speichere ich in einer SQLite-DB folgendermaßen:

- Tabellen anlegen
- Tabellen füllen

Jedes Tabelle füllen erzeugt eine Connection zur DB, füllt die Tabelle und Destroid diese Connection wieder.
Das Füllen der ersten Tabellen funktioniert, bei der dritten Tabelle ist beim .Connected := true der FDConnection plötzlich das Array leer (High()=-1)!!!!!

Da ich absolut keinen Zusammenhang sehe, das Tabelle füllen bei den ersten Malen funktioniert, bin ich mit meinem Latein am Ende!

Hat irgend jemand eine Idee wo ich ansetzen könnte?

Ciao
Stefan

[sakura]

Das eine hat sehr wahrscheinlich nichts mit dem anderen zu tun... Aber ohne den Source Code wird das hier ein Jahrmarktsraten...

......

[TiGü]

Guck dir mal das Tutorial an:
http://www.delphipraxis.net/41047-tu...ortgeschr.html

Speziell der Abschnitt Datenhaltepunkte.
Damit kannst du eventuell herausfinden, wann und warum dein Array verändert wird.

[sko1]

Jetzt habe ich mal etwas entdeckt, aber warum das so ist, vielleicht weiß jemand etwas:

Den kompletten (sehr umfangreichen) Code kann ich leider nicht zur Verfügung stellen, ich versuche mal zu skizzieren:

global deklariert:

Delphi-Quellcode:

type
  TFeld = record
    Eintrag1: integer;
    Eintrag2: integer;
    ...
  end;

type
  TSettings = record
    Eintrag1: integer;
    Eintrag2: integer;
    Stream1 : TMemoryStream;
    Stream2 : TMemoryStream;
    ...
  end;

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

Zum Schreiben in die Datenbank folgender Codeschnipsel:

Delphi-Quellcode:

    Vorlage.Settings.Stream1.Position := 0;
    TBlobfield(FDQuery.FieldByName('Stream1'))
          .LoadFromStream(Vorlage.Settings.Stream1);
      end;

und mit dieser Zeile LoadFromStream... ist das Array of TFeld leer!

Kann jemand damit etwas anfangen?

Ciao
Stefan

[sakura]

Bist Du Dir sicher, dass das Feld als TBlobfield erstellt wurde? Überprüfe mal den Datentyp.

......

[sko1]

ich denke schon, das Speichern / Laden der Streams hat ja vorher funktioniert, jetzt möchte ich zusätzlich das Array speichern und es wird dabei zerstört!

SQL.TEXT := 'CREATE TABLE IF NOT EXISTS [Vorlage] (Seite INTEGER, Stream1 BLOB, .......);';

Ciao
Stefan

[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