Por que ocorre esse erro?
Tenho várias fotos(bmp) as quais desejo acessar relacionadas a nomes de pessoas num banco de dados através da seguinte procedure:
Acontece que consigo acessar somente 1 foto, e quando navego no DBLookUpComboBox no proximo nome correspondente a próxima foto dá uma exception: Project.exe raised exception class EInvalidGraphic With message ´BitMap Image Is not valid.´
Como posso fazer para corrigir meu código e conseguir acessar os nomes no DBLookUp e a foto ao componente correspondente do DBLookUp?
procedure TFormLocalizar.DBLookupComboBoxNomeClick(Sender: TObject);
var VarNome: String;
VarCod: Integer;
begin
inherited;
VarNome:=DM.Tab_Cadastronome.Text;
VarCod:=DM.Tab_CadastrocodUsuario.Value;
if FileExists(´C:\Documents and Settings\antoniob\cpuAntiga\Mauricio\Delphi\ProjetoBDAM\´+VarNome+IntToStr(VarCod)+´.bmp´) then
begin
ImageUsuario.Picture.LoadFromFile(´C:\Documents and Settings\antoniob\cpuAntiga\Mauricio\Delphi\ProjetoBDAM\´+VarNome+IntToStr(VarCod)+´.bmp´);
end;
if not FileExists(´C:\Documents and Settings\antoniob\cpuAntiga\Mauricio\Delphi\ProjetoBDAM\´+VarNome+IntToStr(VarCod)+´.bmp´) then
begin
ImageUsuario.Picture.Assign(nil);
//showMessage(VarNome+intToStr(VarCod));
end;
end;
Acontece que consigo acessar somente 1 foto, e quando navego no DBLookUpComboBox no proximo nome correspondente a próxima foto dá uma exception: Project.exe raised exception class EInvalidGraphic With message ´BitMap Image Is not valid.´
Como posso fazer para corrigir meu código e conseguir acessar os nomes no DBLookUp e a foto ao componente correspondente do DBLookUp?
Mauriciocuri
Curtidas 0