5 replies to this topic

[escafandra]

Este truco es muy simple pero de mucha utilidad para los que no lo conozcan. Se trata de obtener y mostrar la cadena de texto definida por GetLastError:

delphi

ShowMessage(SysErrorMessage(GetLastError));

Y en Builder C++ : 

cpp

ShowMessage(SysErrorMessage(GetLastError()));

 


Saludos.

[Caral]

Hola
Muy practico, no lo conocía.
Gracias amigo.
Saludos

[Fenareth]

Y ese código dónde iría ? 



Saludox !

[escafandra]

Ese código muestra un MessageBox con el error producido. Cuando se produce un error de sistema, GetLastError es diferente de 0 ese es el código de error. Para encontrar la cadena del mensaje que corresponda, delphi tiene la función SysErrorMessage.

El código iría en el punto donde queramos mostrar el error, que sabemos se ha producido.


Saludos.

[escafandra]

Para ilustrar un poco mas el truco, he desarrollado un ejemplo usando sólo la API, de esta forma se puede ver como funciona a bajo nivel. El asunto de encontrar la cadena asociada a un código de error.

Muestro dos ejemplos en C/C++ y Delphi:
 

cpp

void ShowMessageError(HWND hWnd, char* Title)
{
  char *pBuffer;
  FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_ALLOCATE_BUFFER, NULL,
                GetLastError(), 0, (char*)&pBuffer, 0, NULL);
  MessageBox(hWnd, pBuffer, Title, MB_OK);
  LocalFree(pBuffer);
}

delphi

procedure ShowMessageError(hWin: HWND; Title: PCHAR);
var
  pBuffer: pointer;
begin
  FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or FORMAT_MESSAGE_ALLOCATE_BUFFER, nil,
                GetLastError, 0, @pBuffer, 0, nil );
  MessageBox(hWin, pBuffer, Title, MB_OK);
  LocalFree(Cardinal(pBuffer));
end;

Ejemplo de uso para ambos lenguajes:

delphi

  ShowMessageError(Handle, 0);

Saludos.

[ELKurgan]

Maestro escafandra... Como siempre, me dejas sin aliento 

Muy buen truco, amigo