Erro Invalid Blob Length - Delphi 7 / Firebird 1.5

Delphi

Banco de Dados

Firebird

17/01/2018

Ola, Estou tendo um prblema no software q estou desenvolvendo que esta acontecendo o seguinte erro 'Invalid Blob Length'.
Estou utilizando o Delphi 7 com o Firebird 1.5
O que esta acontecendo é o seguinte: fiz uma lógica para abrir uma Dialogbox p/ o usuario selecionar um arquivo e este ser gravado no FB, o problema acontece com arquivos maiores de 200kb
Segue o código do botão adicionar anexos:
If OpenDialog1.Execute Then
dtmDados.tblArquivos.Open;
dtmDados.tblArquivos.Append;
dtmDados.tblArquivos.FieldByName('COD_SOLICIT').Value := dtmDados.qrSolicitacoesCOD.Value;
dtmDados.tblArquivos.FieldByName('NOME_ARQ').AsString := ExtractFileName(OpenDialog1.FileName);
dtmDados.tblArquivosARQUIVO.LoadFromFile(OpenDialog1.FileName);
dtmDados.tblArquivos.ApplyUpdates;
dtmDados.tblArquivos.CommitUpdates;
dtmDados.qrArquivos.Close;
dtmDados.qrArquivos.ParamByName('pCod').Value:=dtmDados.qrSolicitacoesCOD.Value;
dtmDados.qrArquivos.Open;

Alguem pode me ajudar por favor, ja olhei muitos topicos mas nada ajudou.
Obrigado
Fabricio
Fabricio Pereira

Fabricio Pereira

Curtidas 0
POSTAR