Problemas ao usar Image1.Picture.LoadFromFile
Caros colegas,
Image1.Picture.LoadFromFile(´C:\Meus Documentos\Tema\Contas.Jpg´);
Gostaria de substituir o caminho especificado acima por uma váriavel que contivesse o referido caminho, então procedi assim:
procedure TFormContas.FormShow(Sender: TObject);
Const caminho: String = ´C:\Meus Documentos\Tema\Contas.Jpg´;
begin
inherited;
Image1.Picture.LoadFromFile(caminho);
end;
Daí ocorre um erro EAcess Violation with message ´Acess Violation at adress 004E484E...´.
O programa trava e tenho de reiniciar o computador, e mesmo voltando como estava antes o erro persiste, e tenho que substituir os arquivos .PAS e .DFM pelo backup para voltar a funcionar.
Alguém pode me explicar porque isso ocorre e como deverei proceder.
Obs.: Já tentei usar Var ao invés de Const, mas deu o mesmo problema.
Obrigado,
Marcello.
Image1.Picture.LoadFromFile(´C:\Meus Documentos\Tema\Contas.Jpg´);
Gostaria de substituir o caminho especificado acima por uma váriavel que contivesse o referido caminho, então procedi assim:
procedure TFormContas.FormShow(Sender: TObject);
Const caminho: String = ´C:\Meus Documentos\Tema\Contas.Jpg´;
begin
inherited;
Image1.Picture.LoadFromFile(caminho);
end;
Daí ocorre um erro EAcess Violation with message ´Acess Violation at adress 004E484E...´.
O programa trava e tenho de reiniciar o computador, e mesmo voltando como estava antes o erro persiste, e tenho que substituir os arquivos .PAS e .DFM pelo backup para voltar a funcionar.
Alguém pode me explicar porque isso ocorre e como deverei proceder.
Obs.: Já tentei usar Var ao invés de Const, mas deu o mesmo problema.
Obrigado,
Marcello.
Marcello
Curtidas 0
Respostas
Anonymous
06/04/2003
oi, td bem?
pelo que vi o seu codigo esta correto, so achei uma coisa que pode estar errada, na declaracao da constante deve ser
CONST CAMINHO = ´C:\...´ e não CONST CAMINHO : STRING = ´...´
tomara que tenha ajudado, valeu
pelo que vi o seu codigo esta correto, so achei uma coisa que pode estar errada, na declaracao da constante deve ser
CONST CAMINHO = ´C:\...´ e não CONST CAMINHO : STRING = ´...´
tomara que tenha ajudado, valeu
GOSTEI 0
Anonymous
06/04/2003
Coloque JPEG na clausula Uses
GOSTEI 0