Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-03-2018
LuisHatake LuisHatake is offline
Miembro
NULL
 
Registrado: oct 2017
Posts: 14
Poder: 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
  #2  
Antiguo 26-03-2018
Avatar de yusnerqui
yusnerqui yusnerqui is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuba
Posts: 679
Poder: 21
yusnerqui Va por buen camino
Pa mi delphi 7 no hay
__________________
Lo importante no es llegar primero, sino saber llegar.

Para que puedas llegar mejor lee la Guia de Estilo

Responder Con Cita
  #3  
Antiguo 26-03-2018
LuisHatake LuisHatake is offline
Miembro
NULL
 
Registrado: oct 2017
Posts: 14
Poder: 0
LuisHatake Va por buen camino
No te entiendo

Cita:
Empezado por yusnerqui Ver Mensaje
Pa mi delphi 7 no hay
que hay! no entiendo a que te refieres. jeje gracias por contestar y espero me puedas ayudar un saludo!! estoy utilizando Delphi XE7 y ya tengo el kinect 1414 y el eliminador que utiliza para conectarlo al pc. muchas gracias! por cierto has revisado este link http://delphimagic.blogspot.mx/2015/...on-delphi.html ?
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ayuda BD Access? Ayuda al modificar!! DarkArias Conexión con bases de datos 4 25-08-2013 00:47:41
Instalar Ayuda (.HLP) en la Ayuda de Delphi? MasterXP Varios 6 12-04-2006 07:57:49
Ayuda para crear ayuda... Gabriel2 Varios 2 10-06-2005 01:15:18
ayuda con strtofloat, ayuda punto flotante TURING Varios 5 30-04-2004 09:03:59
Ayuda Con Instalacion De Archivos De Ayuda Legolas Varios 1 01-12-2003 15:48:03


La franja horaria es GMT +2. Ahora son las 16:30:37.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi