Ajuda imagens
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
Curtidas 0
Respostas
Alessandro Yamasaki
19/07/2013
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.
GOSTEI 0