SQLiteDB und BLOB(text) auslesen

[DeddyH]

Und wenn Du das Feld zunächst in einen BLOBStream liest und von da in einen StringStream kopierst? Leider kenne ich mich mit ZEOS nicht aus, aber ich hoffe (vermute), die können mit TBLOBStream umgehen.

[Bernhard Geyer]

Ich tipp auf einen ZEOS-Fehler. Läne string wird mit Stream.size initialisisert aber daten mit Stream.size div SizeOf(Char) gelesen ...

[Werwurm]

Hallo DeedyH,

Zitat:

Und wenn Du das Feld zunächst in einen BLOBStream liest und von da in einen StringStream kopierst? Leider kenne ich mich mit ZEOS nicht aus, aber ich hoffe (vermute), die können mit TBLOBStream umgehen.

Kannst Du mir ein wenig mehr Informationen geben?
Wie bekomme ich die Daten wieder aus dem TStringStream wieder zur Laufzeit auslesen? Oder muss ich diese dann einer Komponente (z.B. TDBMemo) zuweisen?

Hallo Bernhard,

Zitat:

Ich tipp auf einen ZEOS-Fehler. Läne string wird mit Stream.size initialisisert aber daten mit Stream.size div SizeOf(Char) gelesen ...

Das heißt für mich?
Hast Du eventuell andere (bessere) Vorschläge den lesenden Zugriff auf die SQLite DB zu realisieren?

[Bernhard Geyer]

Zitat von Werwurm:

Kannst Du mir ein wenig mehr Informationen geben?
Wie bekomme ich die Daten wieder aus dem TStringStream wieder zur Laufzeit auslesen? Oder muss ich diese dann einer Komponente (z.B. TDBMemo) zuweisen?

Woher kommt TStringStream? Hast du wirklich ein Blob oder doch ein Textblob?
Poste doch mal etwas mehr Code

Zitat von Werwurm:

Das heißt für mich?
Hast Du eventuell andere (bessere) Vorschläge den lesenden Zugriff auf die SQLite DB zu realisieren?

Siehe post von DeddyH

[DeddyH]

Aus dem Kopf, Fehler vorbehalten:

Delphi-Quellcode:

var
  BStream: TStream;
  SStream: TStringStream;
begin
  BStream := CreateBlobStream(Feld, bmRead);
  try
    SStream := TStringStream.Create;
    try
  //    SStream.Encoding := <Passendes aussuchen>;
      SStream.CopyFrom(BStream, 0);
      ShowMessage(SStream.DataString);
    finally
      SStream.Free;
    end;
  finally
    BStream.Free;
  end;
end;

[Werwurm]

Hallo DeedyH,

habe Deinen Ansatz probiert:

Delphi-Quellcode:

Var i: Integer;
  BStream: TStream;
  SStream: TStringStream;

begin
  DM.ZCon.Connect;
  DM.ZQ_Alben.SQL.Clear;
  DM.ZQ_Alben.SQL.Add('select titlesort, title from albums;');

  DM.ZQ_Alben.Open;
  DM.ZQ_Alben.First;
  ShowMessage(IntToStr(DM.ZQ_Alben.RecordCount)); // Nur um zu sehen ob DB-Verbindung läuft
  BStream := DM.ZQ_Alben.CreateBlobStream(DM.ZQ_Alben.FieldByName('title'), bmRead);

  try
    SStream := TStringStream.Create;
  try
      //SStream.Encoding.ASCII;
      //SStream.Encoding.UTF8;
      //SStream.Encoding.UTF7;
      //SStream.Encoding.Unicode;
      //SStream.Encoding.BigEndianUnicode;
      //SStream.Encoding.Default;
 // Alle Varianten bringen dasselbe Ergebnis :-(
       

      SStream.CopyFrom(BStream, 0);
      ShowMessage(SStream.DataString);
    finally
      SStream.Free;
    end;
  finally
    BStream.Free;
  end;
  DM.ZQ_Alben.Close;
  DM.ZCon.Disconnect;
end;

Leider alles mit dem selben Erfolg. Die Daten werden nach wie vor falsch ausgegeben.

Vielleicht nochmal die Frage ob andere/bessere Alternativen zu ZEOS gibt?
An der DB kann ich leider nicht ändern...

[Bernhard Geyer]

Welchen Wert hat BStream.Size?

[DeddyH]

Zur Not kann man auch hier einmal nachsehen: http://www.torry.net/quicksearchd.ph...lite&Title=Yes Das letzte Ergebnis auf der ersten Seite liest sich ganz vielversprechend.