WIN32LIB Error on Open
- Posted by Tony Steward <tony at locksdownunder.com> Jul 28, 2002
- 507 views
--part1_7a.2a734860.2a751bbc_boundary Hi All, I think this has been asked before but anyway, why do I sometimes get the following error when I launch an exw program. I use win98se and win32lib 57.9 with euohoria 2.3 If required I can send the whole ex.err file. ex.err report: C:\EUPHORIA\EXINCLUDE\Win32lib.ew:598 in procedure fShowError() attempt to divide by 0 pParams = {{103'g',101'e',116't',72'H',97'a',110'n',100'd',108'l', 101'e',58':',84'T',104'h',101'e',32' ',115's',116't',111'o',114'r',101'e', 100'd',32' ',104'h',87'W',110'n',100'd',32' ',102'f',111'o',114'r',32' ', 105'i',100'd',32' ',37'%',100'd',32' ',105'i',115's',32' ',110'n',111'o', 119'w',32' ',97'a',116't',116't',97'a',99'c',104'h',101'e',100'd',32' ', 116't',111'o',32' ',105'i',100'd',32' ',37'%',100'd'},499,{29,53'5'}} pMode = 2 lErrCode = 499 lResponse = 1 lStyle = 16 and so on Traced lines leading up to the failure: C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8112 if at then C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8115 heldResource = removeIndex( at, heldResource ) C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8118 end procedure C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8367 end for C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8366 deleteObject( held[i][ResHandle] ) C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8092 if atom(resource) then C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8093 handle = resource C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8100 if isStockResource( handle ) then C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8060 return find(a, vStockResources) C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8104 at = findKey( handle, heldResource ) C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8105 if (at = 0) or C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8107 lRC = w32Func( xDeleteObject, {handle} ) C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8111 at = findKey( handle, heldResource ) C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8112 if at then C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8115 heldResource = removeIndex( at, heldResource ) C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8118 end procedure C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8367 end for C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8370 for i = 1 to length( heldCursor ) do C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8374 heldCursor = {} C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8377 release_all_mem() C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8379 vWinMainState = kFinished C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8381 end procedure C:\EUPHORIA\EXINCLUDE\Win32lib.ew:523 end procedure C:\EUPHORIA\EXINCLUDE\Win32lib.ew:595 if pMode = 2 C:\EUPHORIA\EXINCLUDE\Win32lib.ew:598 abort(1/0) -- Force the ex.err to be created. --part1_7a.2a734860.2a751bbc_boundary Content-Type: text/html; charset="US-ASCII" Content-Transfer-Encoding: 7bit <HTML><FONT FACE=arial,helvetica><FONT SIZE=2 FAMILY="SANSSERIF" FACE="Arial" LANG="0">Hi All,<BR> I think this has been asked before but anyway, why do I sometimes get the following error when I launch an exw program.<BR> I use win98se and win32lib 57.9 with euohoria 2.3<BR> If required I can send the whole ex.err file.<BR> <BR> ex.err report:<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:598 in procedure fShowError() <BR> attempt to divide by 0 <BR> pParams = {{103'g',101'e',116't',72'H',97'a',110'n',100'd',108'l',<BR> 101'e',58':',84'T',104'h',101'e',32' ',115's',116't',111'o',114'r',101'e',<BR> 100'd',32' ',104'h',87'W',110'n',100'd',32' ',102'f',111'o',114'r',32' ',<BR> 105'i',100'd',32' ',37'%',100'd',32' ',105'i',115's',32' ',110'n',111'o',<BR> 119'w',32' ',97'a',116't',116't',97'a',99'c',104'h',101'e',100'd',32' ',<BR> 116't',111'o',32' ',105'i',100'd',32' ',37'%',100'd'},499,{29,53'5'}}<BR> pMode = 2<BR> lErrCode = 499<BR> lResponse = 1<BR> lStyle = 16<BR> <BR> and so on<BR> <BR> Traced lines leading up to the failure:<BR> <BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8112 if at then<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8115 heldResource = removeIndex( at, heldResource )<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8118 end procedure<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8367 end for<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8366 deleteObject( held[i][ResHandle] )<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8092 if atom(resource) then<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8093 handle = resource<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8100 if isStockResource( handle ) then<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8060 return find(a, vStockResources)<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8104 at = findKey( handle, heldResource )<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8105 if (at = 0) or <BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8107 lRC = w32Func( xDeleteObject, {handle} )<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8111 at = findKey( handle, heldResource )<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8112 if at then<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8115 heldResource = removeIndex( at, heldResource )<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8118 end procedure<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8367 end for<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8370 for i = 1 to length( heldCursor ) do<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8374 heldCursor = {}<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8377 release_all_mem()<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8379 vWinMainState = kFinished<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:8381 end procedure<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:523 end procedure<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:595 if pMode = 2<BR> C:\EUPHORIA\EXINCLUDE\Win32lib.ew:598 abort(1/0) -- Force the ex.err to be created.<BR> <BR> --part1_7a.2a734860.2a751bbc_boundary--