Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Jun 13th, 2012  |  syntax: None  |  size: 0.39 KB  |  hits: 27  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. ZXING port fails to decode qrcode
  2. Dim re As qrcode.QRCodeReader
  3. re = New qrcode.QRCodeReader()
  4.  
  5. Dim Img As New Bitmap("<image file path here>")
  6.  
  7. Dim res As com.google.zxing.Result
  8.  
  9. Dim bufimg As com.google.zxing.client.j2se.BufferedImageMonochromeBitmapSource
  10. bufimg = New client.j2se.BufferedImageMonochromeBitmapSource(Img, False)
  11. res = re.decode(bufimg)
  12.  
  13. Dim ret As String = res.getText()
create a new version of this paste RAW Paste Data