ActiveDelphi

[mflopes]

Olá

Estou tentando adicionar a 2 imagens JPG com as seguintes designações (numeração incrmental mas a deignação original e sempre IR numero<DC_ (IR_2618.jpg + DC_2619.jpg) existe alguma forma de efectuar esta operação automaticamente ou mesmo adicionar as fotos todas de uma pasta.
estou a usar o seguinte codigo:
var ImageFile, Path: String;
begin
self.SubTRelFinal.Edit;
if (OpenPictureDialog1.Execute) and (OpenPictureDialog1.FileName <> '') then begin
DbImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Path := ExtractFilePath(OpenPictureDialog1.FileName);
ImageFile := ExtractFileName(OpenPictureDialog1.FileName);

SubTRelFinal.edit;
ImageFile := 'Reg1_'+ N_REG.text+'.jpeg' ;
SubTRelFinal.FieldByName('foto1').AsString := ImageFile ;
if Path <> ImagePath then DbImage1.Picture.SaveToFile(ImagePath + ImageFile);
self.SubTRelFinal.post;
end;
OpenPictureDialog1.free;
end;


Obrigado

[mflopes]

Amigos Ninguem tem uma dica que me possa ajudar a carregar 2 fotos ao mesmo tempo!!! a que não estou conseguindo nada so manualmente.... mas tenho uma aplicação que me carrega essas fotos...
Uma Pare (2) outra Impar(1)

[mflopes]

Amigos Ninguem tem uma dica que me possa ajudar a carregar 2 fotos ao mesmo tempo!!! a que não estou conseguindo nada so manualmente.... mas tenho uma aplicação que me carrega essas fotos...
Uma Pare (2) outra Impar(1)

[Max.jgs]

Coloca em ordem crescente.

Foto n 1 carrega com foto n2, foto n3 carrega com foto n4 e assim sucessivamente.

Sendo que vc pode colocar para o sistema contar a quantidade de arquivos e depois divide por dois.

e o componente Image 1 vai somando 0+1 para o arquivo 1

e o componente Image 2 vai somando 0+2 para o arquivo 2

Depois o componente Image 1 vai somando x para o arquivo 2

e o componente Image 2 vai somando x para o arquivo 2

E assim sucessivamente.

Vai parar quando a contagem do primeiro arquivo da Imag 1 for iguál a divisão.


Fui...

[mflopes]

Essa Parte esta certa não sera mais facil colocar as fotos em 2 pastas e autumaticamente adicionar apartir dai?

[aeciovc]

[mflopes]

Supondo que busco "N" fotos com:
for i := 0 to OpenPictureDialog1.Files.Count - 1 do
como poderia adicionar as mesmas a uma tabela em um dbgrid imaginando que e a coluna 1 em seguida poderia efectuar a mesma operação para a coluna 2 ou então pode adicionar o impar na coluna 1 e pares na coluna 2...................


obrigado

[gilsonnrodrigues]

[mflopes]

Mais uma vez obrigado mas não estou conseguindo emplementar o codigo alguem pode dar uma ajuda com o codigo abaixo... Obrigado



procedure TBase_Dados_obras.SpeedButton9Click(Sender: TObject);
var
ImageFile, Path: String;
i : Integer;
begin
inherited;
self.SubTRelFinal_sub.Edit;
if (OpenPictureDialog1.Execute) and (OpenPictureDialog1.FileName <> '') then begin
for i := 0 to OpenPictureDialog1.Files.Count - 1 do
begin

SubTRelFinal_sub.append;

DbImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Path := ExtractFilePath(OpenPictureDialog1.FileName);
ImageFile := ExtractFileName(OpenPictureDialog1.FileName);


ImageFile := 'Reg1_'+ N_REG.text+'.jpeg';
SubTRelFinal_sub.FieldByName('foto1').AsString := ImageFile ;
if Path <> ImagePath then DbImage1.Picture.SaveToFile(ImagePath + ImageFile);
self.SubTRelFinal_sub.post;

end;
end;
end;