Fórum Ajuda imagens #448948
19/07/2013
0
Bom pessoal estou com duas dúvidas:
1º Como faço para que meu programa vasculhe o computador em busca de imagens e salve as que forem encontradas em um Banco de Dados(tanto faz salvar a imagem ou o caminho dela no BD);
2º Como faço para que estas imagens sejam exibidas em uma galeria;
Quem poder ajudar agradeço desde já...
1º Como faço para que meu programa vasculhe o computador em busca de imagens e salve as que forem encontradas em um Banco de Dados(tanto faz salvar a imagem ou o caminho dela no BD);
2º Como faço para que estas imagens sejam exibidas em uma galeria;
Quem poder ajudar agradeço desde já...
Ricardo Gomes
Curtir tópico
+ 0
Responder
Posts
22/07/2013
Alessandro Yamasaki
Bom Dia
Para pesquisar os arquivos, procure por TSearchRec.
// Global vars
CurrentDir, Filter: String;
FileList: TStringList;
procedure findFiles;
var
sr: TSearchRec;
begin
FileList := TStringList.Create;
if FindFirst(CurrentDir + Filter, faAnyFile, sr) = 0 then
repeat
FileList.Add(Folder + sr.Name);
until FindNext(sr) <> 0;
SysUtils.FindClose(sr);
end;
No "CurrentDir" vc seta o diretorio, por exemplo := "C:\";
No "Filter" vc seta o nome do arquivo ou extensaou, por exemplo "*.jpg";
Fica a dica para iniciar seu processo.
Para pesquisar os arquivos, procure por TSearchRec.
// Global vars
CurrentDir, Filter: String;
FileList: TStringList;
procedure findFiles;
var
sr: TSearchRec;
begin
FileList := TStringList.Create;
if FindFirst(CurrentDir + Filter, faAnyFile, sr) = 0 then
repeat
FileList.Add(Folder + sr.Name);
until FindNext(sr) <> 0;
SysUtils.FindClose(sr);
end;
No "CurrentDir" vc seta o diretorio, por exemplo := "C:\";
No "Filter" vc seta o nome do arquivo ou extensaou, por exemplo "*.jpg";
Fica a dica para iniciar seu processo.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)