Muito simples, coloque as fotos em um diretório comum para todos na rede.

 

De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Carlos
Enviada em: segunda-feira, 19 de maio de 2008 16:58
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Gravar e visualizar imagem do banco de dados

 

Boa tarde a todos!!
Solicito ajuda aos colegas com mais este problema:
Tem um sistema que captura uma foto com o caminho do banco de dados e 
apresenta para o usuário. Até ai tudo bem, mas o problema é que este 
sistema é usado na rede, e caso o usuário tente visualizar a imagem 
em uma máquina diferente de onde estão as imagens, ocorre um erro 
porque ele não encontra o caminho.
Alguém poderia me dar uma ajuda neste sentido, com um tutorial, ou 
link...por favor...
Uso DBExpress, MySql 5.0, Delphi 7.

//Este é o código para exibir a imagem
dmCadastro.cdsFotos.Close;
dmCadastro.cdsFotos.Params[0].Value :=
dmCadastro.cdsEfetivorf.Value;
dmCadastro.cdsFotos.Open;
if not (dmCadastro.cdsFotos.IsEmpty) then
imgFoto.Picture.LoadFromFile(dmCadastro.cdsFotosfoto.Value)
else
imgFoto.Picture := nil;

//Este é o código que salva a imagem
if dlgOpenPicFoto.Execute then
begin
dmCadastro.cdsFotos.Insert;
dmCadastro.cdsFotosrf.Value :=
dmCadastro.cdsEfetivorf.Value;
imgFoto.Picture.LoadFromFile(dlgOpenPicFoto.FileName);
dmCadastro.cdsFotos.FieldByName('Foto').AsString :=
dlgOpenPicFoto.FileName;
dmCadastro.cdsFotos.Post;
end;

Agradeço antecipadamente a atenção dispensada.
att
Carlos

 



[As partes desta mensagem que não continham texto foram removidas]

Responder a