Antes de executarmos o processo, fique bem claro que no banco de dados você ja deva ter criado uma coluna chamada "foto" ou imagem, etc... Isto facilita quando incluimos os DataFields arrastando-os do DataSet para o form, pois eles já virão com as suas determinaçoes (número, texto, data, picture, etc).

Vamos aos passos:

1. Coloque um obejto "OpenPictureDialog";
2. Insira um botão e de o nome de Abrir ou Procurar. Na propriedade Caption desse botão coloque "Procurar Foto" ou o que você preferir;
3. Preste atenção no nome do objeto OpenPictureDialog. Geralmente chama-se "OpenPictureDialog1" e não precisamos alterar seu nome, apenas se preferir;
4. Na propriedade FileName do objeto OpenPictureDialog, coloque o diretório C:\Minhas Imagens (ou D:\, dependendo de como está seu HD :);
5. Faça o mesmo com a propriedade InitialDir;
6. Na propriedade Filter, delete todas, menos a .BMP;
7. No DataField determinado para a foto, dê o nome de FOTO;
8. Na propriedade "Stretch" defina True, para a foto ser reajustada para o tamanho do DataField;

Pronto. Agora, de um duplo clique no botão e digite o código abaixo.

procedure TNomedoForm.AbrirClick(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then
    Foto.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

Observação: como dito anteriormente, desta maneira podemos trabalhar apenas com imagens no formato .BMP.

Aperte F9 e faça o teste.

Um programa exemplo com esta estrutura pode ser encontrado no diretório Demos da instalação do seu delphi:

Até a versão 7:

[%DELPHI%]\Demos\Db\FishFact

A partir da versão 2005 (Normalmente neste diretório, entretanto, pode ter sido alterado no momento da instalação):

C:\Documents and Settings\All Users\Documentos\RAD Studio\XX\Demos\DelphiWin32\VCLWin32\Db\FishFact

Onde XX depende da versão do delphi 5.0 para o 2007, 4.0 para o 2006 e assim por diante!

Abraços!

Por: zelu
Contato: zelucom@hotmail.com