unit BarcodeInterface;

interface

uses WebCore, GeoPositionClass, GeoPositionErrorClass;

type
   TBarcodeScanned = procedure (filename: string) of object;
   TBarcodeFail = procedure (errorMsg: string) of object;


external function ScanBarcode(BarcodeSuccess: TBarcodeScanned; BarcodeError: TBarcodeFail): boolean;

implementation

end.