dim bc as Barcode1D
bc.initialize("")
if bc.open then
dim barcode as string = bc.scan
bc.close
end if
you need to write a wrapper for this in java to use the complete sdkyou can find SDK that I would like to use with my Android device.
NoIs there a tool for doing this?
You can create a new thread in the Joboffer forum about this.Or is there someone who can do this for me (paying the service obviously).
dim api as DeviceAPI
api.powerOn(0) ' 0 is the device to power. dont know what values are accepted. You need to try
api.poweroff(0)
Sub btnReadBarcode_Click
Dim bc As Barcode1D
lblInfo.Text = lblInfo.Text & " # " & "Click"
bc.initialize("")
If bc.IsInitialized Then
lblInfo.Text = lblInfo.Text & " # " & "Initialized"
If bc.open Then
lblInfo.Text = lblInfo.Text & " # " & "Opened"
Else
lblInfo.Text = lblInfo.Text & " # " & "NON Opened"
End If
lblBarcode.Text = bc.scan
If bc.close Then
lblInfo.Text = lblInfo.Text & " # " & "Closed"
Else
lblInfo.Text = lblInfo.Text & " # " & "NON Closed"
End If
lblInfo.Text = lblInfo.Text & " # " & "The End"
Else
lblInfo.Text = lblInfo.Text & " # " & "NOT initialized"
End If
End Sub
If bc.open Then
lblInfo.Text = lblInfo.Text & " # " & "Opened"
Else
lblInfo.Text = lblInfo.Text & " # " & "NON Opened"
End If
Sub btnReadBarcode_Click
Dim bc As Barcode1D
Dim api As DeviceAPI
Try
lblInfo.Text = lblInfo.Text & " # " & "Click"
api.Initialize("")
bc.initialize("")
If api.IsInitialized And bc.IsInitialized Then
lblInfo.Text = lblInfo.Text & " # " & "Initialized"
If api.powerOn(1) Then
lblInfo.Text = lblInfo.Text & " # " & "Powered"
Else
lblInfo.Text = lblInfo.Text & " # " & "NOT Powered"
End If
' If bc.open Then
' lblInfo.Text = lblInfo.Text & " # " & "Opened"
' Else
' lblInfo.Text = lblInfo.Text & " # " & "NOT Opened"
' End If
'
' lblBarcode.Text = bc.scan
'
' If bc.close Then
' lblInfo.Text = lblInfo.Text & " # " & "Closed"
' Else
' lblInfo.Text = lblInfo.Text & " # " & "NOT Closed"
' End If
If api.powerOff(1) Then
lblInfo.Text = lblInfo.Text & " # " & "Powered off"
Else
lblInfo.Text = lblInfo.Text & " # " & "NOT Powered off"
End If
lblInfo.Text = lblInfo.Text & " # " & "The End"
Else
lblInfo.Text = lblInfo.Text & " # " & "NOT initialized"
End If
Catch
Log(LastException)
End Try
End Sub
What device is it that you have? PDAxxxxxx?This is my last request ... can you send me wrapper for the last version of api (module and barcode1D?)?
Thanks in advance
OK - just thought that it might be a PDA401 or PDA3506. I managed to get their scanners working via b4a....Hi,
thanks for your attention.
My device is "Handheld Terminal SV450-Q4"
I have SDK (from manufacturer).
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?
We use cookies and similar technologies for the following purposes:
Do you accept cookies and these technologies?