|
Основной форум Сюда все проблемы связанные с программированием. |
29.01.2007, 17:35
|
#1
|
Оператор ЭВМ
Регистрация: 29.01.2007
Сообщений: 33
Написано 0 полезных сообщений (для 0 пользователей)
|
ПОМОГИТЕ!!!
Нужен рабочий исходник для midletpascal для работы с bluetooth
не надо давать ссылок на FAQ и др. нужен именно рабочий исходник для передачи данных между 2 телефонами
заранее благодарен
|
(Offline)
|
|
30.01.2007, 00:05
|
#2
|
Знающий
Регистрация: 10.08.2006
Сообщений: 254
Написано 3 полезных сообщений (для 3 пользователей)
|
Re: ПОМОГИТЕ!!!
Пока есть только возможность искать другие телефоны...
|
(Offline)
|
|
05.02.2007, 16:56
|
#3
|
Оператор ЭВМ
Регистрация: 29.01.2007
Сообщений: 33
Написано 0 полезных сообщений (для 0 пользователей)
|
Re: ПОМОГИТЕ!!!
ну будь так добр дай их мне
только с полным пояснением че и куда)
|
(Offline)
|
|
08.02.2007, 03:20
|
#4
|
Знающий
Регистрация: 10.08.2006
Сообщений: 254
Написано 3 полезных сообщений (для 3 пользователей)
|
Re: ПОМОГИТЕ!!!
Посмотри в библиотеках Пилигрима...
|
(Offline)
|
|
08.02.2007, 13:29
|
#5
|
Оптимист
Регистрация: 07.01.2006
Сообщений: 961
Написано 105 полезных сообщений (для 259 пользователей)
|
Re: ПОМОГИТЕ!!!
там только обнаружение устройств. хочу добавить туда работу по протоколу btsp использующему bluetooth как простой последовательный порт
|
(Offline)
|
|
13.11.2013, 21:40
|
#6
|
AnyKey`щик
Регистрация: 11.11.2013
Сообщений: 5
Написано одно полезное сообщение (для 2 участников)
|
Ответ: ПОМОГИТЕ!!!
bt_servers:array[1..2] of String;
S:string;
x,y,x2,y2,temp:integer;
procedure servers_list(list: integer);
begin
Debug('servers:'+list);
bt.start(bt_servers[1]);
end;
procedure connection_error;
var
cm: command;
begin
showAlert('Bluetooth', 'Ошибка Bluetooth соединения.', loadImage('/icon.png'), ALERT_ERROR);
playAlertSound;
cm := createCommand('OK', CM_OK, 1);
repeat
delay(100);
until getClickedCommand <> emptyCommand;
end;
procedure message_received(msg:String);
begin
S:=msg;
end;
procedure accept_connection;
begin
bt.send_message('OK');//отправляем сообщение
end;
Begin
bt.init;
setcolor (0,0,0);
fillrect (0,0,240,320);
setcolor (0,255,0);
drawtext ('Выберите тип подключения, ',0,0);
drawtext ('нажав одну из кнопок:, ',0,25);
setcolor (32,125,64);
drawtext ('1 - сервер ',0,55);
drawtext ('3 - клиент ',0,80);
repaint;
//инструкция :)
repeat
delay (100);
Until ((GetKeyPressed=KE_KEY1) or (GetKeyPressed=KE_KEY3));//ждем, пока не нажата одна из клавиш
if GetKeyPressed=KE_KEY1 then bt.wait_connection('ME'); //если нажата кнопка 1 – мы сервер
if GetKeyPressed=KE_KEY3 then bt.search_connection; //если нажата кнопка 3 – мы клиент
setcolor (0,0,0);
fillrect(0,0,240,320);
setcolor (10,240,255);
drawtext('Ожидание связи...',0,0);
repaint;
repeat
delay(100);
until(S='OK');//тот самый “пустой” цикл. Ждем сообщения ‘OK’
setcolor (0,16,32);
fillrect(0,0,240,320);
setcolor (10,255,17);
drawtext('Готово!',0,0);//пишем о том, что соединение установлено!
Repaint;
delay(1000);
bt.send_message('текст, який потрібно відправити');
А ось програма власної розробки для переписки через Блютус.
|
(Offline)
|
|
23.11.2013, 02:30
|
#7
|
Оператор ЭВМ
Регистрация: 09.02.2013
Сообщений: 46
Написано 6 полезных сообщений (для 13 пользователей)
|
Ответ: ПОМОГИТЕ!!!
Это кошмар
|
(Offline)
|
|
23.11.2013, 10:28
|
#8
|
Разработчик
Регистрация: 16.08.2008
Адрес: Нижегородская провинция
Сообщений: 389
Написано 48 полезных сообщений (для 93 пользователей)
|
Ответ: ПОМОГИТЕ!!!
Сообщение от Ahsoka_Tano
Это кошмар
|
С учётом того что теме хз!!! сколько лет - это да. Дождались ответа...
__________________
- Это мы накодили WINDOWS,
- Это мы надкусили APPLE,
- Нам играют живые The Beatles
- И нестареющий Вова Высоцкий...
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 12:04.
|