Gravar Imagem em campo Blob e FB

Firebird

16/01/2006

Ola amigos Delphianos...

Estou tentando gravar uma imagem tipo jpg em um campo blob ( FOTO BLOB SUB_TYPE 2 SEGMENT SIZE 80, ) atraves da procedure q contem a seguinte linha ( Dm.spGAMembros.ParamByName(´PFOTO´).LoadFromFile(OpenPictureDialog1.FileName,ftBlob); ) e ja tentei tambem (Dm.spGAMembros.ParamByName(´PFOTO´).LoadFromStream(Stm,ftblob);)
e ambas as opções me retornam o seguinte erro durante a gravação:
EIBClientError With Message: ´Trying to store a string of length 10001 into to a field that can only contain 255´;

Delphi 7 + FB 1.5 + Ibx e o componente Image

Alguem poderia me dar uma ajuda para esse problema?

Desde ja agradeço.

Márcio


Mmcamilo

Mmcamilo

Curtidas 0

Respostas

Edilcimar

Edilcimar

16/01/2006

já tentou gravar usando assign?


GOSTEI 0
Mmcamilo

Mmcamilo

16/01/2006

Como seria utilizando assign?


GOSTEI 0
Edilcimar

Edilcimar

16/01/2006

para salvar
FieldByName(´FOTO´).Assign(Image1.Picture.Graphic);
para carregar
Image1.Picture.Assign(FieldByName(´FOTO´));


GOSTEI 0
Mmcamilo

Mmcamilo

16/01/2006

Agora esta com a seguinte mensagem de erro:

Cannot assign a Nil to a TParam...


GOSTEI 0
Edilcimar

Edilcimar

16/01/2006

porque não tem nada no campo ou na imagem que está tentando gravar, faça uma verificação antes para ver se o campo não está em branco


GOSTEI 0
Mmcamilo

Mmcamilo

16/01/2006

Ok vou verificar aqui e acredito que agora dara certo.

Muito obrigado pela ajuda.

Márcio


GOSTEI 0
POSTAR