Bluetooth aygıt arama

[fduman]

Bluetooth yardımı ile çevredeki diğer Bluetooth aygıtları arama ile ilgili çalışma yapmış olan var mı? Bana çevrede yayın yapan diğer aygıtların ismi veya ID si gerekli.

Belirli bir seviyeye geldim gerçi. Ancak Windows C API yi Delphi'ye çevirmek çok sorun olmasa da bir Delphi örneğinin olması beni mutlu ederdi.

Google üzerinde bu konu hakkında pek fazla sonuç bulunmuyor. Acaba gözümden kaçmış, bu konu ile ilgili Delphi kodlarının bulunduğu bir yer bilen var mı?

[fduman]

Aygıt taramayı hallettim. Etrafta yayın yapan Bluetooth cihazlarının isimlerini alabiliyorum. İnşallah kodları siteye de ekleyebilirim.

Herkese iyi çalışmalar.

[pro_imaj]

Vavv üstad maşallah uçuyorsun.
Sıradışı bir fikir ve çalışma

Tebrik ederim.

Çalışmalarınızdaki başarınızn daim olması dileğiyle.

[fduman]

Sağolasın.

Konu ile ilgili biraz daha detaylı açıklamalarımı

http://delphikahini.blogspot.com/2005/0 ... zlarn.html

adresinde bulabilirsiniz.

[sadettinpolat]

http://delphi.icm.edu.pl/authors/a0003016.htm adresinde WBluetoothSocket.zip adlı bi bileşen mevcut. ne kadar işine yarar bakmak lazım

[fduman]

Sadettin.. Artık çok geç.

Kodları inceledim. Güzel Winsock 2 implementasyonu yapmışlar. İstediğim şey yok, ancak daha kolay eklenebilir.

Sağolasın..

[fduman]

Bluetooth aygıt arama ile ilgili kodları şimdilik blog'uma ekledim. Yakın zamanda Makalelere atacağım.

http://delphikahini.blogspot.com/2005/0 ... -kodu.html

Buradan ulaşabilirsiniz.

[mrmarman]

Tebrikler ve de paylaşımın için teşekkürler...

- Kodu, telefonumu bulup bulmayacağı için denemek istedim ama bir kaç UNIT'e daha ihtiyacı vardı... Mesela winsock2.pas Bu uniti bulup ekledim bu sefer de tanımlar gerkti. JWA serisi unitleri de indirdim... Onlardan aşağıdaki tanımları derleyip Blog'unda verdiğin unit içine entegre edip denedim..

Kod: Tümünü seç

  ULONG_PTR = ULONG;
  DWORD_PTR = DWORD;
  PPChar = ^PChar;
  {$NODEFINE PPChar}
  HANDLE = THandle;
  {$NODEFINE HANDLE}
  LPHANDLE = ^THandle;
  {$NODEFINE LPHANDLE}
  LPBYTE = ^BYTE;
  {$NODEFINE LPBYTE}
  LPVOID = Pointer;
  {$NODEFINE LPVOID}
  USHORT = Word;
  {$NODEFINE USHORT}
  UCHAR = Byte;
  {$NODEFINE UCHAR}
  ULONG = Cardinal;
  {$NODEFINE ULONG}

  Type
  _BLOB = record
    cbSize: ULONG;
    pBlobData: LPBYTE;
  end;
  {$EXTERNALSYM _BLOB}
  BLOB = _BLOB;
  {$EXTERNALSYM BLOB}
  LPBLOB = ^BLOB;
  {$EXTERNALSYM LPBLOB}
  TBlob = BLOB;
  PBlob = LPBLOB;

type
  LPSOCKET_ADDRESS = ^SOCKET_ADDRESS;
  {$EXTERNALSYM LPSOCKET_ADDRESS}
  PSOCKET_ADDRESS = ^SOCKET_ADDRESS;
  {$EXTERNALSYM PSOCKET_ADDRESS}
  _SOCKET_ADDRESS = record
    lpSockaddr: LPSOCKADDR;
    iSockaddrLength: Integer;
  end;
  {$EXTERNALSYM _SOCKET_ADDRESS}
  SOCKET_ADDRESS = _SOCKET_ADDRESS;
  {$EXTERNALSYM SOCKET_ADDRESS}
  TSocketAddress = SOCKET_ADDRESS;
  PSocketAddress = PSOCKET_ADDRESS;

  LPCSADDR_INFO = ^CSADDR_INFO;
  {$EXTERNALSYM LPCSADDR_INFO}
  PCSADDR_INFO = ^CSADDR_INFO;
  {$EXTERNALSYM PCSADDR_INFO}
  _CSADDR_INFO = record
    LocalAddr: SOCKET_ADDRESS;
    RemoteAddr: SOCKET_ADDRESS;
    iSocketType: Integer;
    iProtocol: Integer;
  end;
  {$EXTERNALSYM _CSADDR_INFO}
  CSADDR_INFO = _CSADDR_INFO;
  {$EXTERNALSYM CSADDR_INFO}
  TCsAddrInfo = CSADDR_INFO;
  PCsAddrInfo = PCSADDR_INFO;

  LPAFPROTOCOLS = ^AFPROTOCOLS;
  {$EXTERNALSYM LPAFPROTOCOLS}
  PAFPROTOCOLS = ^AFPROTOCOLS;
  {$EXTERNALSYM PAFPROTOCOLS}
  _AFPROTOCOLS = record
    iAddressFamily: Integer;
    iProtocol: Integer;
  end;
  {$EXTERNALSYM _AFPROTOCOLS}
  AFPROTOCOLS = _AFPROTOCOLS;
  {$EXTERNALSYM AFPROTOCOLS}
  TAfProtocols = AFPROTOCOLS;

  _WSAEcomparator = (COMP_EQUAL, COMP_NOTLESS);
  {$EXTERNALSYM _WSAEcomparator}
  WSAECOMPARATOR = _WSAEcomparator;
  {$EXTERNALSYM WSAECOMPARATOR}
  PWSAECOMPARATOR = ^WSAECOMPARATOR;
  {$EXTERNALSYM PWSAECOMPARATOR}
  LPWSAECOMPARATOR = ^WSAECOMPARATOR;
  {$EXTERNALSYM LPWSAECOMPARATOR}

  LPWSAVERSION = ^WSAVERSION;
  {$EXTERNALSYM LPWSAVersion}
  PWSAVERSION = ^WSAVERSION;
  {$EXTERNALSYM PWSAVersion}
  _WSAVersion = record
    dwVersion: DWORD;
    ecHow: WSAECOMPARATOR;
  end;
  {$EXTERNALSYM _WSAVersion}
  WSAVERSION = _WSAVersion;
  {$EXTERNALSYM WSAVERSION}
  TWsaVersion = WSAVERSION;
  _WSAQuerySetA = record
    dwSize: DWORD;
    lpszServiceInstanceName: LPSTR;
    lpServiceClassId: PGUID;
    lpVersion: LPWSAVERSION;
    lpszComment: LPSTR;
    dwNameSpace: DWORD;
    lpNSProviderId: PGUID;
    lpszContext: LPSTR;
    dwNumberOfProtocols: DWORD;
    lpafpProtocols: LPAFPROTOCOLS;
    lpszQueryString: LPSTR;
    dwNumberOfCsAddrs: DWORD;
    lpcsaBuffer: LPCSADDR_INFO;
    dwOutputFlags: DWORD;
    lpBlob: LPBLOB;
  end;
  {$EXTERNALSYM _WSAQuerySetA}
  WSAQUERYSETA = _WSAQuerySetA;
  {$EXTERNALSYM WSAQUERYSETA}
  PWSAQUERYSETA = ^WSAQUERYSETA;
  {$EXTERNALSYM PWSAQUERYSETA}
  LPWSAQUERYSETA = ^WSAQUERYSETA;
  {$EXTERNALSYM LPWSAQUERYSETA}
  TWsaQuerySetA = WSAQUERYSETA;

{$IFDEF UNICODE}
  WSAQUERYSET = WSAQUERYSETW;
  {$EXTERNALSYM WSAQUERYSET}
  PWSAQUERYSET = PWSAQUERYSETW;
  {$EXTERNALSYM PWSAQUERYSET}
  LPWSAQUERYSET = LPWSAQUERYSETW;
  {$EXTERNALSYM LPWSAQUERYSET}
  TWsaQuerySet = TWsaQuerySetW;
{$ELSE}
  WSAQUERYSET = WSAQUERYSETA;
  {$EXTERNALSYM WSAQUERYSET}
  PWSAQUERYSET = PWSAQUERYSETA;
  {$EXTERNALSYM PWSAQUERYSET}
  LPWSAQUERYSET = LPWSAQUERYSETA;
  {$EXTERNALSYM LPWSAQUERYSET}
  TWsaQuerySet = TWsaQuerySetA;
{$ENDIF}

- Bu sefer de _WSAQuerySetA <-> PWSAQuerySetA tip uyumsuzluğu hatası verdi. Daha da fazla uğraşmak istemedim. Makaleni beklemek en güzeli...

- Çalışmalarında başarılar...

[fduman]

Winsock2 için problem çıkacağını tahmin etmiştim. Yakında zipleyip makalelerde yayınlarım. İlgin için teşekkürler.

[cfyasar]

ben de bluetooth ile bir uygulama geliştirme aşamasındayım. makaleni dört gözle bekliyorum.

[fduman]

Fazla birşey beklemeyin. Çalışmam sadece çevredeki Bluetooth cihazlarını taramak ve Bluetooth ID'sini almak üzereydi. Dosya aktarma vs. olaylarına hiç girmedim.