-> Hier kostenlos registrieren
Hallo zusammen,
ich habe das Problem von Einbindung des Active-X in WinCC flexible.
Ich habe OCX von Builder Marking 3 in wincc flex hinzufügt, und die MB3ActX.ocx , MBActX.ocx unter C:\Windows\SysWOW64 regestriert.
So sieht in WinCC flexible.
[FONT="]
[/FONT]
Ich habe ein Skript gieschrieben wie folgendes:
'Initial setting
Call MBActX1.InitMBActX(MARKINGUNIT_MDX1500)
MBActX1.IsAutoRedraw = True
MBActX1.IsBlockingCommunication = True
'Online Operation
Dim A 'As String
MBActX1.Comm.IpAddress = "192.168.1.11"
A = MBActX1.Comm.IpAddress
Call MBActX1.Comm.Online
'Controller Operation
MBActX1.Operation.IsCameraFinderView = True
MBActX1.Operation.GetCameraViewImage ("test.BMP")
Dim grade
MBActX1.Operation.Read2DCode
MBActX1.Operation.Get2DCodeReadResult Content, grade
If grade = 0 Then
Debug.Write "E"
ElseIf grade = 1 Then
Debug.Write "D"
ElseIf grade = 2 Then
Debug.Write "C"
ElseIf grade = 3 Then
Debug.Write "B"
ElseIf grade = 4 Then
Debug.Write "A"
End If
Aber in Runtime es ist immer Schwarz, wo steht das Problem bitte?
vielen Dank im Voraus
LG samirAnhang anzeigen MD-X1000_1500_ActiveX_UM_421GB_252007_E_1095-3.pdf
ich habe das Problem von Einbindung des Active-X in WinCC flexible.
Ich habe OCX von Builder Marking 3 in wincc flex hinzufügt, und die MB3ActX.ocx , MBActX.ocx unter C:\Windows\SysWOW64 regestriert.
So sieht in WinCC flexible.
[FONT="]
Ich habe ein Skript gieschrieben wie folgendes:
'Initial setting
Call MBActX1.InitMBActX(MARKINGUNIT_MDX1500)
MBActX1.IsAutoRedraw = True
MBActX1.IsBlockingCommunication = True
'Online Operation
Dim A 'As String
MBActX1.Comm.IpAddress = "192.168.1.11"
A = MBActX1.Comm.IpAddress
Call MBActX1.Comm.Online
'Controller Operation
MBActX1.Operation.IsCameraFinderView = True
MBActX1.Operation.GetCameraViewImage ("test.BMP")
Dim grade
MBActX1.Operation.Read2DCode
MBActX1.Operation.Get2DCodeReadResult Content, grade
If grade = 0 Then
Debug.Write "E"
ElseIf grade = 1 Then
Debug.Write "D"
ElseIf grade = 2 Then
Debug.Write "C"
ElseIf grade = 3 Then
Debug.Write "B"
ElseIf grade = 4 Then
Debug.Write "A"
End If
Aber in Runtime es ist immer Schwarz, wo steht das Problem bitte?
vielen Dank im Voraus
LG samirAnhang anzeigen MD-X1000_1500_ActiveX_UM_421GB_252007_E_1095-3.pdf