Появилось несколько вопросов:
1.Как сделать так чтобы два разных bluetooth чата не видели друг друга?
2.Каким образом можно узнать, поддерживает ли телефон JSR82?
3.Не работает этот код:
//вызывается при получении сообщения от оппонента
procedure message_received(msg:String);
begin
.............
if getchar(msg,0)='%' then
begin
if getchar(msg,2)='%' then
begin
kx:=stringtointeger(copy(msg,1,2));
ky:=stringtointeger(copy(msg,3,length(msg)-1));
end
else if getchar(msg,3)='%' then
begin
kx:=stringtointeger(copy(msg,1,3)); ky:=stringtointeger(copy(msg,4,length(msg)-1));
end;
btcord:=true;
end;
end;
Procedure game;
begin
repeat
...........
bthod:=false;
btcord:=false;
repeat
clicked:=getclickedcommand;
kclicked:=getkeypressed;
if ((kclicked=KE_KEY5) or (btcord=true)) and (a[kx,ky]='0')then
begin
...............
a[kx,ky]:=hod;
if (gametype='bt') and (btcord=false) then
begin
mesag:='%'+kx+'%'+ky+' ';
bt.send_message(mesag);
end;
bthod:=true;
if hod='1' then hod:='2'
else if hod='2' then hod:='1';
end
until (kclicked<>KE_NONE) or (clicked=back) or (firstN=true) or (clicked=svgm) or (bthod=true);
until (clicked=back) or (clicked=svgm);
end;
После посылки координаты(нажатии на 5) прогу выбивает в меню на том теле, с которого её послали (хотя координата все же посылается но не распознается на другом телефоне). Без блутуза все хорошо работает, не выбивает