Thanks Omar you are always available and friendly. ?If you want I can help, I have a B4X library that I developed for a company, and I'm still adding new features from other models.
pd:
I was working on the preview of the labels, but due to a lot of work I left it, now I return to it.
Like this example:
Labelary Online ZPL Viewer
An online ZPL viewer that allows you to easily edit and preview ZPL labels.labelary.com
the library can be downloaded from b4x forum, you could kindly pass the link thanks a lotIf you want I can help, I have a B4X library that I developed for a company, and I'm still adding new features from other models.
pd:
I was working on the preview of the labels, but due to a lot of work I left it, now I return to it.
Like this example:
Labelary Online ZPL Viewer
An online ZPL viewer that allows you to easily edit and preview ZPL labels.labelary.com
Sub Class_Globals
Private fx As JFX
Private imgw As B4XImageView
Private xui As XUI
Public label As String '<
Public Refresh As Timer
Public w As Double = 3.93'larghezza etichetta
Public h As Double = 2.65 'lunghezza etichetta
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize (target As Object)
imgw = target
Start
End Sub
Sub Start
imgw.Clear
imgw.ResizeMode = "FIT"
imgw.CornersRadius = 4
Refresh.Initialize("Refresh", 2500)
Refresh.Enabled = True
End Sub
Sub LoadView
Refresh.Enabled = False
Dim j As HttpJob
j.Initialize("", Me)
'Dim labelstr As String = File.ReadString(File.DirApp, "Prod_coop.prn")
'j.PostString("http://api.labelary.com/v1/printers/8dpmm/labels/3.937x2.755/0/",labelstr)
j.PostString($"http://api.labelary.com/v1/printers/8dpmm/labels/${w}x${h}/0/"$,label)
j.GetRequest.SetHeader("Accept", "image/png")
Wait For(j) JobDone(j As HttpJob)
Dim b As Boolean = j.Success
If b Then
Dim out As OutputStream = File.OpenOutput(File.DirApp, "label.png", False)
File.Copy2(j.GetInputStream, out)
out.Close
imgw.Load(File.DirApp, "label.png")
End If
j.Release
Refresh.Enabled = True
End Sub
Sub Refresh_Tick
If label.Length > 0 Then CallSub(Me,"LoadView")
End Sub
I have NOT shared and have put the B4X library up for sale, because it was developed for a company that distributes Zebra brands, but I give the links for which I base myself on the project.I'm glad this topic is coming to life.
There are several who have already produced code, but I am amazed that no one has tried to share until today.
I tried my hand at last Wednesday and I was already thinking of sharing a library since I didn't find one on the forum.
Here is my invitation why not share a library?
Thanks my friend.I have NOT shared and have put the B4X library up for sale, because it was developed for a company that distributes Zebra brands, but I give the links for which I base myself on the project.
This last link is the most complete, since it has the client and server environments.
I find it very interesting,Good morning everyone,
I was thinking of creating a library for printing with ZEBRA printers via LAN (or WiFI) or Bluetooth.
Do you think it might be of interest?
At least it only prints LAN and Wifi and I'm working with Bluetooth ... the last step will be USB.I find it very interesting,
coincidentally I'm starting research to print to an Argox OS-214 printer with USB connection, if your lib works for that case too, I'm very interested in buying a license