Jason
2006-10-20 20:11:25 UTC
I have written software that uses wininet calls and verifies certificate
info. Upgrading to IE7 causes an error 122 to happening during this
sequence. The following below is my code.
IF
~InternetQueryOption(hRequest,INTERNET_OPTION_SECURITY_CERTIFICATE,,dwBytesAvailable)
LastError = GetLastError() ! --->This request gets the
buffer size needed
Case LastError
Of 122
DISPOSE(lpBuffer)
lpBuffer &= NEW(CSTRING(dwBytesAvailable + 1))
! --->Create the buffer for the response
IF
InternetQueryOption(hRequest,INTERNET_OPTION_SECURITY_CERTIFICATE,lpBuffer,dwBytesAvailable)
ReturnStr = Sub(ReturnStr,1,Len(ReturnStr)) & lpBuffer
Retcode = 1
ELSE
LastError = GetLastError()
MessageDisplay = 'Certificate Query Error: ' &
Clip(LastError); Display ! ---> GET THE ERROR HERE
Else
MessageDisplay = 'Certificate Query Error: ' &
Clip(LastError); Display
End
End
This code worked fine for IE6, but IE7 has the problem. If anyone can shed
some light on why this has changed, I would greatly appreciate it. Thanks
info. Upgrading to IE7 causes an error 122 to happening during this
sequence. The following below is my code.
IF
~InternetQueryOption(hRequest,INTERNET_OPTION_SECURITY_CERTIFICATE,,dwBytesAvailable)
LastError = GetLastError() ! --->This request gets the
buffer size needed
Case LastError
Of 122
DISPOSE(lpBuffer)
lpBuffer &= NEW(CSTRING(dwBytesAvailable + 1))
! --->Create the buffer for the response
IF
InternetQueryOption(hRequest,INTERNET_OPTION_SECURITY_CERTIFICATE,lpBuffer,dwBytesAvailable)
ReturnStr = Sub(ReturnStr,1,Len(ReturnStr)) & lpBuffer
Retcode = 1
ELSE
LastError = GetLastError()
MessageDisplay = 'Certificate Query Error: ' &
Clip(LastError); Display ! ---> GET THE ERROR HERE
Else
MessageDisplay = 'Certificate Query Error: ' &
Clip(LastError); Display
End
End
This code worked fine for IE6, but IE7 has the problem. If anyone can shed
some light on why this has changed, I would greatly appreciate it. Thanks
--
Jason Johnson
***@att.net
Jason Johnson
***@att.net