Fix: PyUnicode_AsWideString would return wrong length when used with Unicode strings containing characters outside BMP.

Author: pyscripter

PythonForDelphi/Components/Sources/Core/PythonEngine.pas

@@ -1901,6 +1901,7 @@ TPythonInterface=class(TDynamicDll)
  PyUnicode_Decode:function (const s:PAnsiChar; size: NativeInt; const encoding : PAnsiChar; const errors: PAnsiChar):PPyObject; cdecl;
  PyUnicode_AsEncodedString:function (unicode:PPyObject; const encoding:PAnsiChar; const errors:PAnsiChar):PPyObject; cdecl;
  PyUnicode_FromOrdinal:function (ordinal:integer):PPyObject; cdecl;
+ PyUnicode_GetSize:function (unicode:PPyObject):NativeInt; cdecl;
  PyWeakref_GetObject: function ( ref : PPyObject) : PPyObject; cdecl;
  PyWeakref_NewProxy: function ( ob, callback : PPyObject) : PPyObject; cdecl;
  PyWeakref_NewRef: function ( ob, callback : PPyObject) : PPyObject; cdecl;
@@ -3981,6 +3982,7 @@ procedure TPythonInterface.MapDll;
  PyUnicode_Decode :=Import(AnsiString(Format('PyUnicode%s_Decode',[GetUnicodeTypeSuffix])));
  PyUnicode_AsEncodedString :=Import(AnsiString(Format('PyUnicode%s_AsEncodedString',[GetUnicodeTypeSuffix])));
  PyUnicode_FromOrdinal :=Import(AnsiString(Format('PyUnicode%s_FromOrdinal',[GetUnicodeTypeSuffix])));
+ PyUnicode_GetSize :=Import(AnsiString(Format('PyUnicode%s_GetSize',[GetUnicodeTypeSuffix])));
  PyWeakref_GetObject :=Import('PyWeakref_GetObject');
  PyWeakref_NewProxy :=Import('PyWeakref_NewProxy');
  PyWeakref_NewRef :=Import('PyWeakref_NewRef');
@@ -6272,7 +6274,7 @@ function TPythonEngine.PyUnicode_AsWideString( obj : PPyObject ) : UnicodeString
 begin
  if PyUnicode_Check(obj) then
  begin
- _size := PySequence_Length(obj);
+ _size := PyUnicode_GetSize(obj);
  if _size > 0 then
  begin
 {$IFDEF LINUX}