home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / zkuste / delphi / ruzkomp / BARCODE.ZIP / readme.txt < prev    next >
Encoding:
Text File  |  1997-06-11  |  2.0 KB  |  53 lines
  1. ********************************************************************************************
  2.                         Barcode component for Delphi
  3. ********************************************************************************************
  4.  
  5. This package is published as freeware, but contains no source. 
  6.  
  7. How does this thing work? Simpel!
  8.  
  9. 0. Install the component. Consult your manuel for further instrctions
  10.    You find a DCU+DCR for Delphi 1-3 in the D1-3 subdir 
  11.  
  12. 1. Drop the Barcode component on a form
  13.  
  14. 2. It contains the following property's:
  15.  
  16.     property BarcodeHeight : Word           // In pixels
  17.     property BarType       : TBarcodeType   // TBarcode = TBarcodeType = (EAN_13,XCODE_39,CODE_39);
  18.     property Barcode       : String         // The actual Barcode data
  19.     property DPI           : Word           // What DPI to generate the barcode to
  20.  
  21.     I've declared four Exceptions:
  22.  
  23.     Try
  24.       barcode1.TestBarcode;
  25.     except
  26.       On EWrongNumber Do begin st:='Wrong number of digits'; error:=True; end;
  27.       On EOnlyNumeric DO begin st:='Only numbers allowed!'; error:=True; end;
  28.       On ECheckDigitFail Do begin st:='Check digit NOT correct'; error:=True; end;
  29.       On ECharacterInValid Do Begin st:='Illegal character';error:=True; end;
  30.     End;
  31.  
  32.     Consult manual.txt to determin witch exceptions occur with witch barcodes
  33.  
  34. 3. To Receive the generated barcode: 
  35.  
  36.     if error Then MessageDlg(st, mtError, [mbOk], 0)
  37.     Else Image1.Picture.Bitmap:=barcode1.getBarcode;
  38.    
  39.     GetBarcode returns a TBitmap, ready for further use in your program.
  40.  
  41. 4.  I have shipped a small test appl. It will show how to use the module......
  42.  
  43.     There is more to come. I am working on Code128, Interleave 2 of 5 etc etc. Keep looking!
  44.  
  45. This component may be used by anyone, anywhere, anyhow. If it gives you any problems, don't
  46. start blaming me, you did not pay for it!
  47.  
  48. Do you want the source AND do you have something to trade with, drop an email to:  
  49.  
  50.                 Thorstein@vip.cybercity.dk
  51.  
  52. -- Allan Th. Poulsen
  53. Hjoerring 15. april 1997