iopcitem.hpp

Iocomp Ultra Pack v3.0.2 Sources.For.Delphi 数据显示编程插件,可用于工业控制

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'iOPCItem.pas' rev: 6.00

#ifndef iOPCItemHPP
#define iOPCItemHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <iOPCDLLLoader.hpp>	// Pascal unit
#include <iGPFunctions.hpp>	// Pascal unit
#include <iTypes.hpp>	// Pascal unit
#include <ExtCtrls.hpp>	// Pascal unit
#include <StdCtrls.hpp>	// Pascal unit
#include <ComCtrls.hpp>	// Pascal unit
#include <Controls.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Types.hpp>	// Pascal unit
#include <Clipbrd.hpp>	// Pascal unit
#include <Dialogs.hpp>	// Pascal unit
#include <Forms.hpp>	// Pascal unit
#include <Graphics.hpp>	// Pascal unit
#include <TypInfo.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

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

namespace Iopcitem
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TOPCItemGetDataTypeEvent)(AnsiString PropertyName, Typinfo::TTypeKind &AVarType);

class DELPHICLASS TiOPCItem;
class DELPHICLASS TiOPCItemManager;
class PASCALIMPLEMENTATION TiOPCItemManager : public System::TObject 
{
	typedef System::TObject inherited;
	
private:
	Classes::TStringList* FList;
	Itypes::TGetDesigningEvent FOnGetDesigning;
	Classes::TNotifyEvent FOnNewData;
	TOPCItemGetDataTypeEvent FOnGetType;
	Classes::TComponent* FOwner;
	
protected:
	int __fastcall GetCount(void);
	TiOPCItem* __fastcall GetItem(int Index);
	bool __fastcall GetDesigning(void);
	
public:
	__fastcall TiOPCItemManager(void);
	__fastcall virtual ~TiOPCItemManager(void);
	bool __fastcall DoWriteToStream(void);
	void __fastcall WriteToStream(Classes::TWriter* Writer);
	void __fastcall ReadFromStream(Classes::TReader* Reader);
	int __fastcall FindIndex(TiOPCItem* OPCItem);
	void __fastcall Clear(void);
	void __fastcall Delete(int Index);
	int __fastcall Add(void);
	__property TiOPCItem* Items[int Index] = {read=GetItem};
	__property int Count = {read=GetCount, nodefault};
	__property bool IsDesigning = {read=GetDesigning, nodefault};
	__property Classes::TComponent* Owner = {read=FOwner, write=FOwner};
	__property Itypes::TGetDesigningEvent OnGetDesigning = {read=FOnGetDesigning, write=FOnGetDesigning};
	__property Classes::TNotifyEvent OnNewData = {read=FOnNewData, write=FOnNewData};
	__property TOPCItemGetDataTypeEvent OnGetType = {read=FOnGetType, write=FOnGetType};
};


class PASCALIMPLEMENTATION TiOPCItem : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FPropertyName;
	Typinfo::TTypeKind FPropertyType;
	AnsiString FGroupName;
	AnsiString FServerName;
	AnsiString FComputerName;
	AnsiString FItemName;
	bool FAutoConnect;
	int FUpdateRate;
	int FSignalHandle;
	OleVariant FData;
	System::TDateTime FTimeStamp;
	Word FQuality;
	TiOPCItemManager* FOwner;
	bool FAutoError;
	
protected:
	void __fastcall SetPropertyName(const AnsiString Value);
	void __fastcall SetGroupName(const AnsiString Value);
	void __fastcall SetServerName(const AnsiString Value);
	void __fastcall SetComputerName(const AnsiString Value);
	void __fastcall SetItemName(const AnsiString Value);
	void __fastcall SetAutoConnect(const bool Value);
	void __fastcall SetUpdateRate(const int Value);
	void __fastcall SetAutoError(const bool Value);
	bool __fastcall GetActive(void);
	void __fastcall ReceiveData(const OleVariant &Data, double TimeStamp, Word Quality);
	bool __fastcall GetQualityGood(void);
	void __fastcall SetData(const OleVariant &Value);
	void __fastcall UpdateError(void);
	
public:
	__fastcall TiOPCItem(void);
	__fastcall virtual ~TiOPCItem(void);
	void __fastcall Activate(void);
	void __fastcall ActivateSuspend(void);
	void __fastcall Deactivate(void);
	void __fastcall UpdateResume(void);
	void __fastcall UpdateSuspend(void);
	void __fastcall Loaded(void);
	__property OleVariant Data = {read=FData, write=SetData};
	__property System::TDateTime TimeStamp = {read=FTimeStamp};
	__property Word Quality = {read=FQuality, nodefault};
	__property bool Active = {read=GetActive, nodefault};
	__property bool QualityGood = {read=GetQualityGood, nodefault};
	__property TiOPCItemManager* Owner = {read=FOwner, write=FOwner};
	
__published:
	__property AnsiString PropertyName = {read=FPropertyName, write=SetPropertyName};
	__property AnsiString GroupName = {read=FGroupName, write=SetGroupName};
	__property AnsiString ComputerName = {read=FComputerName, write=SetComputerName};
	__property AnsiString ServerName = {read=FServerName, write=SetServerName};
	__property AnsiString ItemName = {read=FItemName, write=SetItemName};
	__property int UpdateRate = {read=FUpdateRate, write=SetUpdateRate, nodefault};
	__property bool AutoConnect = {read=FAutoConnect, write=SetAutoConnect, nodefault};
	__property bool AutoError = {read=FAutoError, write=SetAutoError, nodefault};
};


//-- var, const, procedure ---------------------------------------------------

}	/* namespace Iopcitem */
using namespace Iopcitem;
#pragma option pop	// -w-
#pragma option pop	// -Vx

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