Hilos para Recorer Directorios
 

Hola:
en un viejo proyecto que retomo creo que una vez al año, estoy tratando de recorrer un árbol de directorios de windows e insertar ficheros en una base de datos.
Ese tratamiento lo he intentado varias veces con hilos y no he logrado hacerlo porque se me enreda mucho ya que es recursivo.

este es el codigo que uso recursivo para insertar los ficherso en la base de datos. le paso como parámetro el diretorio a escanear, si me pudieran hechar una mano como hacer hilos con esto, la cuestion es que no debo hacer demasiados hilos, no se como hacerlo gracias

Código Delphi [-]
procedure TForm2.RastreaDir(dir: string);
var
  FileSearch: TSearchRec;
  R: integer;
  s: string;
begin
  ChDir(dir);
  if FindFirst('*.*', FaDirectory, FileSearch) = 0 then
    repeat
      if ((FileSearch.Attr and FaDirectory) = FaDirectory) then
      begin
        application.ProcessMessages;
        if (FileSearch.Name <> '.') and (FileSearch.Name <> '..') then
          RastreaDir(dir + '\' + FileSearch.Name);   //esta es la llamada recursiva con el nuevo directorio encontrado
      end
      else
      begin
        application.ProcessMessages;
        if cancelando then Exit;
        PCarpeta.Progress := PCarpeta.Progress + 1;  PCarpeta.Refresh; //este es un progress que se mueve seun sea el directorio que este escaneando
        LFichero.Caption := FileSearch.Name; LFichero.Refresh; // este es el fichero que se esta trabajando 
        s := CaminoCompleto(dir + '\' + FileSearch.Name); //este es el camino completo del fichero encontrado para poder encontrarlo en windows.
        if DataModule1.ExisteFichero(FileSearch.Name, s) then
        begin
          if smessagedlg('Organizador Electrónico',
            'El fichero ' + FileSearch.Name +
            ' existe en la base de datos desea sobreescribirlo ? ',
            mtInformation, [mbYes, mbno], 1) = mrYes then
            AgregaFichero(dir + '\' + FileSearch.Name);
        end
        else
           AgregaFichero(dir + '\' + FileSearch.Name); //este procedimiento inserta en la base de datos el fichero
      end;
      if cancelando then Exit;
    until FindNext(FileSearch) <> 0;
  FindClose(FileSearch);
end;

juank1971,

:rolleyes:

Te sugiero revisar el Msg #10 del Hilo Busqueda de Archivos Específicos, el cual puede servir de base a tu aplicación.

Espero sea útil :)

Nelson.

ok gracias voy a mirar

Yo intentaría primero dividir el trabajo en 2 partes.
Utilizar threads con Base de Datos es un poco más complejo que con código normal, ya que debes definir parámetros de conexión nuevos para el hilo (hilos). No puedes usar en un hilo la misma conexión que utilizas en el programa principal.
Así que yo me plantearía realizar el proceso en 2 partes:

1) Utilizar hilos para la búsqueda de ficheros en disco. El resultado puede ser, por ejemplo, rellenar una lista (TStringList) con los path de los ficheros encontrados.
2) Insertar en la Base de Datos los ficheros. Este segundo paso realizarlo sin Threads.

Para el primer paso, si piensas el proceso para utilizar más de uno (dividir el trabajo), piensa en limitar el número máximo para no sobrecargar demasiado con la creación de demasiados hilos.

Para el segundo paso te bastaría un recorrido secuencial de la lista.

juank1971,

Te sugiero revisar esta información :rolleyes:
Espero sea útil :)

Nelson.