FormCoder als Server-Applikation

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.