AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Drucken unter Android

Ein Thema von tkhandel · begonnen am 8. Dez 2022 · letzter Beitrag vom 21. Dez 2022
 
tkhandel

Registriert seit: 2. Jan 2022
Ort: Arnsberg im Sauerland
107 Beiträge
 
Delphi 10.4 Sydney
 
#10

AW: Drucken unter Android

  Alt 16. Dez 2022, 12:22
Hallo,

auf die Winsoft’s Library war ich auch schon gestoßen hat aber den Nachteil das immer
eine Vorschau kommt und man den Drucker wählen muss (so wie ich das verstehe)
Hinzu kommt das der Bixolon Drucker dort als Drucker nicht nach einer Kopplung erscheint
sondern erst irgendwelche Drucker-Apps installiert werden müssen um den Drucker als
Drucker zu finden.

Ich hab nochmal ein bisschen gegoogelt und probiert bin jetzt soweit das ich in einer
ComboBox alle verbundenen Bluetoothgeräte somit auch den Bixolon auflisten kann und
festlegen kann.

Mit dem folgenden Code:

procedure TfraDrucker.ButtonClick(Sender: TObject);
var
DX:String;
SND:TBytes;
LServices : TBluetoothServiceList;
ServiceGUI, ServiceName:String;
lprintheader : string;
lprintfooter : string;
begin
if LDevice.IsPaired then
begin
LServices := LDevice.GetServices;
SelDevice := LDevice;
serviceGUI :='{00001101-0000-1000-8000-00805F9B34FB}';
serviceName :='SerialPort';
guid:= StringToGUID(servicegui);
end;
{/device}

if (LDevice <> nil) then
begin
LSockect := SelDevice.CreateClientSocket(Guid, true); //was LDevice
if (Assigned(LDevice)) And (Assigned(LSockect)) then
begin
if Not LSockect.Connected then LSockect.Connect
end
else
begin
LSockect := SelDevice.CreateClientSocket(Guid, True);
LSockect.Connect;
end;
lprintheader := lprintheader + ' ESC@ LF';
if Assigned(LSockect) then
begin
if LSockect.Connected then
begin
DX := lprintheader;
SND := TEncoding.UTF8.GetBytes(DX);
LSockect.SendData(SND);
Sleep(100);
LSockect.Close; // Connected := False;
end;
end;
end;


ich kann den Drucker anschließend ansprechen, der Drucker reagiert mit Empfangsmeldung macht alle 4 Clicks einen LF.
Wie muss ich die Steuerzeichen übertragen? ASCII, HEX, Trennzeichen dazwischen oder nur leerzeichen ?
Wie kann ich einen Text senden?

Fragen über Fragen

Danke für eure Bemühungen

Jürgen
Jürgen
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz