Olá pessoal...
Olha só eu to com um problema aqui pra inserir uma imagem no banco. Eu já
pesquisei várias opções na web ,mas nenhuma me ajudou. Será q alguém pode me
ajudar?
Eu to usando Delphi2005 + Fibplus 6.25 + Firebird 1.5 Eu sei q do Firebird
não é, pois eu consegui inserir direto.
No banco foi criado um Domain para o campo blob. A ultima opção de código
que eu tentei foi essa (peguei num fórum de ajuda do interbase)
============================================================================
==============================================
procedure TdmBD.SalvarImagem(ATela: TBitmap; ADescricao: String; AvaAtnd:
integer);
var
strm: TStream;
begin
tras.StartTransaction;
strm := TStream.Create;
qryInsertImagem.Prepare;
try
Atela.SaveToStream(strm);
qryInsertImagem.ParamByName('DESCRICAO').AsString := ADescricao;
qryInsertImagem.ParamByName('AVALIACAO_ATENDIMENTO_ID').AsInteger :=
AvaAtnd;
qryInsertImagem.ParamByName('IMAGEM').LoadFromStream(strm);
qryInsertImagem.ExecQuery;
tras.Commit;
except
on E: Exception do
begin
tras.Rollback;
end;
end;
strm.Free;
strm.Destroy;
end;
============================================================================
==============================================
Qdo executo ele dá um erro ABSTRACT ERROR, e eu não sei o q fazer, já
pesquisei várias soluções, mas todas são muito parecidas.
Se alguém puder me ajudar eu agradeço...
[As partes desta mensagem que não continham texto foram removidas]
