Fix Demo11 for 64 bits.

Author: pyscripter

Demos/Demo11/SortThds.pas

@@ -1,11 +1,9 @@
 unit SortThds;
 
-
-
 interface
 
 uses
- Classes,
+ Types, Classes,
  Graphics, ExtCtrls,
  PythonEngine;
 
@@ -121,7 +119,7 @@ procedure TSortThread.ExecuteWithPython;
  FModule.InitializeForNewInterpreter;
  if Assigned(fScript) then
  ExecStrings(fScript);
- pyfunc := FindFunction( ExecModule, fpyfuncname);
+ pyfunc := FindFunction( ExecModule, AnsiString(fpyfuncname));
  if Assigned(pyfunc) then
  try
  EvalFunction(pyfunc,[NativeInt(self),0,FSize]);

Demos/Demo11/ThSort.pas

@@ -182,11 +182,17 @@ procedure TThreadSortForm.ThreadDone(Sender: TObject);
 end;
 
 function TThreadSortForm.SortModule_GetValue( pself, args : PPyObject ) : PPyObject; cdecl;
-var psort,index: integer;
+var
+ psort: NativeInt;
+ index: integer;
 begin
  with GetPythonEngine do
  begin
+ {$IFDEF CPU64BITS}
+ if PyArg_ParseTuple( args, 'Li',@psort, @index) <> 0 then
+ {$ELSE}
  if PyArg_ParseTuple( args, 'ii',@psort, @index) <> 0 then
+ {$ENDIF}
  begin
  Result := PyLong_FromLong(TSortThread(psort)[index]);
  end else
@@ -195,11 +201,17 @@ function TThreadSortForm.SortModule_GetValue( pself, args : PPyObject ) : PPyObj
 end;
 
 function TThreadSortForm.SortModule_Swap( pself, args : PPyObject ) : PPyObject; cdecl;
-var psort,i,j: integer;
+var
+ psort : NativeInt;
+ i,j: integer;
 begin
  with GetPythonEngine do
  begin
+ {$IFDEF CPU64BITS}
+ if PyArg_ParseTuple( args, 'Lii',@psort, @i, @j) <> 0 then
+ {$ELSE}
  if PyArg_ParseTuple( args, 'iii',@psort, @i, @j) <> 0 then
+ {$ENDIF}
  begin
  TSortThread(psort).VisualSwap(i,j);
  Result := ReturnNone;