[S_007]

Vint, исправил short на int, МП не ругался и с short, компилил в NetBens, все без ошибок, МП все функции скушал, заливаю в телефон, висит на bt.bt_init, пробую сразу bt.bt_connect, висит и сдесь, хотя этот же код компилируя в WTK и без bt.bt_init конектится с компом. Может проблемма в компиляторе NetBens? Если не секрет, ты в какой программе библиотеки делаешь? Пробовал и в JGRASPE, поначалу все было ок, пока исправлял все ошибки, что-то натворил, он стал кричать:
jGRASP exec: jgrasp_environment_invalid
jGRASP wedge2 error: command "jgrasp_environment_invalid" not found.
This command must be in the current working directory
or on the current PATH to use this function.
что за фигня, непойму вобще... Посоветуй Vint, в какой проге можно обойти все эти косяки, пожалуйста!


import javax.microedition.lcdui.*;
import javax.bluetooth.*;
import java.io.*;
import javax.microedition.io.*;

public class Lib_bt
{
public static void bt_init()
{
try
{
LocalDevice local = LocalDevice.getLocalDevice();
local.setDiscoverable(DiscoveryAgent.GIAC);
}
catch (Exception e)
{
//Alarm(e);
}
}

public static void bt_connect()
{
try
{
con = (StreamConnection) Connector.open(URL, Connector.READ_WRITE);
out = con.openOutputStream();
ins = con.openInputStream();
}
catch (Exception e)
{
//Alarm(e);
}
}

public static void bt_disconnect()
{
try
{
if(con != null) con.close();
if(out != null) out.close();
if(ins != null) ins.close();
}
catch (Exception e)
{
//Alarm(e);
}
}

public static void bt_transmit(int temp)
{
try
{
out.write(temp);
out.flush();
}
catch(Exception e)
{
//Alarm(e);
}
}

public static int bt_receiver()
{
try
{
temp = (int)(ins.read());
}
catch(Exception e)
{
//Alarm(e);
}
return temp;
}

private static String URL = "btspp://001F81000830:1;authenticate=false;encrypt=false;ma ster=false";
private static StreamConnection con;
private static InputStream ins;
private static OutputStream out;
private static int temp;
}



program test;
uses bt;
var a,s:integer; t:string;

begin
a:= 22;
bt.bt_init;
bt.bt_connect;
Repeat
bt.bt_transmit(a);
s:= bt.bt_receiver;
t:= ''+s;
drawText(t, 34, 47);
repaint;
delay(15);
Until false;
end.