F�rum Inserir Imagem em Sequencia #406038

04/08/2011

Ol� pessoal, tudo bem? Quero tentar tirar mais uma d�vida com voc�s, se for poss�vel. Eu tenho na minha aplica��o (Delphi-Firebird) um gerador de cole��o que funciona perfeitamente. Eu seleciono um T�tulo, e ele lista tantas edi��es quanto forem selecionadas nos n�meros iniciais e finais. Ele tamb�m insere alguns dados que o usu�rio pode selecionar na hora. Mas eu queria tamb�m que ele colocasse as imagens das edi��es. Eu consigo selecionar o arquivo pelo OpenImageDialog e jogar pro componente Image pra salvar quando crio um unico arquivo, mas como fa�o pra a cada registro ele selecionar a proxima imagem da pasta? Exemplo: Tenho uma pasta com 10 imagens, e vou gerar 10 edi��es.. seleciono a primeira imagem da pasta pelo OpenImageDialog e a cada volta do "for" ele pega a imagem seguinte da pasta pra inserir. Tem como fazer isso? Grato pela ajuda. Allan Elias Ramos

Allan Ramos

Curtir t�pico

+ 0

Responder

Posts

05/08/2011

Allan Ramos

Pesquisando eu notei que o OpenPictureDialog tem a op��o MultiSelect, que posso selecionar mais de um arquivo ao mesmo tempo. Achei a rotina abaixo que me exibe o caminho de todos arquivos selecionados: var
ControleImagem: Integer; begin
if OpSelecionarCapa.Execute then
    for ControleImagem := 0 to OpSelecionarCapa.Files.Count - 1 do
        ShowMessage(OpSelecionarCapa.Files[ControleImagem]); Mas ainda n�o consegui inserir ela no gerador abaixo: for i := NumeroInicialBruto to NumeroFinalBruto do
    begin
      DmDados.ClientEdicoesNacionais.Cancel;
      DmDados.ClientEdicoesNacionais.Insert;
      DmDados.ClientEdicoesNacionaisNOME_EDICAO_NACIONAL.AsString := NomeCompletoEdicao + NumeroInicial;
      DmDados.ClientEdicoesNacionaisFKCOD_TITULO_NACIONAL.AsInteger := CodTitulo;
      DmDados.ClientEdicoesNacionaisFKCOD_EDITORA_ORIGINAL.AsInteger := CodEditOrig;
      DmDados.ClientEdicoesNacionaisFKCOD_EDITORA_NACIONAL.AsInteger := CodEditNac;
      if CodFormato > 0 then
        begin
          DmDados.ClientEdicoesNacionaisFKCOD_FORMATO.AsInteger := CodFormato;
        end;
      DmDados.ClientEdicoesNacionais.Post;
      DmDados.ClientEdicoesNacionais.ApplyUpdates(0);    end; Tem mais coisas que insere no gerador, mas n�o botei pra n�o ficar muito grande o post. A d�vida �, como posso inserir no campo IMAGEM, do banco de dados, cada uma dessas imagens selecionadas, de acordo com o "for"? Tipo, se eu inserir 10 registros e selecionar 10 imagens, ele insere uma em cada registro, de acordo com a ordem de sele��o. Valeu. Allan Elias Ramos

Responder

Gostei + 0

11/08/2011

Allan Ramos

Alguma luz no fim do t�nel? hehe

Responder

Gostei + 0

12/08/2011

Rafael Ribeiro

Voc� j� pensou em gravar no field imagem, o caminho da foto? Grava o caminho como string e a cada mudan�a de registro, voc� direciona o caminho da imagem para o opendialog. Eu fa�o assim... coloco a seguinte fun��o no evento "onchange" do datasource:


  //verificaremos se existe algum caminho no banco de dados. Se sim:

  if (DM.CDSFOTO.FieldByName('CAMINHO').IsNull = False)  then
  begin
    
    //verificaremos se o caminho representa mesmo um arquivo de foto:
    if FileExists(DM.CDSFOTO.FieldByName('CAMINHO').AsString) then
    begin
      ODFoto.FileName := DM.CDSFOTO.FieldByName('CAMINHO').AsString;
      ImgFoto.Picture.LoadFromFile(ODFoto.FileName);
    end
    else
    begin
      ShowMessage('Arquivo' + DM.CDSFOTO.FieldByName('CAMINHO').AsString
      + 'n�o encontrado');
      ImgFoto.Picture.Assign(Nil); //deixa a imagem somente do Panel;
    end;
  end
  else
  begin
    imgFoto.Picture.Assign(nil);
  end;

Espero ter ajudado!

Responder

Gostei + 0

16/08/2011

Allan Ramos

Eu pensei nisso Rafael. Na verdade pensei em selecionar todas imagens e a cada loop, o dialog receber o proximo registro. N�o sei se cheguei a fazer certo esse c�digo, vou dar uma olhada quando chegar em casa e analisar o que tu postou pra ver como funciona melhor. Valeu, abra�os ;) Allan Elias Ramos

Responder

Gostei + 0