Bluetooth Server Win32 API

[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