Gravar imagens em SQLServer

Delphi

22/06/2006

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

Curtidas 0

Respostas

Luis.wolff

Luis.wolff

22/06/2006

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


GOSTEI 0
POSTAR