Fórum Erro gravar RTF em Blob com Firebird #270660

Olá amigos,

estou desenvolvendo um sistema que tem um editor de texto formato RTF, o banco de dados é firbird, o campo da tabela é Blob, domain (texto) subtype (text), acontece que, na hora de gravar apresenta este erro.

´Dynamic SQL error SQL error code=-804 Data Type unknown.´

A rotina de de carregar o texto é seguinte:

Stream := TMemoryStream.Create;
with tFmEditor.create(self) do
try
DM.QryTipoEscrituraTEXTO.SaveToStream(Stream);
Stream.Position := 0;
Text1.Lines.LoadFromStream(Stream);
showmodal;
Stream.Clear;
Text1.Lines.SaveToStream(Stream);
Stream.Position := 0;
finally free;
end;
DM.QryTipoEscritura.Edit;
DM.QryTipoEscrituraTEXTO.LoadFromStream(Stream);
DM.QryTipoEscritura.Post;

Este erro aparece quando executo o post.

Estou utilizando o zeoslib. ZQuery, ZUpdateSQL.

update tipoescrituras set
tipoescrituras.CODIGO = :CODIGO,
tipoescrituras.DESCRICAO = :DESCRICAO,
tipoescrituras.TEXTO = :TEXTO
where
((tipoescrituras.CODIGO is null and :OLD_CODIGO is null) or
(tipoescrituras.CODIGO = :OLD_CODIGO)) and
((tipoescrituras.DESCRICAO is null and :OLD_DESCRICAO is null) or
(tipoescrituras.DESCRICAO = :OLD_DESCRICAO))


Muito grato

Silvio Guedes[/img]