Interface Unit EbsOpen

The interface unit @EbsOpen enables access to the EbsOpen interface from EbsScript.

Please always use the latest unit, as the scope is regularly expanded from release to release.

This allows you to use the full functionality of EbsOpen, including methods that are not implemented in EbsScript.

 

Example:

uses @EbsOpen, @ComObj, @Variant;

var nc  :array of ebsobject; 

    c   : integer;
    co  : ebsobject; 

    kind: EpObjectKind;
    eobj: TIObject;
begin

  nc := getObjects ("ebspipeuniversalfluid", true, false);
  for c := low(nc) to high(nc) do begin
    co := nc[c];
    eobj := TIObject.CreateDispatch(getEbsOpenObject(co));
    kind := eobj.get_kind();
    println (enumtostring(kind));
  end;
end.