Array
(
)

Gravar/Recuperar Campo Imagem no SQL Server

Anddibo
   - 19 dez 2005

Olá

Como proceder?


[]´s
Anderson


Marcio.theis
   - 20 dez 2005

Poderia ser mais explicativo ?


Anddibo
   - 20 dez 2005


Citação:
/]@t´]Poderia ser mais explicativo ?


Sim.

É o seguinte: considere uma tabela no SQL Server com um campo para armazenar imagem do tipo IMAGE.

Como eu poderia fazer, no meu sistema (escrito em Delphi 5.0), acessando via BDE, gravar uma imagem neste campo e, posteriormente, recuperá-la do banco.

Estou tentando gravar da seguinte forma:


Query.ParamByName(´qImagem´).AsBlob := ???
Query.ExecSQL;


Comando SQL da Query:

´INSERT INTO MinhaTabela (Imagem) VALUES (:qImagem)´


[]´s
Anderson


Marcio.theis
   - 20 dez 2005

Para gravar vc pode usar:

#Código

Query.Insert;
QueryFIGURA.LoadFromFile(OpenPictureDialog.FileName);
Query.Post;


E depois para mostrar, vc pode fazer:

#Código
arq: String; \\Variável com o local on pode salvar a imagem de forma temporária

QueryFIGURA.SaveToFile(arq);\\Salva para o arquivo
Imagem.Picture.LoadFromFile(arq);\\Carrega a imagem em uma TImage
DeleteFile(arq);\\Deleta a imagem