Custom Query

I'm getting this error while trying to initialize a com event handler for Office PowerPoint events:

err.number is: -2147316576 err.windescription: Type mismatch.

The code i run is:

Local $oMyError = ObjEvent("AutoIt.Error","MyErrFunc") ; Initialize a COM error handler

Local $AppPowerPoint = ObjCreate("PowerPoint.Application")

If Not IsObj($AppPowerPoint) Then
	MsgBox(0, "Error", "$AppPowerPoint is not an Object.")
Else
	MsgBox(0, "Error", "Successfully created Object $AppPowerPoint.")
EndIf
   
Local $pptEvt = ObjEvent($AppPowerPoint, "PowerPointEvent_") ; Initialize PowerPoint COM event handlers

Func MyErrFunc($oError)
	ConsoleWrite("err.number is: " & @TAB & $oError.number & @CRLF & "err.windescription:" & @TAB & $oError.windescription & @CRLF)
EndFunc

The error occurs on the line:
Local $pptEvt = ObjEvent($AppPowerPoint, "PowerPointEvent_") ; Initialize PowerPoint COM event handlers

and happens on Version 3.3.8.1 and 3.3.9.4 (Beta), but not on 3.3.6.1.

Tested on Win8 x64 and Win7 x64

Relevant thread: ​http://www.autoitscript.com/forum/topic/148251-powerpoint-com-event-handler-initialization-error/

In native AutoIt there were added FileSetPos,FileGePos so the only one missing native file operation is FileSetEnd.

FileSeEnd can be used (together with FileSetPos) to change size of file (truncating or expanding). Example for this is in HelpFile example for _WinAPI_SetEndOfFile()

Set of all file operation UDF/native functions:

_WinAPI_CloseHandle - FileClose _WinAPI_CreateFile _WinAPI_FlushFileBuffers - FileFlush _WinAPI_GetFileSizeEx - FileGetSize _WinAPI_ReadFile - FileRead _WinAPI_SetEndOfFile _WinAPI_SetFilePointer - FileSetPos _WinAPI_WriteFile - FileWrite

---

Example for change file size by UDF:

#include <WinAPI.au3>

; truncate file size to 12 bytes
$hFile = _WinAPI_CreateFile('test.txt', 2, 4)
_WinAPI_SetFilePointer($hFile, 12)
_WinAPI_SetEndOfFile($hFile)
_WinAPI_CloseHandle($hFile)

If you run the code below, you will see that $SS_ETCHEDVERT will create a static control 2 pixels wide on the left side of where the label control is supposed to be. If you minimize the window, and then restore the it, the appearance of the label has changed to appear to be using the $SS_ETCHEDFRAME style. Using the AU3Info tool I can see that the control's style doesn't change, just the appearance. If you uncomment any of the other lines that use the GUICtrlCreateLabel function, and comment the *VERT line, you will see it happens with the *HORZ style as well.

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
Example()

Func Example()
	Local $widthCell, $msg
	GUICreate("My GUI")
	$widthCell = 70
;~ 	GUICtrlCreateLabel("Line 1 Cell 1", 10, 30, $widthCell, 80, $SS_ETCHEDHORZ)
	GUICtrlCreateLabel("Line 1 Cell 1", 10, 30, $widthCell, 80, $SS_ETCHEDVERT)
;~ 	GUICtrlCreateLabel("Line 1 Cell 1", 10, 30, $widthCell, 80, $SS_ETCHEDFRAME)
	GUISetState()
	Do
		$msg = GUIGetMsg()
	Until $msg = $GUI_EVENT_CLOSE
EndFunc   ;==>Example

This occurs using AutoIt 3.3.8.1 and 3.3.9.4