Bluetooth Server Win32 API

[Brainstalker]

Hallo,

ich versuche mich gerade daran einen kleinen Server zu erstellen, der Bluetoothverbindungen entgegennimmt. Er soll also das entgegennehmen, was ein Bluetoothgerät an ihn sendet. Das können zum Beispiel Strings sein oder binäre Rohdaten.
Mein Problem ist jetzt das mir anscheinend das Verständnis für den ersten Schritt fehlt. Wie erstelle ich denn mit den bereitgestellten Funktionen der Win32API einen solchen Server. Muss ich da irgendwie über Sockets gehen oder wie? Welche Funktionen muss ich da verwenden.

Ich hab schon nach Radios gescannt und bekomme auch die Namen der Bluetoothgeräte. Schön und gut, aber wie gehts weiter?

Ach ich benutze übrigens die Jedi Bluetooth API Header.


[EDIT]
Ach ja das Gerät ist übrigens ein Android Smartphone. Von dem möchte ich Daten an meinen PC schicken. Ich habe auf meinem Smartphone einen Service, der auch von Windows erkannt wird. Allerdings bekomme ich da immer die Fehlermeldung das der Treiber nicht installiert werden kann. Ist ja auch klar, woher soll Windows den Service kennen.

[Brainstalker]

Ich hab jetzt selber nochmal ein bisschen die Microsoft Bluetooth API und die JEDI Header durchsucht. Ist es richtig, das ich über die Funktion function BluetoothEnableIncomingConnections(hRadio: THandle; fEnabled: BOOL): BOOL; stdcall; eine Verbindung mit dem Gerät aufbaue? Wie sieht es umgekehrt aus, wie gehe ich vor wenn ich eine Verbindung vom Gerät aufbauen möchte?

Wenn ich eine Verbindung haben sollte, kann ich dann über die SDP-Funktionen Daten empfangen? Was müsste ich dabei beachten?

[mkinzler]

Ist zawr nicht umsonst, aber vielleicht ein Blick wert:
http://www.tinyapps.info/

[Brainstalker]

Ja ich werd mir das noch mal genauer anschauen. Aber ich wollte eigentlich kein Geld ausgeben und da ich jetzt schon angefangen habe auch weiter selbst ein bisschen probieren. Außerdem lerne ich dadurch auch ein bisschen mehr über die Win API programmierung, mit der ich mich bisher sehr wenig beschäftigt habe.

Bin jetzt schon soweit, das ich die Bluetooth Radios und Devices auflisten kann. Habe auch schon Funktionen implementiert um die Hersteller und Geräteklassen zu dekodieren.
Im Moment ist halt noch das große Problem, das ich keine Verbindung vom Smartphone zum PC bekomme. Ich hab den Bluetooth Empfänger zwar auf AcceptConnection gesetzt aber irgendwas läuft noch schief. Liegt das vielleicht an der Übertragung? Der Service auf dem Smartphone liefert ein SDP Paket für den Service an den Empfänger aus (Wird auch von Windows erkannt, aber die Verbindung läuft über ein Socket.
Die Server/Client Software auf dem Smartphone ist in Java für Android gescherieben und nicht zu 100% von mir. Hab noch nicht viel Java gemacht.
Muss ich jetzt zwingend eine Socketverbindung auf dem PC erstellen damit die Verbindung funktioniert? Dann müsste ich mich auch noch in Sockets einlesen, aber wär ja auch nicht so schlimm.

Beschäftigt sich hier sonst niemand weiter mit Bluetooth ohne Komponenten? Soll ja erstmal nur den Microsoft Stack zum Teil implementieren. Will ja erstmal nur Strings zu Server schicken.

[Brainstalker]

So ich hab jetzt mal wieder ein bisschen in der Bluetooth API geschaut und ich denke der Socket Ansatz ist der richtige. Das Androidprogramm in Java benutzt auch einen Socket, also müsste das dann ja so hinhauen. Läuft dann über RFComm.

Hab mal jetzt ein bisschen was aus der API zusammen kopiert und halbwegs nach Delphi portiert. Können noch Fehler drin sein oder Pseudocode enthalten sein. Hab jetzt auch gerade keine Möglichkeit das zu testen, weil ich auf Arbeit bin. Aber vielleicht können ja die Socket Experten mal nen Blick drüber werfen.

Delphi-Quellcode:

var
  wsaD: TWsaData;
  iResult: integer;
  ListenSocket: TSocket;
  name: SOCKADDR_BTH;

begin

//----------------------
// Initialize Winsock

  iResult := WSAStartup(WINSOCK_VERSION, @wsaD);
  if (iResult <> NO_ERROR)
    ShowMessage('Error at WSAStartup()');

//----------------------
// Create a SOCKET for listening for
// incoming connection requests.

  // Parameters for Bluetooth Socket
  ListenSocket := socket(AF_BTH, SOCK_STREAM, BTHPROTO_RFCOMM);
  if (ListenSocket = INVALID_SOCKET) then
  begin
    ShowMessage('Error at socket(): ' + WSAGetLastError());
    WSACleanup();
    exit;
  end;

//----------------------
// The sockaddr_in structure specifies the address family,
// IP address, and port for the socket that is being bound.

  name.addressFamily := AF_BTH;
  name.btAddr := 0;
  name.serviceClassId := NULL_GUID;
  name.port := BT_PORT_ANY;


  if (bind(ListenSocket, TSockAddr(@name), sizeof(name)) = SOCKET_ERROR) then
  begin
    ShowMessage('bind() failed.');
    closesocket(ListenSocket);
    exit;
  end;

//----------------------
// Listen for incoming connection requests 
// on the created socket

  if (listen(ListenSocket, SOMAXCONN) = SOCKET_ERROR) then
    ShowMessage('Error listening on socket.');

  ShowMessage('Listening on socket...');
  WSACleanup();
  exit;

end;

[Astat]

Zitat von Brainstalker:

..mal nen Blick drüber werfen.

Hi Brainstalker, als Minimum Sample sollte noch folgendes implementiert werden.

Delphi-Quellcode:

var
  ...
  name: SOCKADDR_BTH;
  addrlen: integer;
  ClientSocket: TSocket; 
begin
  iResult := WSAStartup($0020, @wsaD);
.....

//----------------------
// Listen for incoming connection requests 
// on the created socket

  if (listen(ListenSocket, SOMAXCONN) = SOCKET_ERROR) then
    ShowMessage('Error listening on socket.');

  addrlen := SizeOf(name);
  while ServerRunning do begin
    ClientSocket := Accept(ListenSocket, @name, @addrlen);
    if (ClientSocket <> INVALID_SOCKET) then begin
      cbRcv := Recv(ClientSocket, szBuf[0], WSOCK_READ_BUFFER_SIZE, 0);
      if (cbRcv = 0) or (cbRcv = SOCKET_ERROR) then EXIT;
      .... loop
      ret := ioctlsocket(ClientSocket, FIONREAD, cbRead);
      result := Send(ASocket, sSendData[1], Length(sSendData), 0);
      done....
    end; 
  end;

  ShowMessage('Listening on socket...');
  WSACleanup();
  exit;

end;

lg. Astat