Komponente -> __property -> E2109 Kein zulässiger Typ

[Alexander Sulfrian]

Hi,
ich hab mir ne Kompnenta aus dem I-Net runtergeladen. Jetzt will ich sie einsetzten und bekomme immer diesen Fehler E2109! Der Fehlern kommt aus der *.hpp Datei der Komponente:

die *.hpp-Datei:

// Borland C++ Builder
// Copyright (c) 1995, 1999 by Borland International
// All rights reserved

// (DO NOT EDIT: machine generated header) 'CPRasMonitor.pas' rev: 4.00

#ifndef CPRasMonitorHPP
#define CPRasMonitorHPP

#pragma delphiheader begin
#pragma option push -w-
#include <CPRasMiniApi.hpp>   // Pascal unit
#include <WinSock.hpp>    // Pascal unit
#include <ExtCtrls.hpp>   // Pascal unit
#include <Classes.hpp>    // Pascal unit
#include <SysUtils.hpp>   // Pascal unit
#include <Messages.hpp>   // Pascal unit
#include <Windows.hpp>    // Pascal unit
#include <SysInit.hpp>    // Pascal unit
#include <System.hpp> // Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Cprasmonitor
{
//-- type declarations -------------------------------------------------------
#pragma pack(push, 4)
struct TRasConnectionDetails
{
    unsigned RasConn;
    System::SmallString<255>  ConnStatus;
    char ConnName[257];
    char ConnDeviceType[17];
    char ConnDeviceName[129];
    char ConnClientIP[16];
    char ConnServerIP[16];
} ;
#pragma pack(pop)

typedef void __fastcall (__closure *TRasNotifyEvent)(System::TObject* Sender, const TRasConnectionDetails 
    &ConnectionDetails);

typedef void __fastcall (__closure *TRasStatusNotifyEvent)(System::TObject* Sender, const TRasConnectionDetails 
    &ConnectionDetails, AnsiString StatusStr);

class DELPHICLASS TRasMonitor;
#pragma pack(push, 4)
class PASCALIMPLEMENTATION TRasMonitor : public Classes::TComponent 
{
    typedef Classes::TComponent inherited;

private:
    Extctrls::TTimer* FTimer;
    bool FEnabled;
    int FPollInterval;
    bool FOnline;
    bool FRasApiLoaded;
    unsigned FHRAS;
    TRasConnectionDetails FConnectionDetails;
    AnsiString FLocalIP;
    AnsiString FLocalHost;
    TRasNotifyEvent FOnRasConnected;
    TRasNotifyEvent FOnRasDisconnected;
    TRasStatusNotifyEvent FOnRasStatusChanged;
    void __fastcall SetNoneStr(AnsiString AValue);
    void __fastcall SetNoneBool(bool AValue);
    void __fastcall SetNoneInt(int AValue);
    void __fastcall SetEnabled(bool AValue);
    void __fastcall StartRasMonitor(void);
    void __fastcall StopRasMonitor(void);
    void __fastcall CheckRasConnection(System::TObject* Sender);
    int __fastcall SetRasIPs(unsigned HRC);
    AnsiString __fastcall GetStatusString(const Cprasminiapi::TRasConnStatus &State, int Error);

protected:
    virtual void __fastcall Loaded(void);

public:
    __fastcall virtual TRasMonitor(Classes::TComponent* AOwner);
    __fastcall virtual ~TRasMonitor(void);
    AnsiString __fastcall GetLocalIP();
    AnsiString __fastcall GetLocalHost();
    AnsiString __fastcall WSGetHostByAddr(const AnsiString IPAddr);
    bool __fastcall GetRasConnection(TRasConnectionDetails &ConnDetails);
    unsigned __fastcall HangUpRasConnection(unsigned HRC);

__published:
    __property bool Enabled = {read=FEnabled, write=SetEnabled, nodefault};
    __property int PollInterval = {read=FPollInterval, write=FPollInterval, nodefault};
    __property bool Online = {read=FOnline, write=SetNoneBool, nodefault};
    __property bool RasApiLoaded = {read=FRasApiLoaded, write=SetNoneBool, nodefault};
    __property TRasConnectionDetails ConnectionDetails = {read=FConnectionDetails};     // +++++++++++++++  Hier kommt der Fehler ++++++
    __property AnsiString LocalIP = {read=FLocalIP, write=SetNoneStr};
    __property AnsiString LocalHost = {read=FLocalHost, write=SetNoneStr};
    __property TRasNotifyEvent OnRasConnected = {read=FOnRasConnected, write=FOnRasConnected};
    __property TRasNotifyEvent OnRasDisconnected = {read=FOnRasDisconnected, write=FOnRasDisconnected};

    __property TRasStatusNotifyEvent OnRasStatusChanged = {read=FOnRasStatusChanged, write=FOnRasStatusChanged
        };
};

#pragma pack(pop)

//-- var, const, procedure ---------------------------------------------------
extern PACKAGE WSAData WSAData;

}   /* namespace Cprasmonitor */
#if !defined(NO_IMPLICIT_NAMESPACE_USE)
using namespace Cprasmonitor;
#endif
#pragma option pop  // -w-

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif  // CPRasMonitor

Konnt ihr mir helfen was ich verändern muss damits läuft?

Danke

Alexander Sulfrian

[Eßer]

Versuch mal, die Property public zu machen.

[Alexander Sulfrian]

Hi,
geht!

Danke

Alexander Sulfrian