hallo!
Habe hier einen Quelltext in VB und möchte den gerne mit den borland c++ builder übernehmen.
Hier ein Auszug aus den Vb Quelltext.
Kann mir hier jemand helfen dieses auf den Borland zum laufen zu bringen.
' Global variables for OPC Handling
Dim ClientHandles(2) As Long
Dim IsServerStarted As Boolean
Dim IsGroupAdded As Boolean
Dim IsItemAdded(2) As Boolean
Das ist mir klar , das sind Variablen
wie z.B. long ClientHandles[2]; oder ?
' Objects from the OPC Automation interface
Dim Item(2) As OPCItem
Dim Items As OPCItems
Dim Group As OPCGroup
Dim Groups As OPCGroups
Dim Server As OPCServer
Das kann ich wahrscheinlich so übersetzen:
OPCItem*Item(2) ->bedeutet der zweiter ein Array oder gehört
der zum Variablennamen ??
' Try to find all locally installed OPC servers using the OPCAutomation object
Private Sub Worksheet_Activate()
' Initialize global variables and Worksheet user interface
IsServerStarted = False
IsGroupAdded = False
IsItemAdded(0) = False
IsItemAdded(1) = False
Selectedserver.Text = "IBHsoftec.IBHOPC.DA"
GroupToAdd.Text = "MyFirstGroup"
PLCNameBox.Text = "S7_300"
MW0Value.Text = "0"
StateM20_0.Value = 0
' Now find the servers
Dim ServerFinder As OPCServer
Dim LocalServerNames As Variant
Dim i As Integer
Hier werden auch Zeiger angelegt oder ?
OPCServer*ServerFinder;
usw.
On Error GoTo HandleError
' Find the installed servers
Set ServerFinder = New OPCServer
hier habe ich keinen ahnung wie ich das
in c++ machen soll ????
LocalServerNames = ServerFinder.GetOPCServers//Methode am ende des textes eingefügt.
und das auch nicht ?
und das auch nicht
' Show it to the user
For i = LBound(LocalServerNames) To UBound(LocalServerNames)
LocalServers.AddItem (LocalServerNames(i))
Next i
LocalServers.Text = LocalServers.List(0)
' Done
Set ServerFinder = Nothing
Exit Sub
HandleError:
MsgBox "Please handle the Error occured", vbOKOnly
End Sub
Hier noch die Methode die in der dll deklariert ist für den Server suchen.
virtual HRESULT STDMETHODCALLTYPE GetOPCServers(VARIANT Node/*[in,opt]*/,
VARIANT* OPCServers/*[out,retval]*/) = 0;
Habe hier einen Quelltext in VB und möchte den gerne mit den borland c++ builder übernehmen.
Hier ein Auszug aus den Vb Quelltext.
Kann mir hier jemand helfen dieses auf den Borland zum laufen zu bringen.
' Global variables for OPC Handling
Dim ClientHandles(2) As Long
Dim IsServerStarted As Boolean
Dim IsGroupAdded As Boolean
Dim IsItemAdded(2) As Boolean
Das ist mir klar , das sind Variablen
wie z.B. long ClientHandles[2]; oder ?
' Objects from the OPC Automation interface
Dim Item(2) As OPCItem
Dim Items As OPCItems
Dim Group As OPCGroup
Dim Groups As OPCGroups
Dim Server As OPCServer
Das kann ich wahrscheinlich so übersetzen:
OPCItem*Item(2) ->bedeutet der zweiter ein Array oder gehört
der zum Variablennamen ??
' Try to find all locally installed OPC servers using the OPCAutomation object
Private Sub Worksheet_Activate()
' Initialize global variables and Worksheet user interface
IsServerStarted = False
IsGroupAdded = False
IsItemAdded(0) = False
IsItemAdded(1) = False
Selectedserver.Text = "IBHsoftec.IBHOPC.DA"
GroupToAdd.Text = "MyFirstGroup"
PLCNameBox.Text = "S7_300"
MW0Value.Text = "0"
StateM20_0.Value = 0
' Now find the servers
Dim ServerFinder As OPCServer
Dim LocalServerNames As Variant
Dim i As Integer
Hier werden auch Zeiger angelegt oder ?
OPCServer*ServerFinder;
usw.
On Error GoTo HandleError
' Find the installed servers
Set ServerFinder = New OPCServer
hier habe ich keinen ahnung wie ich das
in c++ machen soll ????
LocalServerNames = ServerFinder.GetOPCServers//Methode am ende des textes eingefügt.
und das auch nicht ?
und das auch nicht
' Show it to the user
For i = LBound(LocalServerNames) To UBound(LocalServerNames)
LocalServers.AddItem (LocalServerNames(i))
Next i
LocalServers.Text = LocalServers.List(0)
' Done
Set ServerFinder = Nothing
Exit Sub
HandleError:
MsgBox "Please handle the Error occured", vbOKOnly
End Sub
Hier noch die Methode die in der dll deklariert ist für den Server suchen.
virtual HRESULT STDMETHODCALLTYPE GetOPCServers(VARIANT Node/*[in,opt]*/,
VARIANT* OPCServers/*[out,retval]*/) = 0;