bluetooth yazıcı

[ceylan]

Merhaba,

sewoo marka bluetooth yazıcıya cpcl mod da etiket yazdırmak istiyorum ancak internette örnek bulamadım, etikette text, barkod ve image ( .png mesela) olacak, daha önceden bu konu ile uğraşmış arkadaş var mı? var ise örnek kod paylaşabilir mi?

teşekkürler

[enigma]

(15-03-2021, Saat: 17:05)ceylan Adlı Kullanıcıdan Alıntı: Merhaba,

sewoo marka bluetooth yazıcıya cpcl mod da etiket yazdırmak istiyorum ancak internette örnek bulamadım, etikette text, barkod ve image ( .png mesela) olacak, daha önceden bu konu ile uğraşmış arkadaş var mı? var ise örnek kod paylaşabilir mi?

teşekkürler

Bahsettiğiniz tip yazıcıların çoğunda artık standart haline gelmiş ZEBRA marka yazıcılar ile uymluluk olabiliyor. Zebra yazıcıların ZPL (Zebra Programing Language) diye bir dili var. 
Eğer yazıcınızın Windows sürücüsü varsa bunların hiç birine gerek kalmadan yazdırabilrsiniz. Eğer destek ve döküman gerekirse, ithalatçısı;
https://www.setsis.com.tr/urunler/?produ...BCEALw_wcB

diye bir firma. 
Eğer zebra ile uyumlu ise Zebranın internetten de indirebileceğiniz ücretsiz bir etiket dizayn programı var. Bununla bir denetebilirsiniz. Bu program dizayn ettiğiniz etiketi "print to file" seçeneği ile ZPL komutlarıyla text olarak çıktı verebiliyor. Bu dosyayı yazıcıya gönderirseniz baskı alabiliyorsunuz.

[ceylan]

Merhaba,
uygulamayı android cihada çalıştırma istediğimi yazmamışım, kusura bakmayın,

internette araştırdığımda;
socket create ederek işlem yapılan örnekler var

if (FSocket <> nil) and (FSocket.Connected) then

FSocket.SendData(TEncoding.UTF8.GetBytes('Delphi deneme'+ chr(13));

ancak bu komuta yazıcı tepki vermiyor

zpl olarak oluşturduğum text i de senddata ile yazıcıya gönderdiğimde hiç tepki vermiyor

t := '! 0 200 200 48 1\r\n' +'TEXT 7 0 0 0 Delphi deneme\r\n ' +'PRINT \r\n';
FSOCket.sendData(t);

bu şekilde de hiç tepki yok, zpl komutlarını delphi kullanarak yazıcıya nasıl gönderebilirz?

iyi günler

[enigma]

(18-03-2021, Saat: 15:35)ceylan Adlı Kullanıcıdan Alıntı: Merhaba,
uygulamayı android cihada çalıştırma istediğimi yazmamışım, kusura bakmayın,

internette araştırdığımda;
socket create ederek işlem yapılan örnekler var

if (FSocket <> nil) and (FSocket.Connected) then
FSocket.SendData(TEncoding.UTF8.GetBytes('Delphi deneme'+ chr(13));

ancak bu komuta yazıcı tepki vermiyor

zpl olarak oluşturduğum text i de senddata ile yazıcıya gönderdiğimde hiç tepki vermiyor

t := '! 0 200 200 48 1\r\n' +'TEXT 7 0 0 0 Delphi deneme\r\n ' +'PRINT \r\n';

FSOCket.sendData(t);

bu şekilde de hiç tepki yok, zpl komutlarını delphi kullanarak yazıcıya nasıl gönderebilirz?

iyi günler

Androd  ile nasıl yapılır bilmiyorum ama Windows'ta Yazıcının IP numarası üzerinden port numarasına gönderince yazıyor. Bazı modellerde satır sonunda CR+LF  eki gerekebiliyor.
Ben Windows'ta ClientSocket ile bunu yapıyorum.

[ceylan]

merhaba,
aşağıdaki şekilde tanımlı olan printCPCLText prosedürünü buton un onclik metodunda nasıl kullanabilirim?

teşekkürler




 

JCPCLClass = interface(JObjectClass)
   ['{1FA43D21-0A43-4DD2-B9DE-D5A9861AAB23}']
   {class} function init: JCPCL; cdecl;//Deprecated
 end;

 [JavaSignature('com/sewoo/jpos/command/CPCL')]
 JCPCL = interface(JObject)
   ['{A840BD47-D9B3-4FCE-8ABE-8CDFC10777CA}']
   procedure clearBuffer; cdecl;//Deprecated
   procedure concatText(P1: Integer; P2: Integer; P3: Integer; P4: JString); cdecl;//Deprecated
   function getBuffer: JStringBuffer; cdecl;//Deprecated
   procedure inverseLine(P1: Integer; P2: Integer; P3: Integer; P4: Integer; P5: Integer); cdecl;//Deprecated
   procedure multiLineData(P1: JString); cdecl;//Deprecated
   procedure multiLineText(P1: Integer; P2: Integer; P3: Integer; P4: Integer; P5: Integer); cdecl;//Deprecated
   procedure printBox(P1: Integer; P2: Integer; P3: Integer; P4: Integer; P5: Integer); cdecl;//Deprecated
   procedure printCPCL2DBarCode(P1: Integer; P2: JString; P3: Integer; P4: Integer; P5: Integer; P6: Integer; P7: Integer; P8: Integer; P9: JString); cdecl;//Deprecated
   procedure printCPCLBarcode(P1: Integer; P2: JString; P3: Integer; P4: Integer; P5: Integer; P6: Integer; P7: Integer; P8: JString; P9: Integer); cdecl;//Deprecated
   procedure printCPCLImage(P1: JString; P2: Integer; P3: Integer); cdecl;//Deprecated
   procedure printCPCLText(P1: Integer; P2: Integer; P3: Integer; P4: Integer; P5: Integer; P6: JString; P7: Integer); cdecl;//Deprecated
   procedure printForm; cdecl;//Deprecated
   procedure printGraphic(P1: Integer; P2: Integer; P3: Integer; P4: Integer; P5: TJavaArray<Byte>); cdecl;//Deprecated
   procedure printLine(P1: Integer; P2: Integer; P3: Integer; P4: Integer; P5: Integer); cdecl;//Deprecated
   procedure resetCPCLBarcode; cdecl;//Deprecated
   procedure resetConcat; cdecl;//Deprecated
   procedure resetCountry; cdecl;//Deprecated
   procedure resetMagnify; cdecl;//Deprecated
   procedure resetMultiLine; cdecl;//Deprecated
   procedure setCPCLBarcode(P1: Integer; P2: Integer; P3: Integer); cdecl;//Deprecated
   procedure setCharSet(P1: JString); cdecl;//Deprecated
   procedure setConcat(P1: Integer; P2: Integer; P3: Integer); cdecl;//Deprecated
   procedure setContrast(P1: Integer); cdecl;//Deprecated
   procedure setCountry(P1: JString); cdecl;//Deprecated
   procedure setForm(P1: Integer; P2: Integer; P3: Integer; P4: Integer; P5: Integer); cdecl;//Deprecated
   procedure setFormMode; cdecl;//Deprecated
   procedure setJournalMode; cdecl;//Deprecated
   procedure setJustification(P1: Integer); cdecl;//Deprecated
   procedure setMagnify(P1: Integer; P2: Integer); cdecl;//Deprecated
   procedure setMeasure(P1: Integer); cdecl;//Deprecated
   procedure setMedia(P1: Integer); cdecl;//Deprecated
   procedure setMultiLine(P1: Integer); cdecl;//Deprecated
   procedure setPageWidth(P1: Integer); cdecl;//Deprecated
   procedure setPattern(P1: Integer); cdecl;//Deprecated
   procedure setSpeed(P1: Integer); cdecl;//Deprecated
   procedure setTone(P1: Integer); cdecl;//Deprecated
   procedure userString(P1: JString); cdecl; overload;//Deprecated
   procedure userString(P1: JString; P2: Boolean); cdecl; overload;//Deprecated
 end;
 TJCPCL = class(TJavaGenericImport<JCPCLClass, JCPCL>) end;

 JCPCLConstClass = interface(IJavaClass)
   ['{B2FFAD87-E7E6-4295-95B7-F1779B7496D9}']
   {class} function _GetLK_BXX_MODEL: Integer; cdecl;
   {class} function _GetLK_CPCL_0_ROTATION: Integer; cdecl;
   {class} function _GetLK_CPCL_180_ROTATION: Integer; cdecl;
   {class} function _GetLK_CPCL_270_ROTATION: Integer; cdecl;
   {class} function _GetLK_CPCL_90_ROTATION: Integer; cdecl;
   {class} function _GetLK_CPCL_BCS_0RATIO: Integer; cdecl;
   {class} function _GetLK_CPCL_BCS_128: JString; cdecl;
   {class} function _GetLK_CPCL_BCS_1RATIO: Integer; cdecl;
   {class} function _GetLK_CPCL_BCS_20RATIO: Integer; cdecl;
   {class} function _GetLK_CPCL_BCS_21RATIO: Integer; cdecl;
   {class} function _GetLK_CPCL_BCS_22RATIO: Integer; cdecl;
   {class} function _GetLK_CPCL_BCS_23RATIO: Integer; cdecl;
   {class} function _GetLK_CPCL_BCS_24RATIO: Integer; cdecl;
   {class} function _GetLK_CPCL_BCS_25RATIO: Integer; cdecl;
   {class} function _GetLK_CPCL_BCS_26RATIO: Integer; cdecl;
   {class} function _GetLK_CPCL_BCS_27RATIO: Integer; cdecl;

[zalimaga]

Merhaba,

bu konuda ilerleme oldu mu acaba? epey araştırdım, denedim ama bluetooth yazıcıdan yazdırabildiğim bir örneğe rastlayamadım, bu işin abileri bi yardımcı olup küçük bir örnek paylaşabilir mi acaba?

[faserka]

Merhabalar, 
Örnek olması için aşağıdaki kodları gönderiyorum. Birçok bluetooth yazıcıda çalışıyor. 
SendData ile gönderilen sıralı kodları Yazıcı teknik dokümanınızda görebilirsiniz.

Formunuz üzerine bluetooth bileşeni ekleyin. ayrıca telefon üzerinde yazıcı ile eşleştiğiniz yazıcı ismine ihtiyacınız olacak.

unit uMain;

interface

uses
 System.SysUtils, System.Types, ......

type
 TfrmMain = class(TForm)
   .......
   procedure TfrmMain.btnYazdirClick(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
   function YaziciBaglan(pNomeDevice: String): boolean;
   function YaziciKontrol(pNomeDevice: String): TBluetoothDevice;

 end;

var
 FSocket: TBluetoothSocket;

implementation

{$R *.fmx}

uses ..........;


const
 UUID = '{00001101-0000-1000-8000-00805F9B34FB}';


procedure TfrmMain.FormCreate(Sender: TObject);
begin
// if cbYaziciBaglan.IsChecked then
// begin
    Bluetooth1.Enabled := true;
    YaziciBaglan('YAZICI_ADI');  //Yazıcının telefon bluetooth bağlantısında gözüken adı
// end;
end;


function TfrmMain.YaziciBaglan(pNomeDevice: String): boolean;
var
 lDevice: TBluetoothDevice;
begin
 Result := False;
 lDevice := YaziciKontrol(pNomeDevice);
 FSocket := nil;
 if lDevice <> nil then
 begin
   FSocket := lDevice.CreateClientSocket(StringToGUID(UUID), False);
   if FSocket <> nil then
   begin
       FSocket.Connect;
       Result := FSocket.Connected ;
   end;
 end;
end;

function TfrmMain.YaziciKontrol(pNomeDevice: String): TBluetoothDevice;
var
 lDevice: TBluetoothDevice;
begin
 Result := nil;
 for lDevice in Bluetooth1.PairedDevices do
 begin
   if lDevice.DeviceName = pNomeDevice then
   begin
     Result := lDevice;
   end;
 end;
end;

procedure TfrmMain.btnYazdirClick(Sender: TObject);
begin

  if (FSocket <> nil) and (FSocket.Connected) then
  begin
    FSocket.SendData(TEncoding.UTF8.GetBytes(chr(27) + chr(64)));  //Initialize printer
    FSocket.SendData(TEncoding.UTF8.GetBytes(chr(27) + chr(97) + chr(1))); //set position alignment  - sondaki 0:left 1:center 2:right
    FSocket.SendData(TEncoding.UTF8.GetBytes('DENEME TEXT'));
    FSocket.SendData(TEncoding.UTF8.GetBytes(chr(27) + chr(100) + chr(1))); //Satır boşluk
  end;
end.

[enigma]

Yanlış anlamış olabilirim. Burada BT yazıcısına doğrudan bir şey yazdırılmak mı isteniyor. Aksi olsa Windows sürücüsü üzerinden yazıcı seçip yazdır denebilir.