opchda.pas

delphi入门基本程序,包括OPC的通用协议,在这个基础上进行各个厂家的设备的数据采集

            dwNumItems:                 DWORD;
            phServer:                   POPCHANDLEARRAY;
      out   pdwCancelID:                DWORD;
      out   ppErrors:                   PResultList): HResult; stdcall;
    function ReadProcessed(
            dwTransactionID:            DWORD;
      var   htStartTime:                OPCHDA_TIME;
      var   htEndTime:                  OPCHDA_TIME;
            ftResampleInterval:         TFileTime;
            dwNumItems:                 DWORD;
            phServer:                   POPCHANDLEARRAY;
            haAggregate:                PDWORDARRAY;
      out   pdwCancelID:                DWORD;
      out   ppErrors:                   PResultList): HResult; stdcall;
    function AdviseProcessed(
            dwTransactionID:            DWORD;
      var   htStartTime:                OPCHDA_TIME;
            ftResampleInterval:         TFileTime;
            dwNumItems:                 DWORD;
            phServer:                   POPCHANDLEARRAY;
            haAggregate:                PDWORDARRAY;
            dwNumIntervals:             DWORD;
      out   pdwCancelID:                DWORD;
      out   ppErrors:                   PResultList): HResult; stdcall;
    function ReadAtTime(
            dwTransactionID:            DWORD;
            dwNumTimeStamps:            DWORD;
            ftTimeStamps:               PFileTimeArray;
            dwNumItems:                 DWORD;
            phServer:                   POPCHANDLEARRAY;
      out   pdwCancelID:                DWORD;
      out   ppErrors:                   PResultList): HResult; stdcall;
    function ReadModified(
            dwTransactionID:            DWORD;
      var   htStartTime:                OPCHDA_TIME;
      var   htEndTime:                  OPCHDA_TIME;
            dwNumValues:                DWORD;
            dwNumItems:                 DWORD;
            phServer:                   POPCHANDLEARRAY;
      out   pdwCancelID:                DWORD;
      out   ppErrors:                   PResultList): HResult; stdcall;
    function ReadAttribute(
            dwTransactionID:            DWORD;
      var   htStartTime:                OPCHDA_TIME;
      var   htEndTime:                  OPCHDA_TIME;
            hServer:                    OPCHANDLE;
            dwNumAttributes:            DWORD;
            dwAttributeIDs:             PDWORDARRAY;
      out   pdwCancelID:                DWORD;
      out   ppErrors:                   PResultList): HResult; stdcall;
    function Cancel(
            dwCancelID:                 DWORD): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IOPCHDA_AsyncUpdate
// GUID:      {1F1217B6-DEE0-11D2-A5E5-000086339399}
// *********************************************************************//
  IOPCHDA_AsyncUpdate = interface(IUnknown)
    ['{1F1217B6-DEE0-11D2-A5E5-000086339399}']
    function QueryCapabilities(
      out   pCapabilities:              OPCHDA_UPDATECAPABILITIES):
            HResult; stdcall;
    function Insert(
            dwTransactionID:            DWORD;
            dwNumItems:                 DWORD;
            phServer:                   POPCHANDLEARRAY;
            ftTimeStamps:               PFileTimeArray;
            vDataValues:                POleVariantArray;
            pdwQualities:               PDWORDARRAY;
      out   pdwCancelID:                DWORD;
      out   ppErrors:                   PResultList): HResult; stdcall;
    function Replace(
            dwTransactionID:            DWORD;
            dwNumItems:                 DWORD;
            phServer:                   POPCHANDLEARRAY;
            ftTimeStamps:               PFileTimeArray;
            vDataValues:                POleVariantArray;
            pdwQualities:               PDWORDARRAY;
      out   pdwCancelID:                DWORD;
      out   ppErrors:                   PResultList): HResult; stdcall;
    function InsertReplace(
            dwTransactionID:            DWORD;
            dwNumItems:                 DWORD;
            phServer:                   POPCHANDLEARRAY;
            ftTimeStamps:               PFileTimeArray;
            vDataValues:                POleVariantArray;
            pdwQualities:               PDWORDARRAY;
      out   pdwCancelID:                DWORD;
      out   ppErrors:                   PResultList): HResult; stdcall;
    function DeleteRaw(
            dwTransactionID:            DWORD;
      var   htStartTime:                OPCHDA_TIME;
      var   htEndTime:                  OPCHDA_TIME;
            dwNumItems:                 DWORD;
            phServer:                   POPCHANDLEARRAY;
      out   pdwCancelID:                DWORD;
      out   ppErrors:                   PResultList): HResult; stdcall;
    function DeleteAtTime(
            dwTransactionID:            DWORD;
            dwNumItems:                 DWORD;
            phServer:                   POPCHANDLEARRAY;
            ftTimeStamps:               PFileTimeArray;
      out   pdwCancelID:                DWORD;
      out   ppErrors:                   PResultList): HResult; stdcall;
    function Cancel(
            dwCancelID:                 DWORD): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IOPCHDA_AsyncAnnotations
// GUID:      {1F1217B7-DEE0-11D2-A5E5-000086339399}
// *********************************************************************//
  IOPCHDA_AsyncAnnotations = interface(IUnknown)
    ['{1F1217B7-DEE0-11D2-A5E5-000086339399}']
    function QueryCapabilities(
      out   pCapabilities:              OPCHDA_ANNOTATIONCAPABILITIES):
            HResult; stdcall;
    function Read(
            dwTransactionID:            DWORD;
      var   htStartTime:                OPCHDA_TIME;
      var   htEndTime:                  OPCHDA_TIME;
            dwNumItems:                 DWORD;
            phServer:                   POPCHANDLEARRAY;
      out   pdwCancelID:                DWORD;
      out   ppErrors:                   PResultList): HResult; stdcall;
    function Insert(
            dwTransactionID:            DWORD;
            dwNumItems:                 DWORD;
            phServer:                   POPCHANDLEARRAY;
            ftTimeStamps:               PFileTimeArray;
            pAnnotationValues:          POPCHDA_ANNOTATIONARRAY;
      out   pdwCancelID:                DWORD;
      out   ppErrors:                   PResultList): HResult; stdcall;
    function Cancel(
            dwCancelID:                 DWORD): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IOPCHDA_Playback
// GUID:      {1F1217B8-DEE0-11D2-A5E5-000086339399}
// *********************************************************************//
  IOPCHDA_Playback = interface(IUnknown)
    ['{1F1217B8-DEE0-11D2-A5E5-000086339399}']
    function ReadRawWithUpdate(
            dwTransactionID:            DWORD;
      var   htStartTime:                OPCHDA_TIME;
      var   htEndTime:                  OPCHDA_TIME;
            dwNumValues:                DWORD;
            ftUpdateDuration:           TFileTime;
            ftUpdateInterval:           TFileTime;
            dwNumItems:                 DWORD;
            phServer:                   POPCHANDLEARRAY;
      out   pdwCancelID:                DWORD;
      out   ppErrors:                   PResultList): HResult; stdcall;
    function ReadProcessedWithUpdate(
            dwTransactionID:            DWORD;
      var   htStartTime:                OPCHDA_TIME;
      var   htEndTime:                  OPCHDA_TIME;
            ftResampleInterval:         TFileTime;
            dwNumIntervals:             DWORD;
            ftUpdateInterval:           TFileTime;
            dwNumItems:                 DWORD;
            phServer:                   POPCHANDLEARRAY;
            haAggregate:                PDWORDARRAY;
      out   pdwCancelID:                DWORD;
      out   ppErrors:                   PResultList): HResult; stdcall;
    function Cancel(
            dwCancelID:                 DWORD): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IOPCHDA_DataCallback
// GUID:      {1F1217B9-DEE0-11D2-A5E5-000086339399}
// *********************************************************************//
  IOPCHDA_DataCallback = interface(IUnknown)
    ['{1F1217B9-DEE0-11D2-A5E5-000086339399}']
    function OnDataChange(
            dwTransactionID:            DWORD;
            hrStatus:                   HResult;
            dwNumItems:                 DWORD;
            pItemValues:                POPCHDA_ITEMARRAY;
            phrErrors:                  PResultList): HResult; stdcall;
    function OnReadComplete(
            dwTransactionID:            DWORD;
            hrStatus:                   HResult;
            dwNumItems:                 DWORD;
            pItemValues:                POPCHDA_ITEMARRAY;
            phrErrors:                  PResultList): HResult; stdcall;
    function OnReadModifiedComplete(
            dwTransactionID:            DWORD;
            hrStatus:                   HResult;
            dwNumItems:                 DWORD;
            pItemValues:                POPCHDA_MODIFIEDITEMARRAY;
            phrErrors:                  PResultList): HResult; stdcall;
    function OnReadAttributeComplete(
            dwTransactionID:            DWORD;
            hrStatus:                   HResult;
            hClient:                    OPCHANDLE;
            dwNumItems:                 DWORD;
            pAttributeValues:           POPCHDA_ATTRIBUTEARRAY;
            phrErrors:                  PResultList): HResult; stdcall;
    function OnReadAnnotations(
            dwTransactionID:            DWORD;
            hrStatus:                   HResult;
            dwNumItems:                 DWORD;
            pAnnotationValues:          POPCHDA_ANNOTATIONARRAY;
            phrErrors:                  PResultList): HResult; stdcall;
    function OnInsertAnnotations(
            dwTransactionID:            DWORD;
            hrStatus:                   HResult;
            dwCount:                    DWORD;
            phClients:                  POPCHANDLEARRAY;
            phrErrors:                  PResultList): HResult; stdcall;
    function OnPlayback(
            dwTransactionID:            DWORD;
            hrStatus:                   HResult;
            dwNumItems:                 DWORD;
            ppItemValues:               POPCHDA_ITEMPTRARRAY;
            phrErrors:                  PResultList): HResult; stdcall;
    function OnUpdateComplete(
            dwTransactionID:            DWORD;
            hrStatus:                   HResult;
            dwCount:                    DWORD;
            phClients:                  POPCHANDLEARRAY;
            phrErrors:                  PResultList): HResult; stdcall;
    function OnCancelComplete(
            dwCancelID:                 DWORD): HResult; stdcall;
  end;

implementation

end.