Como gravar o caminho da imagem no banco
Bom dia
Estou trabalhando com Delphi 6 e Interbase, tenho um cadastro de funcionários aonde eu tenho um campo chamado foto no banco é um campo blob, só que o DBimage do Delphi só grava imagem .bmp e o banco está ficando grande de mais, fiquei sabendo que eu posso só gravar o caminho do banco, bem já concegui fazer com que grave só o caminho da imagem segue abaixo o codigo
procedure TDM.DS_FUNC_ADataChange(Sender: TObject; Field: TField);
begin
FormCadastros.Image12.Picture.LoadFromFil(dm.TB_FUNC_AFOTOS2.AsString);
end;
mas quando eu rodo a aplicação da pau, violação de acesso ao endereço,
o mais engraçado é que depois a imagem é carregada
certo de que serei atendido, agradeço desde já
Estou trabalhando com Delphi 6 e Interbase, tenho um cadastro de funcionários aonde eu tenho um campo chamado foto no banco é um campo blob, só que o DBimage do Delphi só grava imagem .bmp e o banco está ficando grande de mais, fiquei sabendo que eu posso só gravar o caminho do banco, bem já concegui fazer com que grave só o caminho da imagem segue abaixo o codigo
procedure TDM.DS_FUNC_ADataChange(Sender: TObject; Field: TField);
begin
FormCadastros.Image12.Picture.LoadFromFil(dm.TB_FUNC_AFOTOS2.AsString);
end;
mas quando eu rodo a aplicação da pau, violação de acesso ao endereço,
o mais engraçado é que depois a imagem é carregada
certo de que serei atendido, agradeço desde já
Eder.lopes
Curtidas 0
Respostas
Fórum Vini
05/05/2004
Olá,
se você vai guardar somente o caminho para a imagem, o seu campo naum precisa mais ser BLOB, e sim varchar. Depois de trocar o tipo do campo, utilize esse código:
Espero ter ajudado,
Vinicius;
se você vai guardar somente o caminho para a imagem, o seu campo naum precisa mais ser BLOB, e sim varchar. Depois de trocar o tipo do campo, utilize esse código:
DM.Sua_Tabela.FieldByName(´Seu_Campo´).asString:= ´C:\imagem.jpg´;
Espero ter ajudado,
Vinicius;
GOSTEI 0
Fer_nanda
05/05/2004
Uma dica: se vc armazena todas suas imagens num mesmo diretório, pode deixá-lo pré-definido, ou colocar em um arquivo de inicialiazação, aí vc grava no banco só o nome da imagem.
Pra chamar a imagem depois vc concatena os dois, por exemplo
wsipservidor:=´\\127.0.0.1\´
wspathimagem := ´c\sistema\´
wsipservidor+wspathimagem+DM.Sua_Tabela.FieldByName(´Seu_Campo´).asString);
cheers =)
Pra chamar a imagem depois vc concatena os dois, por exemplo
wsipservidor:=´\\127.0.0.1\´
wspathimagem := ´c\sistema\´
wsipservidor+wspathimagem+DM.Sua_Tabela.FieldByName(´Seu_Campo´).asString);
cheers =)
GOSTEI 0