4

Excel VBA スプレッドシートを継承しました。私はそれをVBに変換する任務を負っています。

アプリケーションはDCOMオブジェクトを使ってPLCからデータを取得していると思います。次のコードは、MX1.0 が更新されたときにサブ SBR1Select を実行します。

Sub Workbook_Open()
    ActiveWorkbook.SetLinkOnData "dassidirect|strandburner!MX1.0", "SBR1Select"
End Sub

[コントロール パネル] -> [管理ツール] -> [コンポーネント サービス] を開き、[コンソール ルート] -> [コンポーネント サービス] -> [コンピューター] -> [マイ コンピューター] -> [DCOM 構成] に移動すると、"DASSIDirect" という項目が表示されます。これは、Excel が参照しているものと思われます。 .

DASSIDIRECT コンポーネントを介して VB コードを PLC に接続するにはどうすればよいですか?

注: DASSIDIRECT も Windows サービスです (これが質問への回答に役立つかどうかは不明です)。

4

3 に答える 3

1

昔、PLC を使った仕事をしたことがあり、古い同僚の 1 人に尋ねました。彼は、必要なものを提供するために DASSIDIRECT と連携する一連の .Net 2 互換アセンブリを備えた WonderWare の InTouch が必要だと言います。

これが最新バージョンです。あなたが探しているものであることを願っています。

于 2009-04-29T23:02:24.987 に答える
1

うわー、DDE。DDE は、ご存知のとおり、かなり古いものです。Network DDE は既に減価償却されており、Vista では機能しなくなります。この傾向が続く可能性が高いとしか思えません。ただし、user32 の DDE API は引き続き機能します (参照はこちら: http://msdn.microsoft.com/en-us/library/ms674605(VS.85).aspx )。これを .net アプリから呼び出すことができます。少し仕事。私が見つけた唯一の例はVB6用で、それらは当時でも古いものでした。ご想像のとおり、少し痛いです。いずれにせよ、この例は API-Guide (Mentalis から) から掘り出しました。.Net ではありませんが、とにかく始める必要があります。

'This application shows you how to use DDE to create a better PrevInstance-function.
'Compile this sample and start it two times
'The first instance minimizes itself and when the second instance is started, it will
'send a message to the first instance to maximize itself.

'in a module
Public Const VBServerName = "TestServer"
Public Const VBTopicName = "SHOW_YOUR_MAIN_WINDOW"
Public Const XCLASS_BOOL = &H1000
Public Const XTYPF_NOBLOCK = &H2 ' CBR_BLOCK will not work
Public Const XTYP_CONNECT = &H60 Or XCLASS_BOOL Or XTYPF_NOBLOCK
Public Const CP_WINANSI = 1004 ' default codepage for windows & old DDE convs.
Public Const SW_RESTORE = 9
Public Const DDE_FACK = &H8000
Public Const XCLASS_FLAGS = &H4000
Public Const XTYP_EXECUTE = &H50 Or XCLASS_FLAGS
Public Const DNS_REGISTER = &H1
Public Const DNS_UNREGISTER = &H2
Public Declare Function DdeInitialize Lib "user32" Alias "DdeInitializeA" (pidInst As Long, ByVal pfnCallback As Long, ByVal afCmd As Long, ByVal ulRes As Long) As Integer
Public Declare Function DdeCreateStringHandle Lib "user32" Alias "DdeCreateStringHandleA" (ByVal idInst As Long, ByVal psz As String, ByVal iCodePage As Long) As Long
Public Declare Function DdeConnect Lib "user32" (ByVal idInst As Long, ByVal hszService As Long, ByVal hszTopic As Long, pCC As Any) As Long
Public Declare Function DdeNameService Lib "user32" (ByVal idInst As Long, ByVal hsz1 As Long, ByVal hsz2 As Long, ByVal afCmd As Long) As Long
Public Declare Function DdeFreeStringHandle Lib "user32" (ByVal idInst As Long, ByVal hsz As Long) As Long
Public Declare Function DdeQueryString Lib "user32" Alias "DdeQueryStringA" (ByVal idInst As Long, ByVal hsz As Long, ByVal psz As String, ByVal cchMax As Long, ByVal iCodePage As Long) As Long
Public Declare Function DdeUninitialize Lib "user32" (ByVal idInst As Long) As Long
Function DdeCllback(ByVal uType As Long, ByVal uFmt As Long, ByVal hConv As Long, ByVal hszTopic As Long, ByVal hszItem As Long, ByVal hData As Long, ByVal dwData1 As Long, ByVal dwData2 As Long) As Long
    DdeCllback = Form1.AppDdeCallback(uType, uFmt, hConv, hszTopic, hszItem, hData, dwData1, dwData2)
End Function
'in a form
Dim isRun As Boolean, idInst As Long, hszVBServer As Long, hszVBTopic As Long
Dim hconvVBServer As Long, dderesult As Long
Private Sub Form_Load()
   'KPD-Team 2000
   'URL: http://www.allapi.net/
   'E-Mail: KPDTeam@Allapi.net
   If DdeInitialize(idInst, AddressOf DdeCllback, 0, 0) Then Exit Sub
   hszVBServer = DdeCreateStringHandle(idInst, VBServerName, CP_WINANSI)
    hszVBTopic = DdeCreateStringHandle(idInst, VBTopicName, CP_WINANSI)
    'try to find the first instance
    hconvVBServer = DdeConnect(idInst, hszVBServer, hszVBTopic, ByVal 0&)
    If hconvVBServer Then
        Unload Me
        Exit Sub
    End If
    DdeNameService idInst, hszVBServer, 0, DNS_REGISTER
    Me.WindowState = vbMinimized
End Sub
Private Sub Form_Unload(Cancel As Integer)
        DdeFreeStringHandle idInst, hszVBServer
        DdeFreeStringHandle idInst, hszVBTopic
        'only unregister the DDE server for first instance
        If isRun Then
            If DdeNameService(idInst, hszVBServer, 0, DNS_UNREGISTER) Then
                MsgBox "in ServiceUnRegister", vbOKOnly, "Error"
            End If
        End If
        DdeUninitialize idInst
End Sub
Function AppDdeCallback(ByVal wType As Long, ByVal wFmt As Long, ByVal hConv As Long, ByVal hszTopic As Long, ByVal hszItem As Long, ByVal hData As Long, ByVal lData1 As Long, ByVal lData2 As Long) As Long
        Dim iCount As Long, Buffers As String, Ret As Long
        Select Case wType
            Case XTYP_CONNECT
                iCount = DdeQueryString(idInst, hszTopic, vbNullString, 0, CP_WINANSI)
                Buffers = Space(iCount)
                DdeQueryString idInst, hszTopic, Buffers, iCount + 1, CP_WINANSI
                If Buffers = VBTopicName Then
                    Me.WindowState = vbNormal
                    'add any code for the first instance have found the second one is launch
                    Ret = DDE_FACK
                End If
                AppDdeCallback = Ret
            Case XTYP_EXECUTE
                AppDdeCallback = Ret
        End Select
End Function
于 2009-05-17T10:16:22.703 に答える
0

これを処理する最も簡単な方法は、VB 6 を使用して、DDE を SIDirect に通信する「ActiveX EXE」を作成することです。VB 6 から DDE を実行するのは簡単です。次に、tlbimp を使用して VB 6 モジュールのプライマリ相互運用機能アセンブリを作成するか、C# コードから EXE を COM コンポーネントとして参照します。

于 2009-10-15T01:16:38.370 に答える