Копирование, удаление, передача файлов через Bluetooth

[jangle]

Хотелось бы написать программу для передачи данных с телефона на ПК, по протоколу Bluetooth. Нужно реализовать автоматическое копирование файлов (фотографии) на ПК. Я часто использую трубку как фотоаппарат, и каждый раз вручную перекидывать десятки фоток на комп - лениво.

Вобщем алгоритм такой:

1 - Авторизация трубки и компа уже установлена.
2 - Программа работает постоянно в фоновом режиме, и отлавливает когда моя трубка появилась в зоне доступности (например я вошел в комнату)
3 - Программа сама скачивает все фотографии на комп, складывая их в отдельную папку
4 - Затем она удаляет, все фотки с трубы, за исключением тех, у которых есть цифра 1, в начале имени файла (метка запрета удаления)
5 - После удаления, в папку фоток телефона отсылается файлик - Скопировано_12.05.2007.jpg, это сообщение означает что файлы успешно забекаплены.
6 - Все должно работать в фоновом режиме, без моего вмешательства.

Поскольку опыта работы с "Синим Зубом" у меня нет, будет полезна любая инфа, как реализовать этот алгоритм

[Antonariy]

Тынц.

[jangle]

Тынц.

Спасибо! Правда не один из примеров не заработал с моим BT адаптером. Может эти примеры работают только с Майкрософтовским комплектом драйверов? У меня они снесены, и поставлен пакет драйверов WIDCOMM Bluetooth Software 5.1.0.1700

[Kostyan]

Попробуй эти компоненты:
Раз
Два

[jangle]

Попробуй эти компоненты:

Жаль, но компоненты оказывается триальные.


Здесь (http://forum.sources.ru/index.php?s=&act=ST&f=19&t=128057 ) нашел пример связи мобильника и компа через COM порт.
У адаптера есть виртуальный COM порт у телефона тоже, но пробема в том, что когда я пытаюсь писать AT команды в виртуальный COM - XP умирает! Cиний экран смерти... Я его на XP практически никогда не видел, а тут примитивный код и тотальный краш системы.

Private Sub Form_Load()
MSComm1.CommPort = 8
MSComm1.Settings = "19200,N,8,1"
MSComm1.PortOpen = True
End Sub

Function GetCommand(ByVal cmd As String) As String
Dim ret As String
Dim T As Long
T = GetTickCount
MSComm1.Output = cmd & vbCr
Do While InStr(ret, "OK") = 0 And InStr(ret, "ERROR") = 0
If MSComm1.InBufferSize > 2 Then ret = ret & MSComm1.Input
DoEvents
Loop
GetCommand = ret
End Function

Private Sub Command2_Click(index As Integer)
'at+cmgr=1 SMS Read
Select Case index
Case 0: MsgBox GetCommand("at+cgsn") 'IMEI
Case 1: MsgBox GetCommand("at+cgmr") 'Software version
Case 2: MsgBox GetCommand("at+cmgl") 'SMS (message list)
Case 3: MsgBox GetCommand("at+cscs=?") 'help ii eiae?iaeai
End Select
End Sub

[Kostyan]

Жаль, но компоненты оказывается триальные.

Да, но если очень захотеть можно найти лекарство

[jangle]

Сейчас попробовал запустить терминалку написанную на PowerBASIC, в дистрибутиве она лежит тут (C:\PBWin80\Samples\Comms\Comm.bas)
Только изменил там номер порта с 1 на 8. Запустил, и о чудо! Винда не умерла, и на запрос AT+GMM, мобилка лежащая на другом конце комнаты бодро отликнулась: Nokia6230>Ok !

Видимо MSComm из VB совсем кривой, лучше им не пользоваться никогда. Сэкономите себе время и нервы...

Вобщем удалось достучаться через блютусный COM порт, теперь вопрос другой. Кто-нибудь знает, где можно раздобыть список AT команд мобилок? А также описание форматов в котором происходит обмен данными ПК и телефона. Наверняка там обычный HEX без всякого шифрования и сжатия ?

[GSerg]

список AT команд мобилок

У каждой он свой.

[jangle]

У каждой он свой.

Но тогда список AT команд Нокий. Сейчас пытаюсь искать через гугл. На разных сайтах, можно найти максимум 2-3 команды типа:

AT+GMM - имя устройства
AT+GMR - производитель
AT+GSN - серийный номер

А ведь этих команд вроде бы десятки, если не сотни

[GSerg]

Здесь нет, в PC Suit или Modem Drivers?

[alibek]

Сейчас пытаюсь искать через гугл. На разных сайтах, можно найти максимум 2-3 команды типа:

Это странно. Потому что уже здесь, в первых двух ссылках, уже с два-три десятка команд описано.

[jangle]

Спасибо, я искал описание AT комнанд в рунете, оказывется надо было набрать туже строку по английски.

Kostyan - оказывается рекомендуемый тобой компонент, поддерживает только MS стек, а у меня WIDCOMM. Поэтому использовать его к сожалению не получится