Imagens No Delphi

[Marcelo K.]

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...

[Corposemalma]

Poe um componente de imagem e:

CompImage.loadfromfile(caminho\ + LugarOndeEstaONumero)

Ou você pode tambem colocar a imagem dentro do banco de dados com um campo especial

[Marcelo K.]

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..

[Corposemalma]

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);

[Marcelo K.]

eu fiz isso mas a imagem não aparece ...

não precisa colocar a extenção do arquivo??

por exemplo 123456789.jpg

[Corposemalma]

Vamos por partes então:

* Onde você está armazenando o nome da figura?

* Como você está armazenando o nome da figura?

[DELPHI-Man32]

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;