_WinAPI_OemToChar should be forced to ASCII

[Nine]

As per this thread :
​https://www.autoitscript.com/forum/topic/205736-solved-how-to-write-special-characters-to-scite-editor-moved/

Under certain conditions, the API switches to Unicode causing the script to crash. By forcing the function to use ASCII characters, the issue was solved. The revised function should look like this :

Func _WinAPI_OemToChar($sStr)
  Local $aRet = DllCall('user32.dll', 'bool', 'OemToCharA', 'str', $sStr, 'str', '')
  If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, '')
  Return $aRet[2]
EndFunc   ;==>_WinAPI_OemToChar

[argumentum]

​https://www.autoitscript.com/forum/topic/205736-solved-how-to-write-special-characters-to-scite-editor-moved/?do=findComment&comment=1481251

The proposed change, does not solve the issue.

[J-Paul Mesnage]

Not sure the title is the right way to describe that when using _WinAPI_OemToChar() with string greater than 65536 a crash occurs
The pb is the same for _WinAPI_CharToOem()
the right solution is

Func _WinAPI_OemToChar($sStr)
	Local $aCall, $sRetStr = "", $nLen = StringLen($sStr) + 1, $iStart = 1

	While $iStart < $nLen
		$aCall = DllCall('user32.dll', 'bool', 'OemToCharA', 'str', StringMid($sStr, $iStart, 65536), 'str', '')
		If @error Or Not $aCall[0] Then Return SetError(@error + 10, @extended, '')
		$sRetStr &= $aCall[2]
		$iStart += 65536
	WEnd

	Return $sRetStr
EndFunc   ;==>_WinAPI_OemToChar

[J-Paul Mesnage]

Fixed by revision [12536] in version: 3.3.15.4