Fórum Erro Invalid Blob Length - Delphi 7 / Firebird 1.5 #590646

17/01/2018

0

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

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar