imagem no cadastro

[dan_visualdm]

pessoal, andei pesquisando aqui no forum mais não achei nada tão especifico... gostaria de uma ajuda de vocês...

no meu cadastro quero poder inserir a foto de um produto, porém não quero que a foto fique armazenada no banco, quero que fique apenas o caminho, isso porque são milhares de produtos que serao cadastrado e o banco não aguentaria guardar todas essas imagens...

andei pesquisando algumas coisas de gravar so o caminho no banco, mais não entendi muito bem, por isso estou vindo aqui pedir uma forcinha...

vamos supor, uma imagem que esta na desktop, no meu cadastro eu clicaria em ABRIR FOTO, (opendialog) selecionaria a foto e automaticamente ele copiasse a foto para a pasta img_prod que é uma pasta que fica dentro do sistema, e gravasse somente o caminho no banco.

obrigado!

[Vivendo&Aprendendo]

Olá...

Para copiar a foto use este código no seu botão buscar foto:

Coloque no uses: ShellApi 

{ - Coloque um botão no form e altere o evento OnClick deste botão conforme abaixo:} 
procedure TForm1.Button1Click(Sender: TObject); 
var 
Dados: TSHFileOpStruct; 
begin 
FillChar(Dados,SizeOf(Dados), 0); 
with Dados do 
begin 
wFunc := FO_COPY; 
pFrom := PChar('c:\teste\*.txt'); 
pTo := PChar('a:\'); 
fFlags:= FOF_ALLOWUNDO; 
end; 
SHFileOperation(Dados); 
end;

Você deve alterar o código para que busque a imagem no local certo e salve na sua pasta. Para salvar somente o caminho no banco, supondo que você use ADO, e que a tabela e o campo já estejam criados, faça assim...

OpenPictureDialog.Execute;
  TABELA.EDIT;  
  TABELA_CAMPO.Value := OpenPictureDialog.FileName;
  TABELA.Post;

Dessa forma deve funcionar...

OBS.: não testei.

Abraços

[dan_visualdm]

olá amigo, valeu pela dica...

vou testar aqui e depois posto o resultado...

abraços!