Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   www.boolean.name > Программирование игр для мобильных телефонов > MidletPascal > Основной форум

Основной форум Сюда все проблемы связанные с программированием.

Ответ
 
Опции темы
Старый 29.01.2007, 14:35   #1
andresyuk_be
Оператор ЭВМ
 
Регистрация: 29.01.2007
Сообщений: 33
Написано 0 полезных сообщений
(для 0 пользователей)
ПОМОГИТЕ!!!

Нужен рабочий исходник для midletpascal для работы с bluetooth
не надо давать ссылок на FAQ и др. нужен именно рабочий исходник для передачи данных между 2 телефонами
заранее благодарен
(Offline)
 
Ответить с цитированием
Старый 29.01.2007, 21:05   #2
IVenoMI
Знающий
 
Регистрация: 10.08.2006
Сообщений: 254
Написано 3 полезных сообщений
(для 3 пользователей)
Re: ПОМОГИТЕ!!!

Пока есть только возможность искать другие телефоны...
(Offline)
 
Ответить с цитированием
Старый 05.02.2007, 13:56   #3
andresyuk_be
Оператор ЭВМ
 
Регистрация: 29.01.2007
Сообщений: 33
Написано 0 полезных сообщений
(для 0 пользователей)
Re: ПОМОГИТЕ!!!

ну будь так добр дай их мне
только с полным пояснением че и куда)
(Offline)
 
Ответить с цитированием
Старый 08.02.2007, 00:20   #4
IVenoMI
Знающий
 
Регистрация: 10.08.2006
Сообщений: 254
Написано 3 полезных сообщений
(для 3 пользователей)
Re: ПОМОГИТЕ!!!

Посмотри в библиотеках Пилигрима...
(Offline)
 
Ответить с цитированием
Старый 08.02.2007, 10:29   #5
Piligrim
Оптимист
 
Регистрация: 07.01.2006
Сообщений: 961
Написано 105 полезных сообщений
(для 259 пользователей)
Re: ПОМОГИТЕ!!!

там только обнаружение устройств. хочу добавить туда работу по протоколу btsp использующему bluetooth как простой последовательный порт
(Offline)
 
Ответить с цитированием
Старый 13.11.2013, 17:40   #6
and331
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('текст, який потрібно відправити');
А ось програма власної розробки для переписки через Блютус.
Вложения
Тип файла: rar BTand.rar (27.0 Кб, 65 просмотров)
(Offline)
 
Ответить с цитированием
Старый 22.11.2013, 22:30   #7
Ahsoka_Tano
Оператор ЭВМ
 
Аватар для Ahsoka_Tano
 
Регистрация: 09.02.2013
Сообщений: 46
Написано 6 полезных сообщений
(для 13 пользователей)
Ответ: ПОМОГИТЕ!!!

Это кошмар
(Offline)
 
Ответить с цитированием
Старый 23.11.2013, 06:28   #8
GRAY_WOLF
Разработчик
 
Аватар для GRAY_WOLF
 
Регистрация: 15.08.2008
Адрес: Нижегородская провинция
Сообщений: 389
Написано 48 полезных сообщений
(для 93 пользователей)
Ответ: ПОМОГИТЕ!!!

Сообщение от Ahsoka_Tano Посмотреть сообщение
Это кошмар
С учётом того что теме хз!!! сколько лет - это да. Дождались ответа...
__________________
- Это мы накодили WINDOWS,
- Это мы надкусили APPLE,
- Нам играют живые The Beatles
- И нестареющий Вова Высоцкий...
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +1, время: 13:08.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com