iDispatch variable cause thinBasic crash

[DirectuX]

Hi,

in this minimal example, we can see that thinBasic crash at the end of script. At first I thought it is because some variable was not destroyed before the end, but thinDebug shows that it isn't the case.


uses "console"

string strComputer = "."

iDispatch objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

if IsComObject(objWMIService) Then

iDispatch colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Volume")

if IsComObject(colItems) Then

iDispatch objItem

For nItem as long = 1 to colItems.Count

objItem = colItems.ItemIndex(nItem - 1) '---First item in collectins starts at 0

printl $tab, "Name..............: ", objItem.Name

objItem = Nothing

Next

colItems = Nothing

Else

end If

objWMIService = Nothing

Else

end If

Printl "Press a key to end."

WaitKey

[ErosOlmi]

Ciao,

yes I confirm it crashed at the end.
I think it is something related to OLE32 de-initialize
Will check

Thanks for reporting
Eros



<Event xmlns="http://schemas.microsoft.com/win/2004/08/events/event"> <System>
<Provider Name="Application Error" />
<EventID Qualifiers="0">1000</EventID>
<Version>0</Version>
<Level>2</Level>
<Task>100</Task>
<Opcode>0</Opcode>
<Keywords>0x80000000000000</Keywords>
<TimeCreated SystemTime="2020-01-25T10:41:44.9695929Z" />
<EventRecordID>24657</EventRecordID>
<Correlation />
<Execution ProcessID="0" ThreadID="0" />
<Channel>Application</Channel>
<Computer>EOlmi-HPEB8540W</Computer>
<Security />
</System>
<EventData>
<Data>thinBasic.exe</Data>
<Data>1.11.3.0</Data>
<Data>00003039</Data>
<Data>OLEAUT32.dll</Data>
<Data>10.0.19041.1</Data>
<Data>d273657c</Data>
<Data>c0000005</Data>
<Data>0001eae4</Data>
<Data>1874</Data>
<Data>01d5d36c0691fb7b</Data>
<Data>C:\thinBasic\thinBasic.exe</Data>
<Data>C:\WINDOWS\System32\OLEAUT32.dll</Data>
<Data>4e8fd6b1-e8ef-47eb-89f4-443540c8ce3d</Data>
<Data />
<Data />
</EventData>
</Event>