Announcement

Collapse
No announcement yet.

Visual Basic -> Borland c++ builder

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Visual Basic -> Borland c++ builder

    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;
Working...
X