Fórum Por que ocorre esse erro? #363426

31/08/2008

0

Tenho várias fotos(bmp) as quais desejo acessar relacionadas a nomes de pessoas num banco de dados através da seguinte procedure:
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

Mauriciocuri

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar