9 replies to this topic

[enecumene]

Amigos, estoy teniendo problemas al realizar copia de un archivo vía red, en algunos equipos funciona sin problemas y en otros casi terminando ó al terminar la descarga me manda el error de parámetro incorrecto y no se realiza la copia, utilizo la rutina de escafandra CopyFileEx, aquí es cómo lo tengo implementado:

delphi

procedure TFUpdater.btnUpdateClick(Sender: TObject);
var Error: DWORD;
begin
  btnUpdate.Enabled :=  False;
  btnReady.Caption := 'Espere...';
  Cancel:= false;
  CopyFileEx(PWideChar(Fuente),PWideChar(Destino), @ProgressRoutine, nil, @Cancel, 0);
 
  Error := GetLastError();
 
  if Error = 0 then begin
    btnReady.Enabled := True;
    btnReady.Caption := 'Listo!';
    lbUpdate.Caption := 'Actualizado!';
  end else begin
    MessageDLG(SysErrorMessage(GetLastError()),mtError,[mbOk],0);
    Application.Terminate;
  end;
end;

Y aquí es como obtengo las variables Fuente y Destino:

delphi

...
//Versions.Values['APP_PATH'] es la ruta donde está el archivo a copiar
DownloadNewVersion(Versions.Values['APP_PATH'] + 'Helper\SisAuto.exe',ExtractFilePath(Application.ExeName) + 'SisAuto.exe');

Están causando ese problemas en equipos con Win 8/8.1 64Bits, está probado en equipos con Win 10 64Bits, Win7 64Bits, aún no se ha probado en equipos de 32Bits.

 

¿Qué podrá ser?.

 

Saludos.

[escafandra]

Imagino que tienes implementada la función ProgressRoutine...
¿El error se produce en CopyFileEx o en otro punto? Ten en cuenta que depende de los permisos de red puede que no tengas acceso a determinado equipo o subred.

 

Para identificarte en un equipo debes usar WNetAddConnection2 como describí aquí

 

SHFileOperation te permite hacer copias a un nivel de implementación más alto pero la vista de la progresión la hará el Windows.

 

 

Saludos.

[enecumene]

Gracias escafandra, viendo SHFileOperation me topé con ésta otra MoveFileWithProgress, ¿Qué diferencia hay entre una y la otra?

[escafandra]

Gracias escafandra, viendo SHFileOperation me topé con ésta otra MoveFileWithProgress, ¿Qué diferencia hay entre una y la otra?

CopyFileEx copia solo archivos con una función de progreso diseñada por el usuario, MoveFileWithProgres, mueve (copia y borra) un archivo o carpeta con una función de progreso también diseñada por el usuario, y SHFileOperation copia, mueve, borra o renombra un archivo o carpeta según los parámetros usados, con una función de progreso, visible o no, que hace el mismo Windows, no el usuaro.

 

Saludos.

[enecumene]

Gracias escafandra, viendo SHFileOperation hice lo siguiente:

delphi

function TFUpdater.DescargaExe(const AFrom: string; const ADestino: string): Boolean;
Var FileOptions: TShFileOpStruct;
begin
  FileOptions.Wnd := Application.MainForm.Handle;
  //Función Copiar (Hay FO_DELETE, FO_MOVE, FO_RENAME, Etc)
  FileOptions.wFunc := FO_COPY;
 
  //Archivo a copiar
  FileOptions.pFrom := PWideChar(AFrom);
  //Destino
  FileOptions.pTo := PWideChar(ADestino);
 
  //Activamos que creemos la carpeta automáticamente en caso de no existir
  FileOptions.fFlags := FOF_NOCONFIRMMKDIR;
 
  //Executamos la operación y devolvemos su resultado
  Result := SHFileOperation(FileOptions) = 0;
end;

Hágame saber si es necesario algo más, dado que las copias es mayormente desde el Servidor al equipo local, ¿Con eso Bastará?, no puedo probarlo aún, y será mañana en la oficina.

 

Saludos.

[escafandra]

Gracias escafandra, viendo SHFileOperation hice lo siguiente:

delphi

function TFUpdater.DescargaExe(const AFrom: string; const ADestino: string): Boolean;
Var FileOptions: TShFileOpStruct;
begin
  FileOptions.Wnd := Application.MainForm.Handle;
  //Función Copiar (Hay FO_DELETE, FO_MOVE, FO_RENAME, Etc)
  FileOptions.wFunc := FO_COPY;
 
  //Archivo a copiar
  FileOptions.pFrom := PWideChar(AFrom);
  //Destino
  FileOptions.pTo := PWideChar(ADestino);
 
  //Activamos que creemos la carpeta automáticamente en caso de no existir
  FileOptions.fFlags := FOF_NOCONFIRMMKDIR;
 
  //Executamos la operación y devolvemos su resultado
  Result := SHFileOperation(FileOptions) = 0;
end;

Hágame saber si es necesario algo más, dado que las copias es mayormente desde el Servidor al equipo local, ¿Con eso Bastará?, no puedo probarlo aún, y será mañana en la oficina.

 

Saludos.

 

Fíjate en este código:

delphi

uses ShellApi;
 
function SHCopy(Source, Target: String): integer;
var
  FS: SHFILEOPSTRUCT;
begin
  ZeroMemory(@FS, sizeof(SHFILEOPSTRUCT));
  FS.wFunc:= FO_COPY;
  FS.pFrom:= PCHAR(Source + #0 + #0);
  FS.pTo:= PCHAR(Target + #0 + #0);
  FS.fFlags:= FOF_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
  Result:= SHFileOperation(FS);
end;

Entiendo que usas UNICODE, y por lo tanto SHFileOperationW. Posíblemente si usas un Delphi moderno ya asuma SHFileOperationW, pero las cadenas deben terminar en un doble nulo que te falta en el código.

 

También debes inicializar a 0 los miembros de la estructura SHFILEOPSTRUCT que no uses.

 

 

Saludos.

[enecumene]

¿Y Cual es la razón de eso de los nulos?, y ¿qué función hace ZeroMemory?, perdón por las dudas.

[escafandra]

¿Y Cual es la razón de eso de los nulos?, y ¿qué función hace ZeroMemory?, perdón por las dudas.

 

La razón es que se puede meter una lista de nombres y no sólo uno. Cada nombre termina en 0 (cadenas estilo C) y al final de la lista se añade un doble 0 para indicar que ya no hay más elementos.

La API ZeroMemory pone una cantidad de nulos en la dirección apuntada por un puntero. Quizás estés más acostumbrado a ver FillChar, propia de delphi.

 

 

Saludos.

[enecumene]

Gracias por la explicación mi estimado, hoy haré las pruebas y luego le comento.

 

Saludos.

[enecumene]

Probado con satisfacción en equipos con Win 8/8.1 64Bits, Win 7 64Bits y Win 7 32Bits, sin problemas alguno, gracias mis estimado.

 

Saludos.