Connect via Bluetooth with Delphi XE7 using portable printer -


i'm trying communicate sewoo lk-p32 printer via bluetooth. using delphi xe7. made few examples come delphi , not having success. put paired printer in tablet , not able print continuously.

when print have restart application, can print again. below sources.

could me? support on issue? time short try other technologies.

method initiates communication printer

procedure tform2.buttonclickstart(sender: tobject); var   msg, texto: string;   i, b: integer;   bluetoothadapter: tbluetoothadapter;   listadeaparelhospareados: tbluetoothdevicelist;   lservices: tbluetoothservicelist; begin   try     memo1.lines.add('ponto 1');     fbluetoothmanager := tbluetoothmanager.current;     if fbluetoothmanager = nil       memo1.lines.add('fbluetoothmanager esta nulo');      memo1.lines.add('ponto 2');     bluetoothadapter := fbluetoothmanager.currentadapter;     if bluetoothadapter = nil     memo1.lines.add('bluetoothadapter esta nulo');      listadeaparelhospareados := bluetoothadapter.paireddevices;     memo1.lines.add('ponto 3');     if listadeaparelhospareados = nil       memo1.lines.add('listadeaparelhospareados esta nulo');      := 0 listadeaparelhospareados.count - 1     begin       ldevice := listadeaparelhospareados[i] tbluetoothdevice;       if ldevice.ispaired       begin         lservices := ldevice.getservices;         b := 0 lservices.count - 1         begin           servicegui := guidtostring(lservices[b].uuid);           guid := lservices[b].uuid;           servicename := lservices[b].name;           memo1.lines.add(lservices[b].name + ' --> ' + servicegui);           memo1.gototextend;         end;       end;     end;   except    on e: exception    begin      msg := e.message;      memo1.lines.add('erro ao conectar na impressora: ' + msg);      memo1.gototextend;    end;  end; end;

method sends text printer

procedure tform2.buttonclicksendtext(sender: tobject); var   fsocket: tbluetoothsocket;   tosend: tbytes;   msg, texto: string; begin   try     memo1.lines.add('aparelho pareado:' + booltostr(ldevice.ispaired));      memo1.lines.add('dados guid:' + guidtostring(guid));     fsocket := ldevice.createclientsocket(guid, true);     if fsocket = nil     memo1.lines.add('fsocket nulo');      memo1.lines.add('criou bluetooth cliente.');     memo1.gototextend;     if fsocket <> nil     begin       // fsocket.connect;       fsocket.connect;       memo1.lines.add('criou socket cliente com o serversocket');       texto := #27 + '|ca' + 'teste' + #13#10;       tosend := tencoding.utf8.getbytes(texto);       fsocket.senddata(tosend);       memo1.lines.add('enviou ' + texto + ' para impressora.');     end     else     begin       memo1.lines.add('fsocket nulo.');     end;    except     on e: exception     begin       msg := e.message;       memo1.lines.add('erro ao conectar na impressora: ' + msg);       memo1.gototextend;     end;   end; end;

in loop, keep assigning ldevice. if there second unpaired device ldevice pointing that. need top exit once have detected paired.

also, don't raising exceptions deliberately. if class instance nil should exit, nolt drill down it..

for instance

if fbluetoothmanager = nil begin   memo1.lines.add('fbluetoothmanager esta nulo');   exit; end;

Comments

Post a Comment

Popular posts from this blog

php - failed to open stream: HTTP request failed! HTTP/1.0 400 Bad Request -

this code i'm using find latitude , longitude of place: function coords($address){ echo $url="http://maps.googleapis.com/maps/api/geocode/json?address=".$address; $json = file_get_contents(urlencode($url)); $data = json_decode($json, true); print_r($data['results'][0]['geometry']['location']['lat']); print_r($data['results'][0]['geometry']['location']['lng']); } however returns warning: failed open stream: http request failed! http/1.0 400 bad request if use above code in simple procedure works fine not in function. note: have tried curl_init()... method produced same result? instead of encoding whole url encode address part. following code work fine $add='jamshoro phase 2'; $url="http://maps.googleapis.com/maps/api/geocode/json?address=".urlencode($add); $json = file_get_contents($url); $data = json_decode($json, true); print_r($data['r
Read more

java - How to filter a backspace keyboard input -

i have code gives message when key number pressed: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochararray().length - 1]; if (!(ch >= '0' && ch <= '9')) { system.out.println("the char entered not number"); t.consume(); } } }); now if press on wrong button , press backspace remove it, error message. how can add backspace input if statement? i have found answer: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochar
Read more

java - Show Soft Keyboard when EditText Appears -

i have code in android app, alert dialog , keyboard, , when dialog shown want keyboard appear. not , not sure why? here code: final alertdialog.builder alert = new alertdialog.builder(this); alert.settitle("title"); alert.setmessage("message"); final edittext input = new edittext(this); input.setinputtype(inputtype.type_class_number); alert.setview(input); input.setonfocuschangelistener(new view.onfocuschangelistener() { @override public void onfocuschange(view v, boolean hasfocus) { if (hasfocus) { log.i(tag, "in focus"); inputmethodmanager inputmethodmanager = (inputmethodmanager) getsystemservice(context.input_method_service); inputmethodmanager.showsoftinput(input, inputmethodmanager.show_implicit); } } }); but keyboard not appear though edit text in focus, , tell appear why, doesn't come up? thanks in advance.
Read more