Fórum Dúvida com RichEdit (Imagem e Texto) #365314

uses DB;
...
//Gravar em um campo Blob
var
  FStream: TMemoryStream;
begin
  FStream := TMemoryStream.Create;
  try
    RichEdit1.Lines.SaveToStream(FStream);
    if not IBTransaction1.InTransaction then
      IBTransaction1.StartTransaction;
    IBQuery1.SQL.Clear;
    IBQuery1.SQL.Add(´Update Textos set tex_texto = :MeuParametro´);
    IBQuery1.ParamByName(´MeuParametro´).LoadFromStream(FStream, ftBlob);
    IBQuery1.ExecSQL;
    IBTransaction1.CommitRetaining;
  except
    on E: Exception do
    begin
      ShowMessage(E.Message);
    end;
  end;
  FStream.Free;
end;
...
// Ler um campo Blob
var
  FStream: TMemoryStream;
begin
  FStream := TMemoryStream.Create;
  try
    IBQuery1.SQL.Clear;
    IBQuery1.SQL.Add(´Select tex_texto from Textos´);
    IBQuery1.Open;
    FStream.CopyFrom(IBQuery1.CreateBlobStream(IBQuery1.FieldByName(´tex_texto´), bmRead), 0);
    RichEdit1.Lines.LoadFromStream(FStream);
  except
    on E: Exception do
    begin
      ShowMessage(E.Message);
    end;
  end;
  FStream.Free;
end;