Gravar campo blob no Firebird

[Pedro R Tortoro]

Boa tarde pessoal, não estou conseguindo gravar  campo blob no Firebird. Já vasculhei a internet, forums, testei todas as sugestões apresentadas e não tive sucesso. Já tentei com passagem de parâmetro, direto de campo DBMemo, com TMemoryStrem, LoadFromStream, no banco definindo como campo blob, campo blob text, etc, etc.

O que eu pretendo é gravar o retorno do envio dos lotes do eSocial, formatado de uma maneira parecida com o exemplo do ACBr, com as mensagens de erros de cada evento enviado.

Estou usando Delphi 2007 com DBExpress, banco Firebird 2.1 e o campo foi definido assim "CAMPOB     BLOB SUB_TYPE 1 SEGMENT SIZE 1024,"

A mensagem que apresenta é "incorrect values within SQLDA structure".

Alguém poderia me dizer qual a maneira correta de gravar campos blob ou outra maneira de armazenar o resultado e poder exibir posteriormente. ?

Grato

[arce]

Você pode gravar desta forma.

  qrExec.SQL.Add(' sql para gravar o xml ')
  qrExec.ParamByName('XML').Value := ACBreSocial.Eventos.Iniciais.S1005.Items[i].evtTabEstab.XML;
  qrExec.ExecSQL;

  qrEvento.SQL.Add('select da tabela gravada ');    
  qrEvento.Open;

  // Salva o XML do arquivo  
  TBlobField(qrEvento.FieldByName('XML')).SaveToFile('C:\evento_ret.xml');

 

[Pedro R Tortoro]

Oi Arce,

Obrigado pela resposta, mas o que eu preciso é gravar um TMemo (ou dbMemo) em um campo tipo Blob no Firebird, e isto não consigo. Pesquisei muito na internet e pelo que eu vi,  o Delphi 2007 não consegue gravar campos blob (ou memo) no firebird (2.1) utilizando os componentes do DBExpress, visto que estes componentes são próprios para o Interbase.

[Juliana Tamizou]

Boa tarde.

Este tópico está inativo a algum tempo e por isso será fechado, caso necessário favor criar um novo tópico.

Att.