12 replies to this topic

[monchito_elroro]

Buenas chicos, una consultita haber si alguien me puede ayudar, resulta que
estoy tratando de mover archivos de un lugar a otro y utilizo la siguiente función:

delphi

Uses
  windows, shellapi....;
 
var
  fuente, destino: String; 
 
 
function MoveDir(const fromDir, toDir: string): Boolean;
var
  fos: TSHFileOpStruct;
 
begin
  //application.ProcessMessages;  // para que no se cuelgue
  ZeroMemory(@fos, SizeOf(fos));
  with fos do
 
  begin
 
    wFunc  := FO_MOVE;
    fFlags := FOF_FILESONLY or FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  Result := (0 = ShFileOperation(fos));
end;

Y su llamada:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
   destino:= 'D:\textos';
   fuente:=  'D:\*.txt';
 
   movedir(fuente, destino); 
end;

Hasta aquí todo bien, el único inconveniente es que cuando realiza la operación de mover
pone el form como colgado y me gustaría que lo dejará activo, he tratado de subsanarlo con "application.ProcessMessages;"
pero no resulta ponga en donde lo ponga......

Porfavor una manito ...

[felipe]

Otra alternativa es crear un hilo de proceso aparte para esta acción.



Saludos!

[monchito_elroro]

Gracias por su respuesta.... pero no habrá otra manera..... como modificando esta función que les puse.....

[German]

En la paleta System tienes el componente TAsyncProcess, que permite ejecutar procesos externos de forma asincronica. Quizas puedas usarlo para llamar a un aplicativo externo como el comando MOVE, que se encargue de mover los archivos, en vez de usar la API de WINDOWS. Esto si no quieres lidiar con THREADS y problemas de sincronizacion y exclusion mutua.
Para mi lo mejor seria usar THREADS.

Saludos.

[monchito_elroro]

Gracias por sus consejos .... pero viendo la función que les mostré como podrìa ser su implementación en un THREADS.....   ????

[fredycc]

Hola, puedes guiarte con unos ejemplos que viene incluidos un la carpeta de Lazarus:

C:\lazarus\examples\multithreading

O bien, esta wiki te puede apoyar: http://wiki.freepasc...cation_Tutorial

Saludos.

[rretamar]

La idea, como RAD multiplataforma que es, sería usar funciones navitas (y exclusivas) de la API del sistema operativo lo menos posible.

[escafandra]

Si bien es cierto lo que apunta rretamar, y esa debería ser la filosofía trabajando con Lazarus, se puede estar de acuerdo con el planteamiento de monchito_elroro si su aplicación va a estar enfocada sólo a Windows.

Para aclarar un poquito el tema pongo una sencilla modificación del código de monchito_elroro usando un Thread para Windows usando la API:

delphi

type
PSHFileOpStruct = ^TSHFileOpStruct;
 
 
procedure MoveDir(const fromDir, toDir: string);
var
  fos: TSHFileOpStruct;
  ID : Cardinal;
begin
  ZeroMemory(@fos, SizeOf(TSHFileOpStruct));
  with fos do
  begin
    wFunc  := FO_MOVE;
    fFlags := FOF_FILESONLY or FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  CreateThread(nil, 0, @ShFileOperation, @fos, 0, ID);
end;                                                       

Saludos.

[monchito_elroro]

Gracias amigo escafranda se agradece...... justo iba a publicar una alternativa que encontre, se las pongo de todas maneras:

delphi

procedure TForm1.Button4Click(Sender: TObject);
var
 Origen, Destino, aPath : String;
 sr: TSearchRec;
begin
 
  aPath := 'd:\';
 
   if FindFirst(aPath + '*.txt', faAnyFile, sr) = 0 Then
 
     repeat
     application.ProcessMessages;  // para que no se cuelgue
 
       Origen := aPath+sr.Name;
       Destino := 'd:\textos\'+sr.Name;
       MoveFile(PChar(Origen), PChar(Destino));
       until FindNext(sr) <> 0;
       SysUtils.FindClose(sr);
 
       begin
         ShowMessage('Listo...!!!');
       end;
 
End;

Este còdigo no se cuelga mucho, se las dejo y probarè la ayuda de escafranda...

de ahì les cuento......

[escafandra]

Para ahondar en el tema de los Threads a bajo nivel, he preparado un pequeño tutorial que resuelve la cuestión de este tema usando una función que crea un hilo cada vez que se llama. He preferido hacer este pequeño tutorial para permitirme explicar de forma detallada la filosofía aplicada que puede ser extendida a la solución de otros problemas.

Aquí dejo el enlace.


Saludos.

[monchito_elroro]

Buenas amigos, he probado el código que puso escafranda.... pero me sale un error conocido al
aplicarlo, este error dice:
"El proyecto project1.exe ha lanzado una excepción de la clase 'External: SIGSEGV'."


Guiandome del ejemplo lo pongo así

delphi

Uses
windows, shellapi, . . . . ;
 
type
  PSHFileOpStruct = ^TSHFileOpStruct;
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1;
  origen, destino: String;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure MoveDir(const fromDir, toDir: string);
var
  fos: TSHFileOpStruct;
  ID : Cardinal;
begin
  ZeroMemory(@fos, SizeOf(TSHFileOpStruct));
  with fos do
  begin
    wFunc  := FO_MOVE;
    fFlags := FOF_FILESONLY or FOF_SILENT or FOF_NOCONFIRMATION;
    pFrom  := PChar(fromDir + #0);
    pTo    := PChar(toDir)
  end;
  CreateThread(nil, 0, @ShFileOperation, @fos, 0, ID);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  origen:='D:\*.txt';
  MoveDir(origen, destino);
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  destino:='D:\textos';
end;
 
end.

Que estaré haciendo mal.......

[escafandra]

El ejemplo que puse es un boceto no operativo tal cual.

Si quieres que funcione mínimamente debes hacer global la variable  fos: TSHFileOpStruct;. Pero no debes ejecutar la función antes de que termine el Thread pues el nuevo Thread creado entrará en conflicto con el previo.

Si te fijas, en el mensaje anterior dejé un enlace a un tutorial donde expongo la solución con múltiples Threads a tu problema, precisamente basado en el boceto que puse y que no puedes hacer funcionar.

Te dejo el enlace (de nuevo).


Saludos.

[monchito_elroro]

Entonces le darè un vistazo y de  ahí les cuento ...