FormCoder kann auch als Server(COM) Applikation eingesetzt
werden. D.h. andere Programme können auf Funktionen von FormCoder
zugreifen und Etiketten aufrufen, Texte, Barcodes und Grafiken ändern
und über FormCoder ausdrucken. Sämtliche Funktionen sind in
der Hilfe-Date von FormCoder angegeben.
Es befindet sich auch im Installations-Verzeichnis eine Word-Datei mit
dem Namen "FormCoder.doc". In diesem Document befindet sich
ein Button, der mit einem Script verbunden ist. Hier der Code des Scripts:
Private Sub CommandButton1_Click()
Dim FormCoderObject As Object
Dim Childwin1 As Long
Dim Childwin2 As Long
Dim Count As Integer
Set FormCoderObject = CreateObject("FormCoder.FormCoderObject")
'ActiveDocument.Paragraphs(1).Range.InsertAfter (FormCoderObject.Ablage)
Childwin1 = FormCoderObject.OpenLabel("C:\Programme\Borland\CBuilder5\barcode\ean128.etk",
False)
Childwin2 = FormCoderObject.OpenLabel("C:\Programme\Borland\CBuilder5\barcode\t12.etk",
False)
FormCoderObject.SetChild (Childwin1)
'FormCoderObject.SelectText (1)
'FormCoderObject.SelectBarcode (1)
'FormCoderObject.SelectGrafik (1)
FormCoderObject.ChangeBarcode 1, "(01)01234567890128(37)34512",
False 'True=PZ wird überprüft
'False=PZ wird berechnet, es reichen 12 Stellen bei EAN13
'FormCoderObject.ChangeBarcode 1, "4444444444444", False 'True=PZ
wird überprüft
'FormCoderObject.ToClipboard False 'True=gesamtes Etikett in Zwischenablage
'False=Ausgewählte Objekte in Zwischenablage
'FormCoderObject.ChangeText 1, "Neuer Text 123", True
'FormCoderObject.ChangeGrafik 1, "C:\Programme\Borland\CBuilder5\barcode\krug.ico",
False
'FormCoderObject.DelSelection
'FormCoderObject.VariablePrinting
'FormCoderObject.PrintLabel 5, False
Count = GetBarcodeCount
End Sub
In diesem Script wird als Erstes ein Objekt gebildet.
Diesem Objetk wird die FormCoder-Applikation zugeordnet. Mit diesem Objekt
"FormCoderObject" kann dann auf alle Funktionen zugegriffen
werden.
Es werden dann zwei Formulare geöffnet. Das aktive Formular wird
anhand der beim Öffnen erhaltenen Long-Variablen mit der Funktion
SetChild geändert. Alle Funktionen geben einen Wert zurück.
Ein Wert von -1 zeigt an, dass die Funktion nicht ordnungsgemäss
ausgeführt werden kann. Beim Barcode kann es aber auch sein, dass
die evtl. Prüfziffer oder die Länge des Codes nicht richtig
war.
Barcode- und Text-Eingaben erfolgen genau wie im Programm im jeweiligen
Eigenschaften-Fenster. Bei der Eingabe des EAN-128 Barcodes wird der gesamte
Barcode mit allen Gruppen zusammen eingegeben. D.h. Zuerst die Gruppen
in Klammern, dann die Inhalte. Beispiel: (01)01234567890128(37)34512
Nachdem alle gewünschten Werte verändert wurden, kann über
FormCoder gedruckt werden. Die Funktion VariablePrinting öffnet vorher
noch das Fenster für Zusatzeingaben. Anschliessend können die
entsprechenden Etiketten auch wieder geschlossen werden.
Für einen schnelleren Ablauf des Programmes
ist es möglich, das Programm vor dem Aufruf des Skriptes zu starten.
Damit wird die Zeit zum Starten und wieder Beenden des Programmes zu sparen.
|