Einbinden von TcEventViewer-ActiveX-Control

Systemvoraussetzungen:

• CodeGear C++Builder 2009;
• TwinCAT v2.11 B2228 oder höher;
• Die Typbibiothek der TcEventViewer.dll muss importiert werden (TCEVENTVIEWERLib_OCX);

Im folgenden Beispiel wird das TcEventViewer-ActiveX-Control benutzt um aktive Alarme auf einem TwinCAT System anzuzeigen.

Folgende Schritte müssen ausgeführt werden, um das Beispiel zu erstellen:

1. Erstellen Sie eine neue VCL-Formularanwendung;
2. Ziehen Sie von der Komponentenpalette die TTcEventView auf die Form;
3. Implementieren Sie die Methoden: FormCreate(), FormClose();

In FormCreate() wird die Verbindung zum EventLogger konfiguriert/ hergestellt und in FormClose() getrennt. Falls Sie auf einen Remote-PC zugreifen wollen dann muss die Netzwerkadresse des TwinCAT Systems (AmsNetId) passend konfiguriert werden.

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "TCEVENTVIEWERLib_OCX"
#pragma resource "*.dfm"
TForm2 *Form2;

//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
    address = 0;
    bRemote = false;
}

//---------------------------------------------------------------------------
// This method is called when the form is loaded
void __fastcall TForm2::FormCreate(TObject *Sender)
{
    if (bRemote) {
        address = ::SysAllocString(L"ADS://10.1.128.220.1.1");
        TcEventView1->AddConnection(address);
    }

    TcEventView1->ShowActiveEvents();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
    if (bRemote) {
        TcEventView1->DeleteConnection(address);
        if (address) {
            ::SysFreeString(address);
            address = 0;
        }
    }
}