PowerBuilder à Donf ! / [RESOLU] Exemple de récupération de l'erreur générée par GetLastError()

baba cool · 23-06-2009 12:38:31

Bonjour,

Lors de l'appel d'une DLL externe à partir de PB 11.5, la fonction appelée de WINAPI (fonction WriteFile(...)) me ramène false. J'aimerai savoir si quelqu'un a un exemple de code pour récupérer le libellé de l'erreur générée par exemple en utilisation la fonction externe de WINAPI GetLastError().

Merci d'avance pour votre aide.

erasorz · 23-06-2009 12:41:53

Source : http://www.rgagnon.com/pbdetails/pb-0118.html

Retrieve error from calling a Win API

If a Win API call fails for any reason, a return code is returned. Habitually, an error message is available. You can get it by calling the FormatMessage() function.

Code: pb

//[local external function declaration]
FUNCTION long GetLastError() LIBRARY "kernel32" ALIAS FOR "GetLastError"
FUNCTION long FormatMessage  &
  (Long dwFlags ,ref  Any lpSource , Long dwMessageId  , &
   Long dwLanguageId  , ref String lpBuffer  , &
   Long nSize  , Long Arguments) LIBRARY "kernel32" &
     ALIAS FOR "FormatMessageA"

In the following example, we call the ShellExecute API giving it a non-existent filename. Then we can get the error message generated by the Windows API call.

Code: pb

//[local external function declaration]
FUNCTION long ShellExecuteA( long hwnd,  string lpOperation,  &
    string lpFile, string lpParameters,  string lpDirectory,  &
    integer nShowCmd ) LIBRARY "SHELL32"

string ls_Null
long   ll_rc
string ls_err_str
long ll_last_error
Any temp
CONSTANT long  FORMAT_MESSAGE_FROM_SYSTEM =  4096

SetNull(ls_Null)
// try to execute a non-existent filename.
ll_rc = ShellExecuteA( Handle( This ), "open", &
    "MyPage.xyz", ls_Null, ls_Null, 1)

IF ll_rc > 1 THEN
   temp = 0
   ll_last_error = GetLastError()
   ls_err_str = Fill(Char(0),255)
   FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, temp, ll_last_error,&
      0, ref ls_err_str, 255, 0)
   MessageBox("error", ls_err_str)
END IF

pick ouic · 23-06-2009 12:45:21

ce n'est pas plutot cela pour la version 11 ?

Code: pb

FUNCTION long ShellExecuteA( long hwnd,  string lpOperation,  &
    string lpFile, string lpParameters,  string lpDirectory,  &
    integer nShowCmd ) LIBRARY "SHELL32" alias "ShellExecuteA;Ansi"