REVELAR

Fórum Gravar imagens em SQLServer #324075

22/06/2006

0

Amigos!

Uso o delphi5 com SQLServer2005. Estou tentando colocar uma imagem,
a qual eu scanneio e coloco em um componente TImage, que eu chamo de Iamge1.
Gostaria de saber como eu faço para passá-la diretamente em formato JPEG para o BD.
Usando o formato .bmp faço assim e dá certo:

[b:53a2911807] QDet_Capa.Parameters[1].Assign(Image1.Picture.Bitmap);[/b:53a2911807]

Porém se eu tento converter Image1 para .jpeg através de

[b:53a2911807]JPEG.Assign(Image1.Picture.Bitmap);[/b:53a2911807]

e tento carregar através de

[b:53a2911807]QDet_Capa.Parameters[1].Assign(JPEG);[/b:53a2911807]

eu obtenho uma mensagem de erro. QDet_Capa é um TADOCommand
que tem a seguinte instrução:

[b:53a2911807]insert into DETALHE_CAPA
(COD_PRODUTO, IMAGEM_CAPA, COMENTARIO_CAPA)
values
(:p1, :p2, :p3)[/b:53a2911807]

Pesquisei as mensagens do fórum e pelo que ví teria que salvar
a imagem no disco para depois chamá-la através de um
TFileStream... não tem como fazer isso sem salvar em disco e
carregar novamente?


Luis.wolff

Luis.wolff

Responder

Posts

23/06/2006

Luis.wolff

problema resolvido.. foi só usar um TMemoryStream.. Abraços...


Responder

Gostei + 0

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

Aceitar