Ir para conteúdo
Fórum Script Brasil
  • 0

Imagens No Delphi


Marcelo K.

Pergunta

Seguinte...alguém sabe como faço para colocar uma imagem de um arquivo (Ex. Foto.jpg) num form?

Eu tenho um formulário de cadastro e gostaria de relacionar a foto da pessoa que estara gravada em um diretorio ao formulario. No meu cadastro tem um campo q se chama Nº da Foto e esse numero é o mesmo nome da foto q estara na arquivo.

se alguém puder me ajudar agradeço...

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

O problema é que o nome da imagem q ficará no form irá mudar conforme o numero do cadastro.

Eu fiz da seguinte maneira:

Image1.Picture.LoadFromFile(GetCurrentDir()+'\Nome_da_Imagem.jpg');

Porém esse Nome_da_Imagem muda conforme o Nº da foto de cada pessoa.

Tem como alterar o Nome_da_Imagem na hora q o programa estiver rodando??

Agradeço..

Link para o comentário
Compartilhar em outros sites

  • 0

Image1.Picture.LoadFromFile(GetCurrentDir()+#);

onde # é:

* O componente(edit, dbedit, etc), ou

* O campo do banco de dados(tabela.fieldbyname(NomeDaColuna).asstring)

onde diz qual imagem é de quem....

Por Exemplo:

Image1.Picture.LoadFromFile(GetCurrentDir() + dados.tabela.fieldbyname('NomeImage').asstring);
Link para o comentário
Compartilhar em outros sites

  • 0

Código Completo:

declara após o type junto aos outros procedimentos!

Procedure Desenha(figura:String;H,V:Integer);

---------------

Procedure TForm1.Desenha(figura:String;H,V:Integer);

Var

Imagem :TBitMap;

begin

Imagem := TBitMap.Create;

Try

Imagem.LoadFromFile(Figura);

Canvas.Draw(H,V,Imagem);

Except

ShowMessage(' Arquivo não foi localizado !');

end;

end;

ExemploQuando o botão for clicado, uma imagem será inserida no formulário, nas coordenadas (10,20);

procedure TForm1.Button1Click(Sender: TObject);

begin

Desenha('c:\windows\bolhas.bmp',10,20);

end;

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...