BarCodeDraw39 without result for me

[ditte]

Hi,
there is a problem, I don´t know where.
I like to write a BarCode on a tif object.
A cloned tif will be created but there is no new barcode to see.
1. Can me somebody say what is wrong in my code?

2. The value of "Barcode Angle" is allways 0

Code: Select all

      Get CreateImageFromFile of oKusComImaging1  "C:\test.tif" to iImageId
      Get KUSComBarcode1DReaderDoScan of oKusComImaging1 1 to iststatus
      Get KusComBarcode1DReaderGetBarcodeCount of oKusComImaging1  to ibarcodesCount //there are 10 barcodes on the "test.tif"
      For i from 1 to ibarcodesCount
         Send Info_Box (KusComBarcode1DReaderGetBarcodeValue(hImageobject, i))     "Barcode Wert"
         Send Info_Box (KusComBarcode1DReaderGetBarcodeType(hImageobject, i))      "Barcode Typ" 
         Send Info_Box (KusComBarcode1DReaderGetBarcodeSkewAngle(hImageobject, i)) "Barcode Angle" 
      Loop
      Send KusComBarcode1DReaderClear of  oKusComImaging1
      //write  a Barcode to tif
      Get ComCreateClonedImage of hImageobject iImageId to iClonedImageID
      Send ComSetNativeImage of hImageobject iClonedImageID
      Get ComSaveAsTiff of hImageobject "c:\ditte3.tif" 2 to iStatus
      Get KusComBarCodeDraw39 of hImageobject "gebucht"  700 700 100 False clBlue to iststatus 
      Get ComCloseImage of hImageobject iClonedImageID to iststatus  
      Get KusComCloseNativeImage of  hImageobject to iststatus

[ditte]

Hi,

sorry.

Find it out.
The ComSaveAsTiff was not correct.
It must be call after drawing.