Hallo,
bin nicht so bewandert in der Programierung deshalb brauch ich mal Eure Hilfe.
Kann mir einer sahen wie ich folgenden VBScript in Delhi einbinde oder umwandeln kann das er in Delphi funktioniert.
Der Code soll die P-touch
SDK zum Labelprinter ansprechen leider gibt es kein Delphi Beispiel und von VB hab ich keine Ahnung.
Vielen Dank - Frank
----
' Data Folder
Const sDataFolder = "C:\Program Files\Brother bPAC SDK\Templates\"
'************************************************* *******
' Get file path from the list
'************************************************* *******
Public Function GetFilePath() As String
Dim strPath As String
Dim nIndex As Integer
nIndex = cbTemplate.ListIndex
If (nIndex = 0) Then
strPath = "NamePlate1.LBL"
Else
strPath = "NamePlate2.LBL"
End If
GetFilePath = sDataFolder & strPath
End Function
'************************************************* *******
' Open and Print(Export) a spcified file.
'************************************************* *******
Public Sub DoPrint(strPath As String, strExport As String)
'Dim ObjDoc As BrssCom.Document
Dim ObjDoc As Object
Set ObjDoc = CreateObject("BrssCom.Document")
If (ObjDoc.Open(strPath) <> False) Then
Dim nIndex As Integer
nIndex = ObjDoc.GetTextIndex("Company")
ObjDoc.SetText nIndex, edPosition.Text
nIndex = ObjDoc.GetTextIndex("Name")
ObjDoc.SetText nIndex, edName.Text
If (strExport = "") Then
ObjDoc.DoPrint 0, "0" ' Print
Else
ObjDoc.Export 2, strExport, 180 ' Export
End If
End If
Set ObjDoc = Nothing
End Sub
' Exit
Private Sub btnExit_Click()
Unload Me
End Sub
' Print
Private Sub btnPrint_Click()
DoPrint GetFilePath(), ""
End Sub
Private Sub Form_Load()
cbTemplate.ListIndex = 0 ' Head
End Sub
----------------