查看: 3175|回复: 8
有人能够测试下这个蓝牙打印字符串的代码吗？
主题帖子积分
论坛元老, 积分 4501, 距离下一级还需 9995498 积分
论坛元老, 积分 4501, 距离下一级还需 9995498 积分
Delphi XE7&Delphi XE6&Delphi XE5&
Windows&Android&
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
才可以下载或查看，没有帐号？
本文正介绍了有人能够测试下这个蓝牙打印字符串的代码吗？下面是代码，不是很复杂，不过没有具体的设备来测试，有条件测试的可以帮测试下，谢谢！看是否能够通过这个代码来打印字符串。
unit AndroidB
& & System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
& & FMX.ListView,System.math, FMX.Forms,
& & Androidapi.JNI.BluetoothAdapter,
& & Androidapi.Helpers,
& & Androidapi.JNI.JavaTypes,
& & Androidapi.JNIBridge,
& & Android.JNI.T
&&type TAndroidBluetooth = class
& & private
& & public
& && &devicename :
& && &uid:JUUID;
& && &targetMAC:
& && &Adapter:JBluetoothA
& && &remoteDevice:JBluetoothD
& && &Sock:JBluetoothS
& && &ostream:JOutputS
& && &//istream:JI
& && &constructor create();
& && &function StringToJA(Data: S charset: String = '') : TJavaArray&Byte&;
& && &function GetDeviceList() : TStringL
& && &function CreateConnectionToBluetoothDevice(device : TListViewItem) :
& && &function PrintText(text : string) :
&&
implementation
&&// ## Klassenexterne Funktionen ##
&&{Konstruktor}
&&constructor TAndroidBluetooth.
&&begin
& &&&inherited C
&&
&&{Funktion: Gibt alle Bluetooth Geräte in der nähe zurück}
&&function TAndroidBluetooth.GetDeviceList : TStringL
&&var
& & s:
& & list:TStringL
&&begin
& & list:=TStringList.C
& & s:=checkB&&// Make sure bluetooth is enabled
& & Toast(s);
& & if pos('disabled',s)&&0
& & uid := TJUUID.JavaClass.fromString(stringtojstring('0-805F9B34FB'));
& & list.C
& & list.AddStrings(getbonded);
& & result :=
&&{Funktion: Stellt eine Verbindung zu einem Bluetooth Gerät her}
&&function TAndroidBluetooth.CreateConnectionToBluetoothDevice(device : TListViewItem) :
&&var
& & len,idx,i:
& & s:
& & buffer:TJavaArray&byte&;
&&begin
& &&&Toast('Selected '+device.Text);
&&targetMAC:=device.D
&&if trim(targetMAC)=''
&&Adapter:=TJBluetoothAdapter.JavaClass.getDefaultA
&&remoteDevice:=Adapter.getRemoteDevice(stringtojstring(targetMAC));
&&Toast('Connecting to '+device.Text+' ('+device.Detail+')');
&&devicename := device.T
&&sock:=remoteDevice.createRfcommSocketToServiceRecord(uid);
&&try sock.
&&except Toast('Could not create service record!');
&&
&&if not sock.isConnected then
&&begin
& & Toast('Failed to connect to '+targetMAC+'! Try again...');
& &
&&
&&Toast('Connected!');
&&ostream:=sock.getOutputS
&&//istream:=sock.getInputS
& & Application.ProcessM
& & ostream.write(ord(255)); //
& & ostream.write(ord(255)); // get device id& &(nur Chitanda)
& & sleep(200);
&&{Funktion: Druckt einen String auf einem Bluetooth Gerät}
&&function TAndroidBluetooth.PrintText(text : string) :
&&var
& & txt:
& & data: TJavaArray&Byte&;
& & sendText : TJavaArray&Byte&;
&&begin
& && &txt :=
& && &data := StringToJA(txt,'iso8859-2');
& && &sendText := TJavaArray&Byte&.Create(3);
& && &sendText.Items[0] := $1B;
& && &sendText.Items[1] := $74;
& && &sendText.Items[2] := Byte(23);
& && &ostream.write(sendText);
& && &ostream.write(data);
& &{Funktion: Konvertiert ein String in ein TJavaArray&Byte&}
& &function TAndroidBluetooth.StringToJA(Data: S charset: String = '') : TJavaArray&Byte&;
& &var
& & Encoding: TE
& & Arr: TB
& & len:
& &begin
&&if charset && '' then
& & Encoding := TEncoding.GetEncoding(charset)
& & else
& & Encoding := TEncoding.D
& & Arr := Encoding.GetBytes(Data);
& & len := Length(Arr);
& & Result := TJavaArray&Byte&.Create(len);
& & if len & 0 then Move(Arr[0], Result.Data^, len);
& &
end.复制代码
转载请保留当前帖子的链接： 谢谢！
搜索简单，分享不易，且分享且珍惜，您难道不想分享下您的心得？如果觉得本文章好的话，您可以在我们网站上注册，然后发布您的好的心得，让大家共同进步，谢谢！
主题帖子积分
中级会员, 积分 304, 距离下一级还需 196 积分
中级会员, 积分 304, 距离下一级还需 196 积分
& &默默 看了下 我的 竟然没有蓝牙&&我了个 去&&
主题帖子积分
论坛元老, 积分 4501, 距离下一级还需 9995498 积分
论坛元老, 积分 4501, 距离下一级还需 9995498 积分
默默 看了下 我的 竟然没有蓝牙&&我了个 去
我都没用过蓝牙，啥高科技哦
主题帖子积分
中级会员, 积分 304, 距离下一级还需 196 积分
中级会员, 积分 304, 距离下一级还需 196 积分
要是直接 编译好的 更好测试
主题帖子积分
中级会员, 积分 304, 距离下一级还需 196 积分
中级会员, 积分 304, 距离下一级还需 196 积分
有咩有编译好的
主题帖子积分
中级会员, 积分 304, 距离下一级还需 196 积分
中级会员, 积分 304, 距离下一级还需 196 积分
小彬彬&&被闹了 ，你要是 直接给我 个 apk&&我就更好测试了
主题帖子积分
注册会员, 积分 118, 距离下一级还需 82 积分
注册会员, 积分 118, 距离下一级还需 82 积分
设备都无法连接呀 郁闷
主题帖子积分
注册会员, 积分 118, 距离下一级还需 82 积分
注册会员, 积分 118, 距离下一级还需 82 积分
& & Adapter:JBluetoothA
& & remoteDevice:JBluetoothD
& & Sock:JBluetoothS
的声明 单元是都没有呢 Androidapi.JNI.BluetoothAdapter
主题帖子积分
注册会员, 积分 66, 距离下一级还需 134 积分
注册会员, 积分 66, 距离下一级还需 134 积分
已测试，该代买完全没问题，我已应用。如果要打中文要修改以下代码。
data := StringToJA(txt,'iso8859-2');
data := StringToJA(txt,'GBK');
Powered by您是不是在找：
买家还在看：
当前位置：&&&
￥55000 元/台
哪里有卖打印机的多少钱
detail3e周边优质供应商山东省济宁市安徽省合肥市广东省深圳市浙江省杭州市
加工定制：是
数码印刷机类型：万能打印机
印刷颜色：彩印
适用对象：名片,相片,服装、服饰,光盘,书本,对联,杯、碗,玩具,电子,IC封,瓶盖,商标标签,塑料软包装,纸质包装,票据,皮革烫画
适用材质：玻璃
品牌：精工
型号：精工1325
印刷速度：8-20
印刷幅面：（mm）
承印物厚度范围：100（mm）
分辨率：1440dpi
外形尺寸：00（mm）
重量：200（kg）
电源：220v
产地：上海
产品类型：全新
售后服务：一年保修终生维护
规格：1325精工
慧聪网厂家上海悠远印务技术有限公司为您提供哪里有卖打印机的多少钱的详细产品价格、产品图片等产品介绍信息，您可以直接联系厂家获取哪里有卖打印机的多少钱的具体资料，联系时请说明是在慧聪网看到的。
detail3e相关商品推荐￥30.00￥70.00￥180.00￥12800.00￥2.50￥70.00￥650.00￥25.00热门商品推荐 ￥30.00 ￥70.00 ￥180.00 ￥12800.00 ￥2.50 ￥70.00 ￥650.00 ￥25.00
detail3e店内热门商品￥￥￥￥
detail3e热敏打印机相关资源热敏打印机热门产品搜索热敏打印机相关热门专题更多&热门商机最新商机
提示：您在慧聪网上采购商品属于商业贸易行为。以上所展示的信息由卖家自行提供，内容的真实性、准确性和合法性由发布卖家负责，请意识到互联网交易中的风险是客观存在的。推荐使用，保障您的交易安全！
detail3e达人选购￥30.00￥70.00￥180.00￥12800.00
detail3e关于多少钱
联系人：王晴晴 & 女士
021 ******
131 ******
请供应商联系我
手机号不能为空
姓名不能为空
请供应商联系我
您对该公司的咨询信息已成功提交请注意接听供应商电话。
detail3e您是不是在找
让慧聪网撮合专家为您解决采购难题
您采购的产品：
请输入采购产品
您的手机号码：
请输入手机号码
提交成功！
联系方式：010 ******(专属客服：聪聪)
手机号：131 ******
联系人：王晴晴&销售部 经理
公司名称：上海悠远印务技术有限公司
请输入正确的手机号码
请输入验证码
*短信验证码：
免费获取验证码
为了安全，请输入验证码，我们将优先处理您的需求！
请输入验证码
按字母分类 ：价格：面议
关键词：万能平板,打印机
在线联系：
商品别名 打印印刷
面向地区 全国
北京市那里有卖的？的详细描述：
北京市那里有卖万能的？在这里，我给大家介绍一家好的万能平板打印机厂家。
深圳迈创彩印自主研发万能平板打印机，采用第五代喷头，结合国内大幅面写真机核心技术生产制造，其特点是印刷幅面大、双喷头印刷速度快、精度高、耐用、维护成本低等。特在北京设立了我们的分公司。万能平板打印机具有大批量生产性能稳定，故障率低，可适应各种环境等优势，大大降低生产成本，当您拥有一台这样高速度、高精度的生产型万能平板打印机时，您会节省部分人力成本，和拥有相当于别种几台平板打印机的生产力，同时低价位的喷头和墨水成本会让您在竞争中立于不败之地。配好专业的RIP软件系统，让生产效率如虎添翼，备受国内外顾客的推崇。免费的上门安装培训服务，使每一位我们的客户在这里感受到贴心的服务！
联系人韩先生Tel：
联系我时请务必告知是在黄页88网看到的！
地址：深圳市宝安区西乡镇勒竹角天富安工业园二栋1楼西
微信扫一扫获取联系方式
万能平板相关推荐信息
5年主营：手机壳 玻璃 亚克力 塑料 皮革 贴膜 打印机地址：深圳市宝安区西乡镇勒竹角天富安工业园二栋1楼西———— 认证资质 ————
个人 营业执照 手机 微信 邮箱
个人认证已通过 企业认证已通过 没有手机认证 没有微信认证 邮箱认证已通过
咨询主题：价格发货与交货商品参数其它 *咨询详情： *联系人： *手机号码： QQ号：
安徽合肥用户A***：来看看万能平板详细介绍，购买方便，好评。
北京海淀用户M***：来看看打印印刷详细介绍，看着挺好。
河北廊坊用户p***：来看看打印机详细介绍，打算购买。
河北保定用户Y***：了解了产品详情，看着不错。
辽宁用户Q***：了解了产品详情，性价比高。
黄页88用户S***：了解了产品详情，老板服务态度很好。
大幅面打印机VIP推荐信息
2017最新大幅面打印机信息
大幅面打印机相关分类
万能平板热门城市
小提示：本信息描述文字和图片由用户自行上传发布，其真实性、合法性由发布人负责。android程序连接蓝牙打印机。对打印机的型号有什么要求吗_android开发吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：109,871贴子：
android程序连接蓝牙打印机。对打印机的型号有什么要求吗收藏
「网易云信」是网易倾力打造IM云服务.提供IM,音视频,聊天室,专线电话技术,短信服务.开发者调用网易云信SDK及API,即可开发app社交功能,比自主研发节省99%投入!
现在要做个android程序需要连接蓝牙打印机
谁有过这方面经验吗？求大神
支持安卓蓝牙应该都可以吧
支持安卓蓝牙都通用吗
看你要打印什么啊，一般没什么要求的，按格式传byte过去就能打， 只是不同的打印机的行宽不一样，格式排得不一样而已。
andriod开发,到京东享受智能生活,体验未来,全场正品,完善售后!andriod开发,网上购物选JD,正品行货 精致服务.
对手机有要求，象华为这类 读写时候你要延时久一点
我也在做，今天弄个打印机试试。百度上的demo
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或