Ver Mensaje Individual
  #1  
Antiguo 26-03-2018
LuisHatake LuisHatake is offline
Miembro
NULL
 
Registrado: oct 2017
Posts: 14
Reputación: 0
LuisHatake Va por buen camino
Ayuda con TKinect

Hola de nuevo chicos un saludo a todos. Alguien me puede ayudar con la conexión al Kinect, Utilizo w7 32 bits y el modelo del kinect es el 1414 he descargado el ejemplo que viene en delphimagic sobre el uso del kinect pero al compilarlo me marca el siguiente error: "[dcc32 Error] Main.pas(480): E2033 Types of actual and formal var parameters must be identical", lo anterior sucede en esta linea Fsensor.NuiImageStreamOpen() he cambiado las dos variables de tipo cardinal a THandle y al compilar la aplicación se inicia pero al pulsar el boton de inicio no hace nada. Después de esto he realizado pruebas de debug y he encontrado que existe la función NuiGetSensorCount que lo que realiza es devolverte el numero de kinects conectados al pc, al parecer hasta aquí todo bien ya que me devuelve un 1 cuando esta conectado el kinect y un 0 cuando no esta conectado, Después de esto se ejecuta el siguiente trozo de código:
Código Delphi [-]
i := 0;
   while (Fsensor = nil) and (i<=count) do
   begin
     if Not Failed(NuiCreateSensorByIndex(i,sensorEnum)) then
     begin
       if (sensorEnum.NuiStatus=S_OK) then
       begin
         Fsensor:=sensorEnum;
       end;
     end;
     Inc(I);
   end;
en donde al realizar pruebas la condición que no se ccumple es "if (sensorEnum.NuiStatus=S_OK) then" entonces por consecuencia no se hace la asignacion. he probado el Kinect en otra computadora con otro programa y el kinect funciona correctamente. La version del SDK que he descargado es la 1.7. De ante mano muchas gracias a todos por su ayuda. Saludos!
Responder Con Cita