ActiveDelphi

[lomaster]

Pessoal , estou com missão de criar um programa que possa fazer digitalizações e as mesmas deverão estar ligadas a um id,. Ex:
o Sñr "x" digitalizou duas imagens. Em uma consulta posterior estas imagens devem ser recuperadas. Desculpem-me, mas só consegui fazer o esquema para a digitalização. Não consigo visualizar um algoritimo para resolver isso. Alguém pode me ajudar com alguma coisa?

Atte,.

Lomaster

[lcr]

Ola! Cara uma vez pecisei de algo parecido. Solucionei assim...

Na tabela abaixo registrava caminhos e indice dos arquivos, claro que no meu caso o nome dos arquivos são exatemente o indice.

CREATE TABLE ARQUIVOS (
INDICE INTEGER NOT NULL,
CAMINHO VARCHAR(250) NOT NULL
);

A minha aplicação não salvava o arquivo apenas recebia o Path que o usuário indicava. Segue trecho que verifica a existência do arquivo e se esse existir, salva na tabela
...
if FileExists(ShellTreeView1.Path+'\'+dm.IbDesenhoINDICE.AsString+'.pdf') then
begin
dm.IbDesenhoINDICE.Value:=dm.TPecCodNrP.Value;
dm.IbDesenhoCAMINHO.Value:=ShellTreeView1.Path;
dm.IbDesenho.Post;
...

// esse trecho verifica a existência e exibe o arquivo num OLE
...
if FileExists('F:\ArqMort\'+dm.IbDesenhoINDICE.AsString+'.pdf') then begin
arqText:=dm.IbDesenhoCAMINHO.Value+dm.IbDesenhoINDICE.AsString+'.pdf'';
Formpec.OleContainer1.CreateLinkToFile(arqtext,false);
Formpec.OleContainer1.Enabled:=true;
end else begin
...

Espero ter ajudado, Abraço!