I am trying the followings w/o success:
This work fine in VB, but in PB it causes GPF at FormatMessage.
Any idea why?
Regards,
Peter Redei
------------------
Code:
#COMPILE EXE #INCLUDE "WIN32API.INC" %FORMAT_MESSAGE_FROM_HMODULE = &H800 DECLARE FUNCTION InternetGetLastResponseInfo LIB "wininet.dll" ALIAS "InternetGetLastResponseInfoA" _ (lpdwError AS DWORD, lpszErrorBuffer AS ASCIIZ, lpdwErrorBufferLength AS DWORD) AS INTEGER DECLARE SUB ErrorOut(BYVAL dwError AS LONG, szFunc AS STRING) GLOBAL szErrorMessage AS STRING FUNCTION PBMAIN DIM szFunc AS STRING szFunc = "Whatever " Errorout 0, szFunc END FUNCTION SUB ErrorOut(BYVAL dwError AS LONG, szFunc AS STRING) DIM dwRet AS LONG DIM dwTemp AS DWORD PTR DIM szString1 AS ASCIIZ * 256 DIM szString AS ASCIIZ * 2048 DIM szFile AS ASCIIZ * 12 DIM lp AS LONG szFile = "wininet.dll" lp = GetModuleHandle(szFile) dwRet = FormatMessage(%FORMAT_MESSAGE_FROM_HMODULE, _ lp, dwError, 0, _ szString1, 256, 0) szErrorMessage = szFunc & " error code: " & FORMAT$(dwError) & " Message: " & szString1 IF (dwError = 12003) THEN ' Extended error information was returned dwRet = InternetGetLastResponseInfo(dwTemp, szString, 2048) szErrorMessage = szString END IF END SUB
Any idea why?
Regards,
Peter Redei
------------------
Comment