Tratamiento de errores entorno al API de Windows

[dec]

Hola,

Sí; los tiros van por donde apuntas Román. Se ve que la función de marras del API de Windows muestra el mensaje de error... a no ser que se indique (véase más arriba) específicamente que no muestre mensajes de error.

[roman]

Al parecer GetLastError siempre regresará cero. No obstante ShFileOperation devuelve un valor distinto de cero en caso de error. De ahí puedes partir.

// Saludos

[dec]

Hola,

De ahí parto Román... o es la intención: como "ShFileOperation" retorna "no cero"... busco el error con "GetLastError", pero, no parece estar ahí.

[[egostar]]

Empezado por dec

Hola,

De ahí parto Román... o es la intención: como "ShFileOperation" retorna "no cero"... busco el error con "GetLastError", pero, no parece estar ahí.

Según Microsoft no debes de usar "GetLastError" para esta función

Empezado por msdn2.microsoft.com

Return Value


Returns zero if successful; otherwise nonzero. Applications normally should simply check for zero or nonzero.

It is good practice to examine the value of the fAnyOperationsAborted member of the SHFILEOPSTRUCT. SHFileOperation can return 0 for success if the user cancels the operation. If you do not check fAnyOperationsAborted as well as the return value, you cannot know that the function accomplished the full task you asked of it and you might proceed under incorrect assumptions.


Do not use GetLastError with the return values of this function.

Aquí el artículo completo.

Salud OS.

[dec]

Hola,

Gracias egostar. Me quedo con todo, pero, particularmente con esto:

It is good practice to examine the value of the fAnyOperationsAborted member of the SHFILEOPSTRUCT. SHFileOperation can return 0 for success if the user cancels the operation.

Puesto que, efectivamente, he comprobado que si se cancela la tarea la función sigue retornando cero, o sea "True".

Gracias otra vez a todos.

[dec]

Hola,

O sea:

Código Delphi [-]
function MoverCarpeta(const carpetaOrigen,
  carpetaDestion: string) : boolean;
var
  FileOp: TSHFileOpStruct;
begin
  FillChar(FileOp, SizeOf(FileOp),#0);
  with FileOp do begin
    wFunc := FO_MOVE;
    Wnd := GetActiveWindow();
    pTo := PChar(carpetaOrigen);
    pFrom := PChar(carpetaDestion+#0#0);
    fFlags := FOF_NOCONFIRMATION or FOF_SILENT
     or FOF_ALLOWUNDO or FOF_NOERRORUI;
  end;
  if Win32Check((ShFileOperation(FileOp) = 0)) then
    result := not FileOp.fAnyOperationsAborted
  else
    result := false;
end;

Má o meno....

[[seoane]]

No entiendo porque usar Win32Check. Esa función solo crea una excepción cuando el valor que le pasas no es TRUE, siempre el mismo tipo de excepción. Si es eso lo que quieres, perfecto, pero no creo que te haga falta.

[[seoane]]

Pues a mi lo que me preocupa es que hace esta instruccion:

Código Delphi [-]
TNbUtilities.FijarVariable(rsVarResultadoAccion,rsValorFalse);

Fíjate que la instrucción GetLastError no solo muestra el ultimo error, sino el ultimo resultado de una operación de la api. Así que si dentro de esa rutina se llama, aunque solo sea indirectamente, a una API, GetLastError nos estaría devolviendo ese resultado y no el error que nos interesa.

[dec]

Hola,

Sí; comprendo lo que dices Seoane. Había pensado en ello... y bueno, tal vez sea por eso que "SysErrorMessage(GetLastError())" retorna "La operación se completó correctamente".

Voy a probar el asunto de modo que nada más se ejecute luego de "ShFileOperation" y cuento el resultado.

[dec]

Hola,

Nope... algo como esto:

Código Delphi [-]
  if (ShFileOperation(FileOp) = 0) then
    TNbUtilities.FijarVariable(rsVarResultadoAccion,rsValorTrue)
  else
  begin
    TNbUtilities.FijarVariable(rsVarResultadoAccion,rsValorFalse);
    TNbUtilities.FijarVariable(rsVarUltimoError,SysErrorMessage(GetLastError()));
  end;

Sigue retornando en "SysErrorMessage(GetLastError())" "La operación se ha completado correctamente", incluso cuando no es así, es decir, "ShFileOperation" retornó algo distinto de cero, puesto que "la carpeta a borrar" no existe...

PD. Estoy ahora investigando sobre la función "Win32Check", porque lo que dice la ayuda parece muy interesante...

[[seoane]]

Fijate lo que cuenta microsoft

Empezado por Microsoft

Returns zero if successful; otherwise nonzero. Applications normally should simply check for zero or nonzero.

It is good practice to examine the value of the fAnyOperationsAborted member of the SHFILEOPSTRUCT. SHFileOperation can return 0 for success if the user cancels the operation. If you do not check fAnyOperationsAborted as well as the return value, you cannot know that the function accomplished the full task you asked of it and you might proceed under incorrect assumptions.

Do not use GetLastError with the return values of this function.

To examine the nonzero values for troubleshooting purposes, they largely map to those defined in Winerror.h. However, several of its possible return values are based on pre-Win32 error codes, which in some cases overlap the later Winerror.h values without matching their meaning. Those particular values are detailed here, and for these specific values only these meanings should be accepted over the Winerror.h codes. However, these values are provided with these warnings:

Parece ser que el valor que devuelve la función SHFileOperation lo tienes que comparar con los que se muestran en la tabla para obtener una descripción del mismo.

PD: Si es que no leemos la ayuda

El enlace: http://msdn2.microsoft.com/en-us/library/ms647743.aspx

[dec]

Hola,

Je, je, je... Sí. No sé si he dicho antes que la función "ShFileOperation" es mucha función... que necesito leer la ayuda, vamos.

Sin embargo... parece que en este caso "Win32Check" puede ayudarnos. Resulta que esta función "comprueba" que la instrucción que encierra se ejecuta correctamente, y, cuando no es así, se levanta una excepción.

En el caso que nos ocupa es una excepción del tipo "EOSError", con el mensaje "manejador inválido" (no existe la carpeta, será). Bueno. Estupendo... creo que hoy he aprendido gracias a todos algo que no sabía.

Código Delphi [-]
  try
    if Win32Check((ShFileOperation(FileOp) = 0)) then
      TNbUtilities.FijarVariable(rsVarResultadoAccion,rsValorTrue)
  except
    on E: Exception do begin
      TNbUtilities.FijarVariable(rsVarResultadoAccion,rsValorFalse);
      TNbUtilities.FijarVariable(rsVarUltimoError,Format(rsErrorExcepciones,[E.ClassName,E.Message]));
    end;
  end;

Gracias a todos pataliebres.