Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.02.2010, 13:11   #1
Dreanks
Пользователь
 
Регистрация: 10.01.2010
Сообщений: 28
Печаль Blutooth, телефон и АТ команды

Помогите разобраться с АТ командами.
Использую Jedi. Телефон Nokia 2700.
Соединяюсь по БТ(дрова мелкософтовские) с телефоном:
Код:
begin
  edit2.Text := string(DeviceInfo.szName) + ' [' +
            BTAdrToStr(DeviceInfo.Address) + '] -         '+inttostr(DeviceInfo.Address.ullLong);
   If WSAStartUp($0202, Data) <> 0 then
  raise Exception.Create('Winsock Initialization Failed.');
  ASocket := socket(AF_BTH,SOCK_STREAM,BTHPROTO_RFCOMM);
  If ASocket = INVALID_SOCKET then
    MessageDlg('Сокет не создан',mterror, [mbYes], 0);
  AddrSize := SizeOf(SOCKADDR_BTH);
  FillChar(Addr, AddrSize, 0);

  with Addr do begin
    addressFamily := AF_BTH;
    btAddr := DeviceInfo.Address.ullLong;
    serviceClassId := SerialPortServiceClass_UUID;
    port := DWORD(BT_PORT_ANY);
  end;
  If connect(ASocket, @Addr, AddrSize) <> 0 then
    MessageDlg('Коннекта нет',mterror, [mbYes], 0);
Конектится нормально, а что дальше делать не разобрался (перерыл кучу инфы, но так и не понял как с помощью АТ команд отправлять смс и получать номера входящих и исходящих звонков)
Dreanks вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Команды в заголовке acidcool SQL, базы данных 3 27.08.2009 17:28
Команды в строке KWN, lnc Общие вопросы Delphi 4 07.05.2009 08:17
Ловля команды volotsky Помощь студентам 2 05.12.2008 19:52
2 команды Aivar Помощь студентам 2 01.10.2008 19:23