SQLiteDB und BLOB(text) auslesen

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