ZBarMBS.LibraryLoaded as Boolean

ZBarMBS.LibraryLoadError as Integer

ZBarMBS.LibraryLoadErrorMessage as String

ZBarMBS.LoadLibrary(file as folderitem) as boolean

#If TargetMacOS Then
  
  Const libname = "libzbar.0.dylib"
  
  Dim LibFile As FolderItem = GetFolderItem(libname)
  
  If ZBarMBS.LoadLibrary(LibFile) Then
    'MsgBox "ZBar loaded."
  Else
    MsgBox "Failed to load ZBar library: "+ZBarMBS.LibraryLoadErrorMessage
  End If
#EndIf

Please pass path to zbar.dll on Windows, libzbar.dylib on macOS and libzbar.so on Linux.
Returns true on success and false on failure.

See LibraryLoadErrorMessage and LibraryLoadError properties for error details.

We have libraries for you here:
https://www.monkeybreadsoftware.de/xojo/download/plugin/Libs/

See also:

• LoadLibrary(path as string) as boolean

ZBarMBS.LoadLibrary(path as string) as boolean

#If TargetLinux Then
  
  Const libname = "libzbar.so.0"
  // /usr/lib/x86_64-linux-gnu/libzbar.so.0
  
  If ZBarMBS.LoadLibrary(libname) Then
    
    'MsgBox "ZBar loaded."
    
  Else
    
    MsgBox "Failed to load ZBar library: "+ZBarMBS.LibraryLoadErrorMessage
    
  End If
#endif

Please pass path to zbar.dll on Windows, libzbar.dylib on macOS and libzbar.so on Linux.
Returns true on success and false on failure.

See LibraryLoadErrorMessage and LibraryLoadError properties for error details.

We have libraries for you here:
https://www.monkeybreadsoftware.de/xojo/download/plugin/Libs/

See also:

• LoadLibrary(file as folderitem) as boolean

ZBarMBS.Scan(pic as Picture, AllowedTypes as Integer = 0) as ZBarMBS()

// get some picture
Dim p As Picture = Picture.Open(file)
If p <> Nil Then
  
  // scan it
  Dim symbols() As ZBarMBS = ZBarMBS.Scan(p)
  
  // show results
  For Each symbol As ZBarMBS In symbols
    MsgBox symbol.Name+": "+symbol.Text
  Next
End If

Returns an array of detected barcodes.

Works best with black & white picture, so you may enhance contrast.
If AllowedTypes is zero, all types are enabled.
Otherwise use bitwiseOr() to combine types you like and pass them as AllowedTypes.