Gravar/Recuperar Campo Imagem no SQL Server

Delphi

19/12/2005

Olá

Como proceder?


[]´s
Anderson


Anddibo

Anddibo

Curtidas 0

Respostas

Marcio.theis

Marcio.theis

19/12/2005

Poderia ser mais explicativo ?


GOSTEI 0
Anddibo

Anddibo

19/12/2005

[quote:a2ee1e9ab7=´/]/]@t´]Poderia ser mais explicativo ?[/quote:a2ee1e9ab7]

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


GOSTEI 0
Marcio.theis

Marcio.theis

19/12/2005

Para gravar vc pode usar:

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


E depois para mostrar, vc pode fazer:

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



GOSTEI 0
POSTAR