LuisHatake
26-03-2018, 18:35:21
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:
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!
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!