uopcstringenumerator.pas

delphi 开发OPc工业通讯 delphi 开发OPc工业通讯

//******************************************************************************
// sOPC created by ACHAT SOLUTIONS GmbH, http://www.achat-solutions.de/
//******************************************************************************
unit uOPCStringEnumerator;

interface

uses
  Classes, WinProcs, ComObj, ActiveX;

type
  sOPCStringEnumerator = class(TComObject, IEnumString)
  private
    nextIndex: integer;
    FList: TStringList;
    FFree: boolean;
  public
    constructor Create(const aList: TStringList; aFree: boolean = True);
    destructor Destroy; override;
    function Next(celt: Longint; out elt; pceltFetched: PLongint): HResult; stdcall;
    function Skip(celt: Longint): HResult; stdcall;
    function Reset: HResult; stdcall;
    function Clone(out enm: IEnumString): HResult; stdcall;
  end;

implementation

uses
  ComServ, OPCDA, uGlobals;

constructor sOPCStringEnumerator.Create(const aList: TStringList; aFree: boolean);
begin
  inherited Create;
  FList := aList;
  FFree := aFree;
  nextIndex := 0;
end;

destructor sOPCStringEnumerator.Destroy;
begin
  if FFree then FList.Free;
  inherited Destroy;
end;

function sOPCStringEnumerator.Next(celt: Longint; out elt; pceltFetched: PLongint): HResult;
var
 i: integer;
begin
  // celt mu