Salvando o Caminho das imagens
19/02/2003
0
Eu estou salvando o endereço das fotos
Exe. C:\Minhas Fotos\exemplo.bmp
Quando executo o programa local, funciona que e uma beleza.
Mas quando executo em rede não funciona, porque o meu banco de dados esta apontando para C:\Minhas Fotos\exemplo.bmp
Como devo fazer.
If ( OpenDialog1.Execute ) Then
Begin
with MODULO.Produto do
begin
MODULO.Produto.Edit; // passa a tabela para modo de edição
MODULO.ProdutoFoto.AsString := OpenDialog1.FileName;
FOTO.Picture.LoadFromFile( OpenDialog1.FileName );
end;
end;
Desde já obrigado.
Wolney Miranda de Oliveira
Exe. C:\Minhas Fotos\exemplo.bmp
Quando executo o programa local, funciona que e uma beleza.
Mas quando executo em rede não funciona, porque o meu banco de dados esta apontando para C:\Minhas Fotos\exemplo.bmp
Como devo fazer.
If ( OpenDialog1.Execute ) Then
Begin
with MODULO.Produto do
begin
MODULO.Produto.Edit; // passa a tabela para modo de edição
MODULO.ProdutoFoto.AsString := OpenDialog1.FileName;
FOTO.Picture.LoadFromFile( OpenDialog1.FileName );
end;
end;
Desde já obrigado.
Wolney Miranda de Oliveira
Wollney
Curtir tópico
+ 0
Responder
Posts
19/02/2003
Dor_poa
Cara... lhe recomendo vc. criar um SUBdiretorio com o nome FOTOS dentro do local de sua base de dados.
E sempre que o sistema for ter que ler a imagem ele captura o PATH de sua base de dados e adicniona o fotos.:
Ex.:
Path de sua Alias
\\servidor\sistema\bancos
ele ira capturar e adicionar em uma variavel e adicionar o fotos
Ex.:
VarPathFotos := \\servidor\sistema\bancos + ´\fotos\´
Pronto.. agora o máximo que deve fazer e saber o nome do arquivo e quando for abrir adicione a variavel + o nome do arquivo..
Ex.:
Imagem.Picture.LoadFromFile(VarPathFotos + ´nomeArquivo´);
/**************************
Ex. de como capturar o path da alias
DECLARA A VARIAVEL A SEGUIR
Var MyStringList : TStrings ;
Try
MyStringList := TStringList.Create ;
Session.GetAliasParams(´-> NOMEDESUAALIAS <-´, MyStringList) ;
PathFoto := Copy(MyStringList.Strings[0],6,Length(MyStringList.Strings[0])-11) + ´Fotos\´;
MyStringList.Free;
Except
End;
end;
OBS.: COLOCA ISTO NO EVENTO ONCREATE DOP FORM PRINCIPAL...
E NUNCA + ALTERA ESTA VARIAVEL NO SISTEMA...
E sempre que o sistema for ter que ler a imagem ele captura o PATH de sua base de dados e adicniona o fotos.:
Ex.:
Path de sua Alias
\\servidor\sistema\bancos
ele ira capturar e adicionar em uma variavel e adicionar o fotos
Ex.:
VarPathFotos := \\servidor\sistema\bancos + ´\fotos\´
Pronto.. agora o máximo que deve fazer e saber o nome do arquivo e quando for abrir adicione a variavel + o nome do arquivo..
Ex.:
Imagem.Picture.LoadFromFile(VarPathFotos + ´nomeArquivo´);
/**************************
Ex. de como capturar o path da alias
DECLARA A VARIAVEL A SEGUIR
Var MyStringList : TStrings ;
Try
MyStringList := TStringList.Create ;
Session.GetAliasParams(´-> NOMEDESUAALIAS <-´, MyStringList) ;
PathFoto := Copy(MyStringList.Strings[0],6,Length(MyStringList.Strings[0])-11) + ´Fotos\´;
MyStringList.Free;
Except
End;
end;
OBS.: COLOCA ISTO NO EVENTO ONCREATE DOP FORM PRINCIPAL...
E NUNCA + ALTERA ESTA VARIAVEL NO SISTEMA...
Responder
Clique aqui para fazer login e interagir na Comunidade :)