Problemas com o IMAGE

Delphi

26/02/2008

Olá gostaria de saber se alguem pode me ajudar com este problema:
Estou tentando criar um organizador de filmes, onde nele coloco foto,quantidade de cds etc. Mas estou com um problema que vou relatar logo abaixo:
1- criei um form principal onde nele coloquei um menu que dará acesso a outros forms;
2- criei três forms com diferentes funções, uma para apagar um registro de um filme, outro para adicionar e outro para modificar;
3- quando acesso o form para modificar um registro de um filme as figuras são carregadas normalmente pelo IMAGE;
4-Quando adiciono um registro com foto e logo depois carrego o form para modificar algum outro registro, as imagens não são carregas no IMAGE.
5- as fotos estão sendo carregadas no Image através do caminho guardado num banco de dados;
6- estou guardando o caminho da seguinte forma:
´.\fotos\nome do arquivo.jpg´
desde já obrigado pele Ajuda


Marceloassilva

Marceloassilva

Curtidas 0

Respostas

Marceloassilva

Marceloassilva

26/02/2008

segue o código que utilizo para mostra a figura através do banco de dados:
´procedure TfrmDELfilm.DataSource8DataChange(Sender: TObject;
Field: TField);
begin
if table8.FieldByName(´FOTO´).AsString <> ´´ then
begin
if FileExists(table8.FieldByName(´FOTO´).AsString) then
Image3.Picture.LoadFromFile(table8.FieldByName(´FOTO´).AsString)
else
Image3.Picture := nil;
end
else
Image3.Picture := nil;
end;
´
Agora segue o código que utilizao para guardar o caminho no banco de dados:
procedure TfrmADDFilm.Button1Click(Sender: TObject);
begin
if DATAMODULE12.table1.State in [dsInsert,dsEdit] then

begin
{ Recuperar o NOME do Arquivo }
OpenDialog1.Execute;
Edit1.Text := ExtractFileName(OpenDialog1.FileName);
{ Procurar a IMG }
Label6.Caption := ´.\FOTOS\´ + Edit1.Text;
DATAMODULE12.table1.FieldByName(´FOTO´).AsString := Label6.Caption;
Image2.Picture.LoadFromFile(EDIT1.Text);
END;
END;


GOSTEI 0
Djjunior

Djjunior

26/02/2008

2 coisas
1º pq não guardar a imagem propriamente dita no banco? é só usar um campo tipo blob e um dbImage

2º não exibe a imagem mais dá algum erro? qual ?
tente ver o seguinte
if FileExists(table8.FieldByName(´FOTO´).AsString) then 
   Image3.Picture.LoadFromFile(table8.FieldByName(´FOTO´).AsString) 
else 
   showMessage(´Imagem não encontrada em : ´ + table8.FieldByName(´FOTO´).AsString);
end


algo que pode estar acontecendo é que ele não está achando a imagem com isso vc pode verificar se o caminho está correto etc.


GOSTEI 0
Marceloassilva

Marceloassilva

26/02/2008

Não dá erro nenhum apenas o IMAGE deixa de carregar as fotos, não as guardo no BD porque o BD fica muito grande!


GOSTEI 0
POSTAR