15 respuestas en este tema

[seoane]

Aquí dejo otro jueguetito  . Se trata de una pequeña aplicación de consola que busca, de forma continua, los dispositivos Bluetooth que se encuentran dentro de nuestro alcance. Así cuando un dispositivo nuevo entra dentro del alcance de nuestro Bluetooth muestra un mensaje con la fecha, la hora y el identificador del dispositivo, y cuando el dispositivo se apaga o se aleja de nosotros muestra otro mensaje.

Hay varias utilidades para esto, pero la mas divertida  es controlar quien se encuentra cerca de nuestro ordenador gracias a su teléfono móvil. Hoy en día mucha gente tiene el Bluetooth activado siempre, y en gran parte es culpa de los "manos libres" de los coches que necesitan tener esta opción activada para funcionar.

Como iba diciendo, con solo hacer esto:

delphi

blue > registro.txt

tendremos un registro de quien y cuando se acerca a nuestro ordenador. Y si lo usamos en una oficina, por ejemplo, podemos saber la hora en que la gente entra y sale de trabajar 

Otro posible uso del código seria hacer una aplicación que bloquee nuestro escritorio si detecta que nuestro teléfono móvil no esta cerca porque, por ejemplo, nos hemos tenido que ir con prisas de la oficina sin acordarnos de apagar el ordenador. Pero eso lo dejaremos para mas adelante ...

El programa tiene un solo problema, cuando el teléfono que se quiere usar ya ha sido autentificado en windows, por ejemplo para pasarle archivos, aparecerá siempre como activo aunque no se encuentre cerca. Este es un problema que todavía no he resuelto  , pero con los teléfonos que no han sido autentificados funciona de maravilla.

PD: Si lo probáis tened paciencia, puede tardar hasta 20 segundos en detectar los dispositivos.

Archivos adjuntos

•  2168_b365f5bafc5ea9c77e37a4dd37fb4077aeedda7e.zip   57,08KB   71 descargas

[Wilson]

Muy interesante.

Gracias por este muy  buen aporte. 

[escafandra]

Pues después de probar un rato, no me funciona. 

Te explico. Mi PC no tiene Bluetooth de serie, coloco un dispositivo externo USB tipo pendrive. Tu programita Blue.exe detecta tres dispositivos Bluetooth que no tienen que ver con teléfonos, sino con el mismo adaptador Bluetooth que utilizo. Y...  nada mas.

Supongo que algo tiene que ver mi dispositivo Bluetooth externo en esto. Cuando tenga mas tiempo lo trataré de probar en un portátil.


Saludos.

[Caral]

Hola
Como siempre, interesante, practico y Magistral.
Saludos

[luk2009]

Funciona muy bien, gracias por el aporte. Lo unico es lo que ya indicaste que siempre detecta los dispositivos registrados aunque esten apagagos o lejos.

Gracias de nuevo por mostrarnos tu maestria

[egostar]

Muy interesante aplicativo , que lástima que ninguna de mis dos máquinas cuente con bluetooth

Salud OS

[felipe]

Maestro
gracias por compartirlo.


Saludos!

[andres1569]

Pues después de probar un rato, no me funciona. 

Te explico. Mi PC no tiene Bluetooth de serie, coloco un dispositivo externo USB tipo pendrive. Tu programita Blue.exe detecta tres dispositivos Bluetooth que no tienen que ver con teléfonos, sino con el mismo adaptador Bluetooth que utilizo. Y...  nada mas.

Supongo que algo tiene que ver mi dispositivo Bluetooth externo en esto. Cuando tenga mas tiempo lo trataré de probar en un portátil.


Saludos.

Muchas gracias por el aporte, aunque me pasa igual que a Escafandra, de momento no me funciona, también tengo un Bluetooth USB tipo pendrive ...

[seoane]

Pues mi dispositivo bluetooth también es usb, de hecho es el mas barato que encontré, un zaapa.

Aunque reconozco que el código que puse tiene sus problemas, por ejemplo, he probado a tenerlo encendido toda la noche, y perdió y volvió a encontrar mi móvil mas de 10 veces. No se si el problema es del zaapa (ya he tenido problemas con el usando aplicaciones de nokia), del móvil que desconecta el bluetooth o es el código el que tiene el fallo.

He tenido bastantes problemas para encontrar información en internet sobre el bluetooth parece que no hay mucho interés por este tema. Lo único que he encontrado, a parte de lo que puse arriba, es esta otra de listar los dispositivos:

delphi

const
  Bthprops = 'Bthprops.cpl';
  BLUETOOTH_MAX_NAME_SIZE = 248;
 
type
  BLUETOOTH_DEVICE_SEARCH_PARAMS = record
    dwSize: DWORD;
    fReturnAuthenticated: BOOL;
    fReturnRemembered: BOOL;
    fReturnUnknown: BOOL;
    fReturnConnected: BOOL;
    fIssueInquiry: BOOL;
    cTimeoutMultiplier: Char;
    hRadio: THandle;
  end;
  PBLUETOOTH_DEVICE_SEARCH_PARAMS = ^BLUETOOTH_DEVICE_SEARCH_PARAMS;
 
 
  BLUETOOTH_ADDRESS = record
    case Integer of
      0: (ullLong: int64);
      1: (rgBytes: array[0..5] of Byte;)
  end;
 
  BLUETOOTH_DEVICE_INFO = record
    dwSize: DWORD;
    Address: BLUETOOTH_ADDRESS;
    ulClassofDevice: ULONG;
    fConnected: BOOL;
    fRemembered: BOOL;
    fAuthenticated: BOOL;
    stLastSeen: SYSTEMTIME;
    stLastUsed: SYSTEMTIME;
    szName: array[0..BLUETOOTH_MAX_NAME_SIZE - 1] of WideChar;
  end;
  PBLUETOOTH_DEVICE_INFO = ^BLUETOOTH_DEVICE_INFO;
 
  HBLUETOOTH_DEVICE_FIND = THandle;
 
  function BluetoothFindFirstDevice(
    pbtsp: PBLUETOOTH_DEVICE_SEARCH_PARAMS;
    pbtdi: PBLUETOOTH_DEVICE_INFO): HBLUETOOTH_DEVICE_FIND; stdcall;
  external Bthprops;
 
  function BluetoothFindNextDevice(
    hFind: HBLUETOOTH_DEVICE_FIND;
    pbtdi: PBLUETOOTH_DEVICE_INFO): BOOL; stdcall;
  external Bthprops;
 
  function BluetoothFindDeviceClose(
    hFind : HBLUETOOTH_DEVICE_FIND): BOOL; stdcall;
  external Bthprops;
 
  function BluetoothGetDeviceInfo(
    hRadio: THandle;
    pbtdi: PBLUETOOTH_DEVICE_INFO): DWORD; stdcall;
  external Bthprops;
 
procedure GetDevices(ARadio: THandle);
var
  DeviceInfo: BLUETOOTH_DEVICE_INFO;
  DeviceSearchParams: BLUETOOTH_DEVICE_SEARCH_PARAMS;
  DeviceFind: HBLUETOOTH_DEVICE_FIND;
begin
  FillChar(DeviceSearchParams, SizeOf(BLUETOOTH_DEVICE_SEARCH_PARAMS), 0);
  with DeviceSearchParams do
  begin
    dwSize:= SizeOf(BLUETOOTH_DEVICE_SEARCH_PARAMS);
    //fReturnAuthenticated:= TRUE;
    //fReturnRemembered:= TRUE;
    fReturnUnknown:= TRUE;
    //fReturnConnected:= TRUE;
    //fIssueInquiry:= TRUE;
    hRadio := ARadio;
  end;
  FillChar(DeviceInfo, SizeOf(BLUETOOTH_DEVICE_INFO), 0);
  DeviceInfo.dwSize:= SizeOf(BLUETOOTH_DEVICE_INFO);
  DeviceFind := BluetoothFindFirstDevice(@DeviceSearchParams,@DeviceInfo);
  if (DeviceFind <> 0) then
  begin
    repeat
      ShowMessage(DeviceInfo.szName);
      FillChar(DeviceInfo, SizeOf(BLUETOOTH_DEVICE_INFO), 0);
      DeviceInfo.dwSize := SizeOf(BLUETOOTH_DEVICE_INFO); 
    until (not BluetoothFindNextDevice(DeviceFind, @DeviceInfo));
    BluetoothFindDeviceClose(DeviceFind);
  end;
end;

... pero este todavía es peor, solo refresca la lista de dispositivos si manualmente se actualiza la lista desde el explorador de windows 

Me parece que esto se va a quedar solo como "prueba de concepto" 

PD: Andar con cuidado, nunca se sabe quien nos puede estar rastreando     

[martinartaza]

Hola, antes que nada felicitaciones por tus avances en bluetooth.
Disculpa si ya diste por terminado este tema. Curiosamente en estos momento me encuentro tratando de realizar un programa que utilice una libreria llamada btconfig, veo en tus fuentes que tu utilizas la libreria llamada Blue.bdsproj.local
Las estructuras (type) de datos que muestras se parecen muchos a las mías http://www.delphiacc...ion-de-una-dll/ la verdad que me eh quedado un poco trabado para recibir la información de lo dispositivos que tengo cerca, si puedes darme una mano seria de gran ayuda, lo que yo estoy haciendo es en lazarus para windows.

Desde ya muchas gracias.

[luk2009]

has visto estos componentes , talvez te den algunas ideas, ademas tienen un demo.

[martinartaza]

Muchas gracias, voy a ver las licencias de ese componente y ver si se puede pasar a lazarus.  Estoy viendo que en : http://windows-api-h...HZWItO4W0-ODtIw hay muchas librerias pero con precio, estoy interesado en una gratuita y que se puede ver el código para ver si se lo puede pasar a lazarus.

Desde ya muchas gracias.

[luk2009]

mira este enlace, talvez te sirva de algo.

http://bluehack.elha...numeracion.html 

[waguero]

Me podría decir como visualizar el código que figura como blue > registro.txt, o mejor dicho cual sería el código que se plantea en el primer comentario este este post.

[waguero]

Luego de postear el comentario lo pude ver, gracias. Ahora lo probaré.

[SebaV222]

Me pasa lo mismo, no puedo ver el documento.