SQLiteDB und BLOB(text) auslesen

[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...