Tópico: Como criar pastas e mover arquivos(.jpeg) com o delphi?

  Funcionou, so tive que fazer uma mudança, a parte em negrito. Aparentemente ele so consegue criar uma pasta, não estava sendo criada nenhuma pasta, depois que tentei azer ele colocar antes apenas a pasta 'Fotos' começou a funcionar. Vlw

var
Origem, Destino, caminho: string;

begin

 if not DirectoryExists('C:\Fotos') then
  CreateDir('C:Fotos');

caminho := 'C:\Fotos\' + DM.ADOQImoveis.FieldByName('ID').AsString;
if not DirectoryExists(caminho) then
CreateDir(caminho);
if OpenPictureDialog1.Execute then
begin
//Aqui pego o caminho inteiro inclusive com o nome do arquivo
origem := OpenPictureDialog1.FileName;
//Aqui pego somente o nome do arquivo com a extenção
Delete(Origem, 1, Length(ExtractFilePath(OpenPictureDialog1.FileName)));
Destino := caminho + '\' + origem;
CopyFile(PChar(Origem), PChar(Destino), False);
end;
end;

Outra duvida, pra mandar o caminho da imagem pro BD é so criar uma tabela com ID(auto), codImovel(integer) e Foto(Texto) e jogar o OpenPictureDialog1.FileName; pra dentro da Foto? O DBImage vai ler o caminho e mostrar a imagem normalmente?

PS: Li o seu artigo, achei muito legal, vou até implementar em um programa mais simples que to fazendo e tem 8 forms diferentes de cadastro, fazer um unico form com botões e usar para todos os formularios fica muito mais pratico.

Consegui gravar o caminho no BD, mas os DBImage não exibem mais as fotos de determinado Imovel, creio que seja porque o DataSource e DataField não sirvam mais ja qeu apontam para um caminho e não uma imagem como faziam antes.

Eu adicionei 5 fotos e ficaram aparecendo 5 DBImages em branco no DBCtrlGrid, detalhe é que esses campos aparecem para qualquer imovel que eu tente alterar.

Alguem poderia me ajudar? Como faço para as fotos aparecerem nos DBImages do DBCtrlGrid quando clico em X Imovel no DBGrid?

  Hum, acho que não entendi, pensei que o DBGrid iria substituir o DBCtrlGrid mas ele so mostra o caminho da imagem, como farei para exibir todas as imagens do imovel X em algum local pequeno como fazia antes com o DBCtrlGrid? Pra mostrar todas as imagens em tamanho grande não se faz necessario mas acho o DBCtrlGrid de grande ajuda pro cliente ter certesa de que imagens ja gravou até o momento.

O relacionamento eu tinha feito pelo proprio access mas não parece ter funcionado.

Ta dificil, se jogo a imagem na DB ela aumenta 10x de tamanho e torna o processo inviavel, se uso caminho perco o DBCtrlGrid que é uma mão na roda.

Fiz um pouco diferente mas funcionou, no afterscroll tava dando erro ae mudei pra OncellClick do DBgrid e coloquei

#Código

EDBImage1.Picture.LoadFromFile(DM.cdsFotosImoveisFoto.AsString);

Uma duvida, tem como tirar a parte C:\Fotos e deixar mostrando somente o nome da foto no DBGridw nem que eu presise criar outro campo pra mostrar so o nome da foto.

Agora para montar o Slide Show com as imagens em tamanho grande presiso de uma ajuda, como posso fazer as imagens irem pra frente e pra tras sem o DBNAVIGATOR?

@Renan funcionou, ta carregando todas as fotos no DBCtrlGrid mas quando vc clica em uma das fotos ela é sobreposta pela ultima foto gravada no registro, e como ja vem como se vc tivese clicado na primeira foto ela vem sempre errada mostrando a ultima imagem gravada em vez da primeira, se vc clica em outra foto ela muda pra ultima foto gravada e a anterir fica correta e assim por diante.

Tem como alterar isso pra sempre mostrar a correta mesmo quando eu clico na imagem?

@Eriley sua função funcionou certinho, ta mostrando so o nome da foto agora.

Agora, como alternar entre as fotos com botões? quero simular um DBNavigator so com o avançar,voltar, ir pro final e ir pro inicio.

  Opa, quando fiz o post acima ainda não tinha suas 3 respostas Eriley.

Funcionou, o DBNavigator ta pegando agora, VLW.

Agora é so fazer o DBCtrlGrid parar de ficar sobrepondo a foto que clico nele com a ultima imagem gravada no imovel.

  O AfterScroll começo a dar erro direto agora, eu mando iniciar o programa ele começa a carregar e da um erro loco cheio de numero, e depois me aponta essa linha em Negrito.

if not(cdsFotosImoveis.State in [dsEdit, dsInsert]) then
frmImovel.EDBImage3.Picture.LoadFromFile(cdsFotosImoveisfoto.AsString);

  Resolvi o problema da parte de Slides colocando no Onclick do DBNavigator o caminho da imagem, ae a cada vez que passo ele joga um novo caminho no EDBImage.

O CtrlGrid fico lagando muito a tela depois que testei colocar 30 imagens de 2MB nele por isso até ver porque do lag to dropando ele . Se ele so pega o caminho alguem sabe o motivo que pode estar gerando o lag?

Select * From Imoveis

E você deve ter  um DataSource talvez chamado de DsImoveis e conectado a AdoQryImoveis pela propriedade DataSet do DataSource. Este Datasource servirá de ponte entre as duas querys.

E você deve ter  uma outra Query chamada de AdoQryFotos, na propriedade DataSource da AdoQryFotos iniciaremos o relacionamento, indicando o Datasource que está ligado ao outro DataSet (DsImoveis). O próximo passo é indicar a instrução sql de acesso na propriedade SQL:

Select * From Fotos Where Cod_Imovel = :Cod_Imovel

Cod_Imovel após os dois pontos deve ter o mesmo nome do campo código do imóvel da tabela de imóveis.

Para que este código funcione as duas querys devem estar abertas no onshow do formulário.