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