Folgendes wird ausgeführt:
Code: Alles auswählen
IF SocketCreateBluetooth(gsNameBTSocket, "SerialPortServiceClass_UUID") = False THEN
Error("Unable to create the Bluetooth socket", ErrorInfo(errFullDetails))
END
Code: Alles auswählen
IF SocketWaitForConnection(gsNameBTSocket,100) THEN
// Accept the connections wird nie ausgeführt
sChannelName = SocketAccept(gsNameBTSocket) // Socket number!
....
Code: Alles auswählen
IF NOT SocketWrite(m_SocketName, StringToUTF8(sMessageToSend)) THEN
MyTrace("SocketWrite fehlgeschlagen: " + ErrorInfo())
SocketClose(m_SocketName)
RESULT False
ELSE
MyTrace("SocketWrite: ", sMessageToSend) // Wird korrekt ausgeführt
RESULT True
END