Tópico: Como inserir VARIAS imagens em Delphi 7 + Access?

Sugiro que troque o caminho pelo menos do arquivo CDS para C:\, pois, quando for instalar no seu cliente ele terá de ter o drive A:\ senão vai dar erro.

Vamos realizar o relacionamento entre ADOQImoveis e cdsFotosImoveis:

Coloque um datasource para o cdsFotosImoveis.
Selecione o cdsFotosImoveis e na propriedade MasterSource escolha o datasource ligado ao ADOQImoveis.
Na propriedade MasterFields, clique nas reticências, ligue ID de ADOQImoveis com CodImovel do cdsFotosImoveis.
Pronto relacionamento entre as duas tabelas realizado, pode ser feito pelo afterScroll do ADOQImoveis também.

Inserindo uma foto:
Inclua um OpenPictureDialog da palheta Dialogs.
Inclua um botão com o caption inserir imagem do imóvel e no seu evento onclick digite:
if not(ADOQImoveis.State in [dsEdit, dsInsert]) then
begin
  cdsFotosImoveis.Insert;
  cdsFotosImoveisFoto.LoadFromFile(OpenPictureDialog1.FileName);
  cdsFotosImoveis.Post;
end
else
begin
  ShowMessage('Salve os dados do imóvel antes de inserir uma foto');
  Abort;
end;

Mostrando a foto:
Coloque um DBCtrlGrid da palheta Data Controls.
Ligue sua propriedade DataSource com o Datasource ligado a cdsFotosImoveis.
Dentro do DBCtrlGrid, coloque um DBImage da palheta Data Controls.
Ligue sua propriedade DataSource com o Datasource ligado a cdsFotosImoveis.
Ligue sua propriedade DataField com o campo Foto.
Coloque False em AllowDelete e AllowInsert para que o usuário não exclua e nem inclua diretamente pelo DBCtrlGrid.
Se quiser pode colocar um botão para alterar a foto do imóvel, basta que antes disso você selecione a foto no DBCtrlGrid:
if not(ADOQImoveis.State in [dsEdit, dsInsert]) then
begin
  cdsFotosImoveis.Edit;
  cdsFotosImoveisFoto.LoadFromFile(OpenPictureDialog1.FileName);
  cdsFotosImoveis.Post;
end
else
begin
  ShowMessage('Salve os dados do imóvel antes de Editar uma foto');
  Abort;
end; 
Deletando a foto, basta que antes disso você selecione a foto no DBCtrlGrid:
if not(ADOQImoveis.State in [dsEdit, dsInsert]) then
begin
  if not(cdsFotosImoveis.IsEmpty) then
    cdsFotosImoveis.Delete
  else
  begin
    ShowMessage('Não há foto para excluir');
    Abort;
  end;
end
else
begin
  ShowMessage('Salve os dados do imóvel antes de Editar uma foto');
  Abort;
end; 

Inserindo uma foto:

if not(ADOQImoveis.State in [dsEdit, dsInsert]) then
begin
  cdsFotosImoveis.Insert;
  OpenPictureDialog1.InitialDir := 'C:\Imob\Banco de Imagens';{Verifique se este é o caminho onde vais guardar as fotos}
  if OpenPictureDialog1.Execute then
    cdsFotosImoveisFoto.LoadFromFile(OpenPictureDialog1.FileName);
  cdsFotosImoveis.Post;
end
else
begin
  ShowMessage('Salve os dados do imóvel antes de inserir uma foto');
  Abort;
end;

Se quiser pode colocar um botão para alterar a foto do imóvel, basta que antes disso você selecione a foto no DBCtrlGrid:
if not(ADOQImoveis.State in [dsEdit, dsInsert]) then
begin
  cdsFotosImoveis.Edit;
  OpenPictureDialog1.InitialDir := 'C:\Imob\Banco de Imagens';{Verifique se este é o caminho onde vais guardar as fotos}
  if OpenPictureDialog1.Execute then
    cdsFotosImoveisFoto.LoadFromFile(OpenPictureDialog1.FileName);
  cdsFotosImoveis.Post;
end
else
begin
  ShowMessage('Salve os dados do imóvel antes de Editar uma foto');
  Abort;
end; 

Declare jpeg, clipbrd no Uses.

Inserir uma imagem:
var
  jpg: Tjpegimage;
begin
  if not(ADOQImoveis.State in [dsEdit, dsInsert]) then
  begin
    cdsFotosImoveis.Append;
    OpenPictureDialog1.InitialDir := 'C:\Imob\Banco de Imagens';{Verifique se este é o caminho onde vais guardar as fotos}
    if OpenPictureDialog1.Execute then
    begin
      jpg:= Tjpegimage.Create;
      jpg.LoadFromFile(openpictureDialog1.FileName);
      Clipboard.Assign(jpg);
      Dbimage1.PasteFromClipboard;
      jpg.Free;
    end;
    cdsFotosImoveis.Post;
  end
  else
  begin
    ShowMessage('Salve os dados do imóvel antes de inserir uma foto');
    Abort;
  end;
end;

Editar uma imagem
var
  jpg: Tjpegimage;
begin
  if not(ADOQImoveis.State in [dsEdit, dsInsert]) then
  begin
    cdsFotosImoveis.Edit;
    OpenPictureDialog1.InitialDir := 'C:\Imob\Banco de Imagens';{Verifique se este é o caminho onde vais guardar as fotos}
    if OpenPictureDialog1.Execute then
    begin
      jpg:= Tjpegimage.Create;
      jpg.LoadFromFile(openpictureDialog1.FileName);
      Clipboard.Assign(jpg);
      Dbimage1.PasteFromClipboard;
      jpg.Free;
    end;
    cdsFotosImoveis.Post;
  end
  else
  begin
    ShowMessage('Salve os dados do imóvel antes de inserir uma foto');
    Abort;
  end;
end;

O que seria o .append aonde era o .insert no codigo?

Ta travando o Delphi quando mando executar, pelo que testei é o Clipbrd, sempre apos colocar ele e mandar executar o delphi 7 trava, alguem tem ideia de como resolver?

Muito obrigado.

Ja tirei todas as duvidas que queria, podem fechar o topico. 

  Cancela o que eu disse acima, ocorreram alguns novos problemas.

1 - Quando deleto um imovel gostaria que todas as imagens relacionadas a ele fossem deletadas também como seria o comando para deletar o registro em cdsFotosImoveis ligado ao registro no banco de dado do access?

2 - Mesmo depois de deletar as imagens eles não parecem ter sido removidas do arquivo .cds ja que ele não diminui de tamanho.

3 - Eu coloco uma imagem de 300KB e o .CDS aumenta em mais de 1 MB de tamanho, isso é normal?

4 - Agora quando tento colocar uma imagem bmp da erro no programa, ele so aceita jpeg, não que isso seja um problema ja que as fotos de imobiliaria são todas em jpeg mesmo, mas gostaria de saber como contornar isso para programas futuros.

Vlw, Funcionou, testei usar so ele sem deletar o imovel e removeu todas as fotos.

So vai ficar em aberto o problema do aquivo ".cds" que aloca as imagens, não diminuir de tamanho(ou voltar a 1kb no quando deleto tudo no presente caso), eu coloquei varios imoveis com fotos, e foi pra 40MB, deletei tudo e continua com 40MB. Quando acrescento novos imoveis continua aumentando, foi pra 48MB no caso.

Alguem sabe explicar porque esse ".cds" fica tão grande?, ele ta multiplicando por 10x o tamanho das imagens, ta impossivel, coloquei 10 imagens de 2MB e o arquivo foi pra 200MB, não tem HD que aguente, alguem sobe como resolver ou modificar esse problema?

Coloquei umas 30 imagens e deu um erro de memoria quando fechei o programa, não sei o motivo.

Eu troquei os DBImage por EDBImage e tentei usar o .cds, tirei as conversões para .BMP ja que o EDBImage aceita Jpeg mas fica dando erro agora acusando que a imagem não é Bitmap(algo assim).

o .cds não aceita guardar jpeg?

Do modo anterior estava impossivel, 20MB de imagem virando 200MB, o programa lagava muito quando exibia as imagens no CtrlGrid, estranhamente ele da ainda mais lag quando usei o access para guardar as imagens JPEG, 20MB virou 40MB no access no entanto eu tinha lags de 5s ou mais nos botões nos forms com imagens.

EDBImage:

Esse componente tem propriedades para redimencionar as imagens sosinho, ou seja não importa a resolução, pode ser qualquer uma. E ele aceita qualquer tipo de imagem evitando a necessidade de converter para bmp.

De resto ele funciona igual ao DBImage.

Segue o codigo para gravar com clientdataset alterado abaixo, tirei apenas as partes de conversão para JPEG para BMP ja que o EDBImage não presisa disso.

Adicionar imagem:

[CODE]

begin
   if not(DM.ADOQImoveis.State in [dsEdit, dsInsert]) then
   begin
    DM.cdsFotosImoveis.append;
    OpenPictureDialog1.InitialDir := 'A:\Projetos\Imobiliaria';{Verifique se este é o caminho onde vais guardar as fotos}
   if OpenPictureDialog1.Execute then
   DM.cdsFotosImoveisFoto.LoadFromFile(OpenPictureDialog1.FileName);
   DM.cdsFotosImoveis.Post;
   end
  else
  begin
   ShowMessage('Salve os dados do imóvel antes de inserir uma foto');
   Abort;
  end;
end;[/CODE]

Fiz algo errado?

Abaixo o codigo que usei para guardar as imagens no access, funcionou mas fica muito lagado o programa.

[CODE]

begin
 if not(DM.ADOQImoveis.State in [dsEdit, dsInsert]) then
  begin
   DM.ADOFotosImoveis.insert;  
   OpenPictureDialog1.InitialDir := 'A:\Projetos\Imobiliaria';{Verifique se este é o caminho onde vais guardar as fotos}
    if OpenPictureDialog1.Execute then
     DM.ADOFotosImoveisFoto.LoadFromFile(OpenPictureDialog1.FileName);

    DM.ADOFotosImoveis.Edit;
    DM.ADOFotosImoveis.Post;
    end
  else
  begin
  ShowMessage('Salve os dados do imóvel antes de inserir uma foto');
   Abort;
  end;
end;[/CODE]

Sera que fica muito pesado ficar pegando as fotos do Banco de dados? no caso testei com imagens de 2MB que são bem grandes até.

Eriley teria como mostrar como ficaria seu codigo para pegar apenas o caminho da imagem ao invez da imagem em si?

Devido aos problemas que estou tendo em gravar a imagem diretamente no BD(ta ficando gidante e lagando o programa) vou tentar um outro metodo qeu descrevi no topico abaixo. Nele quero transferir a imagem pra uma pasta com Nomeada com o IDdoImovel no mesmo diretorio do executavel e gravar na BD o caminho até essa imagem.

O problema vai ser na hora se fazer um programa desatualizado se atualizar no programa principal do servidor, em vez de copiar um arquivo vom as imagens vai ter que copiar a pasta "Fotos" que contem todas as fotos cadastradas no programa. Mas um problema de cada vez.

Segue o link do outro topico aonde coloquei o que gostaria de fazer.

http://www.devmedia.com.br/forum/delphi/385511-Como-criar-pastas-e-mover-arquivos--jpeg-com-o-delphi.html