Salvando Campo Blob

[marcio-carneiro]

Olá, amigos,

Estou tentando salvar um memo, que no caso é o campo informações adicionais,

num campo blob no firebird. Mas não estou conseguindo.
Utilizo dbexpres, firebird 2,5 - delphi 7

Para fazer o insert/update no banco, utilizo stored procedure
No delphi quando executo a procedure dá erro:
'field num: 65535 not found'

E este erro está acontecendo quando coloco o parâmetro do campo blob:

... parameters[10].asblob:= 'Texto'

Qualquer ajuda será válida

 

Já vasculhei a internet e nada.

Se alguém poder disponibilizar alguma rotina ficaria grato.

O que estou querendo além de salvar o xml da nfe, mas principalmente, e salvar e poder

recuperar o conteúdo do campo infadicionais da nfe.

Marcio

[adilsonpazzini]

Vou pegar um exemplo que utilizo pra pegar a NFe e jogar pra dentro do banco e funciona normal .

 

procedure GRAVA_XML_BANCO(aQCAD:TQuery;aID_NFS:Integer;aNFE:TACBRNFe);
var
 aXML_ARQ : TStringStream;
begin
  try
   aXML_ARQ := TStringStream.Create('');

   //===> Rotina Incluida para Ver se campo nNF esta vazio ou não...
   if aNFE.Notasfiscais.Items[0].NFe.Ide.nNF = 0 then
    if trim(aNFE.Notasfiscais.Items[0].XML) <> '' then
     begin
      aXML_ARQ.WriteString(trim(aNFE.Notasfiscais.Items[0].XML));
      aNFE.NotasFiscais.clear;
      aNFE.Notasfiscais.LoadFromStream(aXML_ARQ);
     end;

   aNFE.NotasFiscais.Items[0].SaveToStream(aXML_ARQ);
   if aNFE.Notasfiscais.Items[0].NFe.Ide.nNF <> 0 then
    begin
     aQCAD.Close;
     aQCAD.SQL.CLEAR;
     aQCAD.SQL.ADD('UPDATE OR INSERT INTO FATNFSXML (ID_NFS,XMLNFE,DATA) VALUES (:ID_NFS,:XMLNFE,:DATA) MATCHING (ID_NFS)');
     aQCAD.ParamByName('ID_NFS').asinteger := aID_NFS;
     aQCAD.ParamByName('XMLNFE').LoadFromStream(aXML_ARQ,ftBlob);
     aQCAD.ParamByName('DATA').AsDateTime := now;
     aQCAD.EXECSQL;
    end;
  finally
   FreeAndNil(aXML_ARQ);
  end;
end;