qiopcmanager.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) 'QiOPCManager.pas' rev: 6.00

#ifndef QiOPCManagerHPP
#define QiOPCManagerHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <QMenus.hpp>	// Pascal unit
#include <QImgList.hpp>	// Pascal unit
#include <QiOPCDLLLoader.hpp>	// Pascal unit
#include <QiGPFunctions.hpp>	// Pascal unit
#include <QiTypes.hpp>	// Pascal unit
#include <QExtCtrls.hpp>	// Pascal unit
#include <QStdCtrls.hpp>	// Pascal unit
#include <QComCtrls.hpp>	// Pascal unit
#include <QControls.hpp>	// Pascal unit
#include <Variants.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <Types.hpp>	// Pascal unit
#include <QTypes.hpp>	// Pascal unit
#include <QClipbrd.hpp>	// Pascal unit
#include <QDialogs.hpp>	// Pascal unit
#include <QForms.hpp>	// Pascal unit
#include <QGraphics.hpp>	// Pascal unit
#include <Qt.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 Qiopcmanager
{
//-- type declarations -------------------------------------------------------
typedef void __fastcall (__closure *TGroupUpdateEvent)(System::TObject* Sender, AnsiString GroupName);

class DELPHICLASS TiOPCGroupStream;
class PASCALIMPLEMENTATION TiOPCGroupStream : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FName;
	AnsiString FComputerName;
	AnsiString FOPCServerName;
	int FUpdateRate;
	
__published:
	__property AnsiString Name = {read=FName, write=FName};
	__property AnsiString ComputerName = {read=FComputerName, write=FComputerName};
	__property AnsiString OPCServerName = {read=FOPCServerName, write=FOPCServerName};
	__property int UpdateRate = {read=FUpdateRate, write=FUpdateRate, nodefault};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TiOPCGroupStream(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TiOPCGroupStream(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


class DELPHICLASS TiOPCGroupObject;
class PASCALIMPLEMENTATION TiOPCGroupObject : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FName;
	AnsiString FComputerName;
	AnsiString FOPCServerName;
	int FUpdateRate;
	int FDLLGroupHandle;
	
protected:
	void __fastcall SetUpdateRate(const int Value);
	__property int DLLGroupHandle = {read=FDLLGroupHandle, write=FDLLGroupHandle, nodefault};
	
public:
	void __fastcall Resume(void);
	void __fastcall Suspend(void);
	
__published:
	__property AnsiString Name = {read=FName};
	__property AnsiString ComputerName = {read=FComputerName};
	__property AnsiString OPCServerName = {read=FOPCServerName};
	__property int UpdateRate = {read=FUpdateRate, write=SetUpdateRate, nodefault};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TiOPCGroupObject(void) { }
	#pragma option pop
	
public:
	#pragma option push -w-inl
	/* TObject.Create */ inline __fastcall TiOPCGroupObject(void) : Classes::TPersistent() { }
	#pragma option pop
	
};


class DELPHICLASS TiOPCManager;
class PASCALIMPLEMENTATION TiOPCManager : public Qcontrols::TCustomControl 
{
	typedef Qcontrols::TCustomControl inherited;
	
private:
	Qimglist::TImageList* FImageList;
	bool FFirstInstance;
	TGroupUpdateEvent FOnAfterGroupUpdate;
	TGroupUpdateEvent FOnBeforeGroupUpdate;
	Classes::TStringList* FGroupList;
	
protected:
	TiOPCGroupObject* __fastcall GetGroup(int Index);
	TiOPCGroupObject* __fastcall GetGroupByHandle(int Handle);
	int __fastcall GetGroupCount(void);
	virtual void __fastcall DefineProperties(Classes::TFiler* Filer);
	void __fastcall ReadFromStreamGroups(Classes::TReader* Reader);
	void __fastcall WriteToStreamGroups(Classes::TWriter* Writer);
	void __fastcall BeforeUpdate(int Handle);
	void __fastcall AfterUpdate(int Handle);
	virtual void __fastcall Paint(void);
	
public:
	__fastcall virtual TiOPCManager(Classes::TComponent* AOwner);
	__fastcall virtual ~TiOPCManager(void);
	virtual void __fastcall SetBounds(int ALeft, int ATop, int AWidth, int AHeight);
	void __fastcall ExplorerShow(void);
	int __fastcall GroupAdd(AnsiString Name, AnsiString ComputerName, AnsiString OPCServerName, int UpdateRate);
	void __fastcall GroupDelete(int Index);
	void __fastcall GroupClear(void);
	int __fastcall GetGroupIndex(AnsiString Name);
	__property int GroupCount = {read=GetGroupCount, nodefault};
	__property TiOPCGroupObject* Group[int Index] = {read=GetGroup};
	
__published:
	__property Visible  = {default=0};
	__property PopupMenu ;
	__property Width  = {default=28};
	__property Height  = {default=28};
	__property TGroupUpdateEvent OnBeforeGroupUpdate = {read=FOnBeforeGroupUpdate, write=FOnBeforeGroupUpdate};
	__property TGroupUpdateEvent OnAfterGroupUpdate = {read=FOnAfterGroupUpdate, write=FOnAfterGroupUpdate};
public:
	#pragma option push -w-inl
	/* TWidgetControl.CreateParented */ inline __fastcall TiOPCManager(Qt::QWidgetH* ParentWidget) : Qcontrols::TCustomControl(ParentWidget) { }
	#pragma option pop
	
};


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

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

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