API tools faq
paste
Advertisement
remkow

PNAgent.pas

remkow
May 18th, 2012
210
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 66.92 KB | None | 0 0
raw download clone embed print report
  1.     {*************************************************************************************}
  2.     {                                                                                     }
  3.     {                                  XML Data Binding                                   }
  4.     {                                                                                     }
  5.     {         Generated on: 18-5-2012 8:46:54                                             }
  6.     {       Generated from: C:\Users\rweijnen\Delphi\Projects\2010\HttpTest\PNAgent.dtd   }
  7.     {                                                                                     }
  8.     {*************************************************************************************}
  9.    
  10.     unit PNAgent;
  11.    
  12.     interface
  13.    
  14.     uses xmldom, XMLDoc, XMLIntf;
  15.    
  16.     type
  17.    
  18.     { Forward Decls }
  19.    
  20.       IXMLPNAgent_ConfigurationType = interface;
  21.       IXMLFolderDisplayType = interface;
  22.       IXMLStartMenuDisplayType = interface;
  23.       IXMLEnabledType = interface;
  24.       IXMLRootFolderType = interface;
  25.       IXMLDesktopDisplayType = interface;
  26.       IXMLIconType = interface;
  27.       IXMLNameType = interface;
  28.       IXMLLocationType = interface;
  29.       IXMLSystemTrayMenuDisplayType = interface;
  30.       IXMLDesktopIntegrationType = interface;
  31.       IXMLConfigurationFileType = interface;
  32.       IXMLRefreshType = interface;
  33.       IXMLOnApplicationStartType = interface;
  34.       IXMLOnResourceRequestType = interface;
  35.       IXMLPollType = interface;
  36.       IXMLRequestType = interface;
  37.       IXMLEnumerationType = interface;
  38.       IXMLSmartcard_LocationType = interface;
  39.       IXMLResourceType = interface;
  40.       IXMLFailoverType = interface;
  41.       IXMLLogonType = interface;
  42.       IXMLNDS_SettingsType = interface;
  43.       IXMLUserInterfaceType = interface;
  44.       IXMLFileCleanupType = interface;
  45.       IXMLRefreshAppType = interface;
  46.       IXMLICA_OptionsType = interface;
  47.       IXMLDisplaySizeType = interface;
  48.       IXMLValueType = interface;
  49.       IXMLOptionsType = interface;
  50.       IXMLOptionsTypeList = interface;
  51.       IXMLColorDepthType = interface;
  52.       IXMLAudioType = interface;
  53.       IXMLTransparentKeyPassthroughType = interface;
  54.       IXMLDimensionType = interface;
  55.       IXMLLogonMethodTypeList = interface;
  56.    
  57.     { IXMLPNAgent_ConfigurationType }
  58.    
  59.       IXMLPNAgent_ConfigurationType = interface(IXMLNode)
  60.         ['{C6D3C377-229D-4A50-BBFF-A7F047F1AE3F}']
  61.         { Property Accessors }
  62.         function Get_Xsi: UnicodeString;
  63.         function Get_FolderDisplay: IXMLFolderDisplayType;
  64.         function Get_DesktopIntegration: IXMLDesktopIntegrationType;
  65.         function Get_ConfigurationFile: IXMLConfigurationFileType;
  66.         function Get_Request: IXMLRequestType;
  67.         function Get_Failover: IXMLFailoverType;
  68.         function Get_Logon: IXMLLogonType;
  69.         function Get_UserInterface: IXMLUserInterfaceType;
  70.         function Get_FileCleanup: IXMLFileCleanupType;
  71.         function Get_ICA_Options: IXMLICA_OptionsType;
  72.         procedure Set_Xsi(Value: UnicodeString);
  73.         { Methods & Properties }
  74.         property Xsi: UnicodeString read Get_Xsi write Set_Xsi;
  75.         property FolderDisplay: IXMLFolderDisplayType read Get_FolderDisplay;
  76.         property DesktopIntegration: IXMLDesktopIntegrationType read Get_DesktopIntegration;
  77.         property ConfigurationFile: IXMLConfigurationFileType read Get_ConfigurationFile;
  78.         property Request: IXMLRequestType read Get_Request;
  79.         property Failover: IXMLFailoverType read Get_Failover;
  80.         property Logon: IXMLLogonType read Get_Logon;
  81.         property UserInterface: IXMLUserInterfaceType read Get_UserInterface;
  82.         property FileCleanup: IXMLFileCleanupType read Get_FileCleanup;
  83.         property ICA_Options: IXMLICA_OptionsType read Get_ICA_Options;
  84.       end;
  85.    
  86.     { IXMLFolderDisplayType }
  87.    
  88.       IXMLFolderDisplayType = interface(IXMLNode)
  89.         ['{43A82B9B-2545-46B2-966E-CAEF8696682E}']
  90.         { Property Accessors }
  91.         function Get_StartMenuDisplay: IXMLStartMenuDisplayType;
  92.         function Get_DesktopDisplay: IXMLDesktopDisplayType;
  93.         function Get_SystemTrayMenuDisplay: IXMLSystemTrayMenuDisplayType;
  94.         { Methods & Properties }
  95.         property StartMenuDisplay: IXMLStartMenuDisplayType read Get_StartMenuDisplay;
  96.         property DesktopDisplay: IXMLDesktopDisplayType read Get_DesktopDisplay;
  97.         property SystemTrayMenuDisplay: IXMLSystemTrayMenuDisplayType read Get_SystemTrayMenuDisplay;
  98.       end;
  99.    
  100.     { IXMLStartMenuDisplayType }
  101.    
  102.       IXMLStartMenuDisplayType = interface(IXMLNode)
  103.         ['{7E2546B4-E697-44FD-ADD0-0A4637A48776}']
  104.         { Property Accessors }
  105.         function Get_Enabled: IXMLEnabledType;
  106.         function Get_RootFolder: IXMLRootFolderType;
  107.         { Methods & Properties }
  108.         property Enabled: IXMLEnabledType read Get_Enabled;
  109.         property RootFolder: IXMLRootFolderType read Get_RootFolder;
  110.       end;
  111.    
  112.     { IXMLEnabledType }
  113.    
  114.       IXMLEnabledType = interface(IXMLNode)
  115.         ['{6E4ED12C-4567-4E0B-ADF1-34D4A480C5DF}']
  116.         { Property Accessors }
  117.         function Get_Forcedefault: UnicodeString;
  118.         function Get_Modifiable: UnicodeString;
  119.         procedure Set_Forcedefault(Value: UnicodeString);
  120.         procedure Set_Modifiable(Value: UnicodeString);
  121.         { Methods & Properties }
  122.         property Forcedefault: UnicodeString read Get_Forcedefault write Set_Forcedefault;
  123.         property Modifiable: UnicodeString read Get_Modifiable write Set_Modifiable;
  124.       end;
  125.    
  126.     { IXMLRootFolderType }
  127.    
  128.       IXMLRootFolderType = interface(IXMLNode)
  129.         ['{07632AB1-1158-4DBE-86DC-BBB4A838E25F}']
  130.         { Property Accessors }
  131.         function Get_Forcedefault: UnicodeString;
  132.         function Get_Modifiable: UnicodeString;
  133.         function Get_Root: UnicodeString;
  134.         procedure Set_Forcedefault(Value: UnicodeString);
  135.         procedure Set_Modifiable(Value: UnicodeString);
  136.         procedure Set_Root(Value: UnicodeString);
  137.         { Methods & Properties }
  138.         property Forcedefault: UnicodeString read Get_Forcedefault write Set_Forcedefault;
  139.         property Modifiable: UnicodeString read Get_Modifiable write Set_Modifiable;
  140.         property Root: UnicodeString read Get_Root write Set_Root;
  141.       end;
  142.    
  143.     { IXMLDesktopDisplayType }
  144.    
  145.       IXMLDesktopDisplayType = interface(IXMLNode)
  146.         ['{A71ED175-413A-45A3-995C-32610907450F}']
  147.         { Property Accessors }
  148.         function Get_Enabled: IXMLEnabledType;
  149.         function Get_Icon: IXMLIconType;
  150.         { Methods & Properties }
  151.         property Enabled: IXMLEnabledType read Get_Enabled;
  152.         property Icon: IXMLIconType read Get_Icon;
  153.       end;
  154.    
  155.     { IXMLIconType }
  156.    
  157.       IXMLIconType = interface(IXMLNode)
  158.         ['{A138674F-45D6-4763-B650-6FC3DAD7BAF6}']
  159.         { Property Accessors }
  160.         function Get_Name: IXMLNameType;
  161.         function Get_Location: IXMLLocationType;
  162.         { Methods & Properties }
  163.         property Name: IXMLNameType read Get_Name;
  164.         property Location: IXMLLocationType read Get_Location;
  165.       end;
  166.    
  167.     { IXMLNameType }
  168.    
  169.       IXMLNameType = interface(IXMLNode)
  170.         ['{9FBB45D0-335E-4C47-A246-20539BB1A8C3}']
  171.         { Property Accessors }
  172.         function Get_Forcedefault: UnicodeString;
  173.         function Get_Modifiable: UnicodeString;
  174.         procedure Set_Forcedefault(Value: UnicodeString);
  175.         procedure Set_Modifiable(Value: UnicodeString);
  176.         { Methods & Properties }
  177.         property Forcedefault: UnicodeString read Get_Forcedefault write Set_Forcedefault;
  178.         property Modifiable: UnicodeString read Get_Modifiable write Set_Modifiable;
  179.       end;
  180.    
  181.     { IXMLLocationType }
  182.    
  183.       IXMLLocationType = interface(IXMLNode)
  184.         ['{2E2CD1CB-4C32-403C-AA1A-2C729E2A1FB8}']
  185.         { Property Accessors }
  186.         function Get_RedirectNow: UnicodeString;
  187.         function Get_ReplaceServerLocation: UnicodeString;
  188.         function Get_Forcedefault: UnicodeString;
  189.         function Get_Modifiable: UnicodeString;
  190.         procedure Set_RedirectNow(Value: UnicodeString);
  191.         procedure Set_ReplaceServerLocation(Value: UnicodeString);
  192.         procedure Set_Forcedefault(Value: UnicodeString);
  193.         procedure Set_Modifiable(Value: UnicodeString);
  194.         { Methods & Properties }
  195.         property RedirectNow: UnicodeString read Get_RedirectNow write Set_RedirectNow;
  196.         property ReplaceServerLocation: UnicodeString read Get_ReplaceServerLocation write Set_ReplaceServerLocation;
  197.         property Forcedefault: UnicodeString read Get_Forcedefault write Set_Forcedefault;
  198.         property Modifiable: UnicodeString read Get_Modifiable write Set_Modifiable;
  199.       end;
  200.    
  201.     { IXMLSystemTrayMenuDisplayType }
  202.    
  203.       IXMLSystemTrayMenuDisplayType = interface(IXMLNode)
  204.         ['{749F38DC-262E-46C5-96F0-1489BE2E828D}']
  205.         { Property Accessors }
  206.         function Get_Enabled: IXMLEnabledType;
  207.         { Methods & Properties }
  208.         property Enabled: IXMLEnabledType read Get_Enabled;
  209.       end;
  210.    
  211.     { IXMLDesktopIntegrationType }
  212.    
  213.       IXMLDesktopIntegrationType = interface(IXMLNode)
  214.         ['{AF9022A6-9177-4F5A-8535-6A30990BFF47}']
  215.         { Property Accessors }
  216.         function Get_StartMenu: UnicodeString;
  217.         function Get_Desktop: UnicodeString;
  218.         procedure Set_StartMenu(Value: UnicodeString);
  219.         procedure Set_Desktop(Value: UnicodeString);
  220.         { Methods & Properties }
  221.         property StartMenu: UnicodeString read Get_StartMenu write Set_StartMenu;
  222.         property Desktop: UnicodeString read Get_Desktop write Set_Desktop;
  223.       end;
  224.    
  225.     { IXMLConfigurationFileType }
  226.    
  227.       IXMLConfigurationFileType = interface(IXMLNode)
  228.         ['{C7BB0D35-440B-4A00-849C-91468AB60381}']
  229.         { Property Accessors }
  230.         function Get_Location: IXMLLocationType;
  231.         function Get_Refresh: IXMLRefreshType;
  232.         { Methods & Properties }
  233.         property Location: IXMLLocationType read Get_Location;
  234.         property Refresh: IXMLRefreshType read Get_Refresh;
  235.       end;
  236.    
  237.     { IXMLRefreshType }
  238.    
  239.       IXMLRefreshType = interface(IXMLNode)
  240.         ['{34880A52-CA66-491E-944A-D40F3855D3BC}']
  241.         { Property Accessors }
  242.         function Get_OnApplicationStart: IXMLOnApplicationStartType;
  243.         function Get_OnResourceRequest: IXMLOnResourceRequestType;
  244.         function Get_Poll: IXMLPollType;
  245.         { Methods & Properties }
  246.         property OnApplicationStart: IXMLOnApplicationStartType read Get_OnApplicationStart;
  247.         property OnResourceRequest: IXMLOnResourceRequestType read Get_OnResourceRequest;
  248.         property Poll: IXMLPollType read Get_Poll;
  249.       end;
  250.    
  251.     { IXMLOnApplicationStartType }
  252.    
  253.       IXMLOnApplicationStartType = interface(IXMLNode)
  254.         ['{AA5725C7-7F85-4C19-8E97-26E9AECC9AD3}']
  255.         { Property Accessors }
  256.         function Get_Forcedefault: UnicodeString;
  257.         function Get_Modifiable: UnicodeString;
  258.         procedure Set_Forcedefault(Value: UnicodeString);
  259.         procedure Set_Modifiable(Value: UnicodeString);
  260.         { Methods & Properties }
  261.         property Forcedefault: UnicodeString read Get_Forcedefault write Set_Forcedefault;
  262.         property Modifiable: UnicodeString read Get_Modifiable write Set_Modifiable;
  263.       end;
  264.    
  265.     { IXMLOnResourceRequestType }
  266.    
  267.       IXMLOnResourceRequestType = interface(IXMLNode)
  268.         ['{F6447AE1-7DF1-4BCB-BAF3-188F79960C55}']
  269.         { Property Accessors }
  270.         function Get_Forcedefault: UnicodeString;
  271.         function Get_Modifiable: UnicodeString;
  272.         procedure Set_Forcedefault(Value: UnicodeString);
  273.         procedure Set_Modifiable(Value: UnicodeString);
  274.         { Methods & Properties }
  275.         property Forcedefault: UnicodeString read Get_Forcedefault write Set_Forcedefault;
  276.         property Modifiable: UnicodeString read Get_Modifiable write Set_Modifiable;
  277.       end;
  278.    
  279.     { IXMLPollType }
  280.    
  281.       IXMLPollType = interface(IXMLNode)
  282.         ['{B127CFA4-936D-468F-B731-425FF77F3E1F}']
  283.         { Property Accessors }
  284.         function Get_Forcedefault: UnicodeString;
  285.         function Get_Modifiable: UnicodeString;
  286.         function Get_Enabled: IXMLEnabledType;
  287.         function Get_Period: UnicodeString;
  288.         procedure Set_Forcedefault(Value: UnicodeString);
  289.         procedure Set_Modifiable(Value: UnicodeString);
  290.         procedure Set_Period(Value: UnicodeString);
  291.         { Methods & Properties }
  292.         property Forcedefault: UnicodeString read Get_Forcedefault write Set_Forcedefault;
  293.         property Modifiable: UnicodeString read Get_Modifiable write Set_Modifiable;
  294.         property Enabled: IXMLEnabledType read Get_Enabled;
  295.         property Period: UnicodeString read Get_Period write Set_Period;
  296.       end;
  297.    
  298.     { IXMLRequestType }
  299.    
  300.       IXMLRequestType = interface(IXMLNode)
  301.         ['{3508E30F-BC26-4F62-A2CB-8D627147C0C0}']
  302.         { Property Accessors }
  303.         function Get_Enumeration: IXMLEnumerationType;
  304.         function Get_Resource: IXMLResourceType;
  305.         { Methods & Properties }
  306.         property Enumeration: IXMLEnumerationType read Get_Enumeration;
  307.         property Resource: IXMLResourceType read Get_Resource;
  308.       end;
  309.    
  310.     { IXMLEnumerationType }
  311.    
  312.       IXMLEnumerationType = interface(IXMLNode)
  313.         ['{1AD231C0-0793-47F8-9E00-B5E0FE206A37}']
  314.         { Property Accessors }
  315.         function Get_Location: IXMLLocationType;
  316.         function Get_Smartcard_Location: IXMLSmartcard_LocationType;
  317.         function Get_Refresh: IXMLRefreshType;
  318.         { Methods & Properties }
  319.         property Location: IXMLLocationType read Get_Location;
  320.         property Smartcard_Location: IXMLSmartcard_LocationType read Get_Smartcard_Location;
  321.         property Refresh: IXMLRefreshType read Get_Refresh;
  322.       end;
  323.    
  324.     { IXMLSmartcard_LocationType }
  325.    
  326.       IXMLSmartcard_LocationType = interface(IXMLNode)
  327.         ['{D9BEAD8A-36B9-435C-9F09-5AE35165A8F4}']
  328.         { Property Accessors }
  329.         function Get_ReplaceServerLocation: UnicodeString;
  330.         procedure Set_ReplaceServerLocation(Value: UnicodeString);
  331.         { Methods & Properties }
  332.         property ReplaceServerLocation: UnicodeString read Get_ReplaceServerLocation write Set_ReplaceServerLocation;
  333.       end;
  334.    
  335.     { IXMLResourceType }
  336.    
  337.       IXMLResourceType = interface(IXMLNode)
  338.         ['{C19ED18A-1348-45B7-813B-485883ABA214}']
  339.         { Property Accessors }
  340.         function Get_Location: IXMLLocationType;
  341.         function Get_Smartcard_Location: IXMLSmartcard_LocationType;
  342.         { Methods & Properties }
  343.         property Location: IXMLLocationType read Get_Location;
  344.         property Smartcard_Location: IXMLSmartcard_LocationType read Get_Smartcard_Location;
  345.       end;
  346.    
  347.     { IXMLFailoverType }
  348.    
  349.       IXMLFailoverType = interface(IXMLNode)
  350.         ['{9EE50A6D-A74D-45BB-8741-539153DD3549}']
  351.         { Property Accessors }
  352.         function Get_Location: IXMLLocationType;
  353.         { Methods & Properties }
  354.         property Location: IXMLLocationType read Get_Location;
  355.       end;
  356.    
  357.     { IXMLLogonType }
  358.    
  359.       IXMLLogonType = interface(IXMLNode)
  360.         ['{485ED7D7-02F4-4A5B-AC06-688CBA877895}']
  361.         { Property Accessors }
  362.         function Get_Forcedefault: UnicodeString;
  363.         function Get_Modifiable: UnicodeString;
  364.         function Get_LogonMethod: IXMLLogonMethodTypeList;
  365.         function Get_EnableSavePassword: UnicodeString;
  366.         function Get_SupportNDS: UnicodeString;
  367.         function Get_NDS_Settings: IXMLNDS_SettingsType;
  368.         function Get_CaptureSmartCardPin: UnicodeString;
  369.         procedure Set_Forcedefault(Value: UnicodeString);
  370.         procedure Set_Modifiable(Value: UnicodeString);
  371.         procedure Set_EnableSavePassword(Value: UnicodeString);
  372.         procedure Set_SupportNDS(Value: UnicodeString);
  373.         procedure Set_CaptureSmartCardPin(Value: UnicodeString);
  374.         { Methods & Properties }
  375.         property Forcedefault: UnicodeString read Get_Forcedefault write Set_Forcedefault;
  376.         property Modifiable: UnicodeString read Get_Modifiable write Set_Modifiable;
  377.         property LogonMethod: IXMLLogonMethodTypeList read Get_LogonMethod;
  378.         property EnableSavePassword: UnicodeString read Get_EnableSavePassword write Set_EnableSavePassword;
  379.         property SupportNDS: UnicodeString read Get_SupportNDS write Set_SupportNDS;
  380.         property NDS_Settings: IXMLNDS_SettingsType read Get_NDS_Settings;
  381.         property CaptureSmartCardPin: UnicodeString read Get_CaptureSmartCardPin write Set_CaptureSmartCardPin;
  382.       end;
  383.    
  384.     { IXMLNDS_SettingsType }
  385.    
  386.       IXMLNDS_SettingsType = interface(IXMLNode)
  387.         ['{E9F8CC66-BB3E-4BB7-805C-8C7B8B73628B}']
  388.         { Property Accessors }
  389.         function Get_DefaultTree: UnicodeString;
  390.         procedure Set_DefaultTree(Value: UnicodeString);
  391.         { Methods & Properties }
  392.         property DefaultTree: UnicodeString read Get_DefaultTree write Set_DefaultTree;
  393.       end;
  394.    
  395.     { IXMLUserInterfaceType }
  396.    
  397.       IXMLUserInterfaceType = interface(IXMLNode)
  398.         ['{7857E8DA-E077-4DAF-8132-F7012EA466A0}']
  399.         { Property Accessors }
  400.         function Get_Application_mode: UnicodeString;
  401.         function Get_ServerSettings: UnicodeString;
  402.         function Get_FolderDisplaySettings: UnicodeString;
  403.         function Get_RefreshSettings: UnicodeString;
  404.         procedure Set_Application_mode(Value: UnicodeString);
  405.         procedure Set_ServerSettings(Value: UnicodeString);
  406.         procedure Set_FolderDisplaySettings(Value: UnicodeString);
  407.         procedure Set_RefreshSettings(Value: UnicodeString);
  408.         { Methods & Properties }
  409.         property Application_mode: UnicodeString read Get_Application_mode write Set_Application_mode;
  410.         property ServerSettings: UnicodeString read Get_ServerSettings write Set_ServerSettings;
  411.         property FolderDisplaySettings: UnicodeString read Get_FolderDisplaySettings write Set_FolderDisplaySettings;
  412.         property RefreshSettings: UnicodeString read Get_RefreshSettings write Set_RefreshSettings;
  413.       end;
  414.    
  415.     { IXMLFileCleanupType }
  416.    
  417.       IXMLFileCleanupType = interface(IXMLNode)
  418.         ['{9A6D278B-A19F-4833-8D04-C2D1DCE3B9D3}']
  419.         { Property Accessors }
  420.         function Get_Logoff: UnicodeString;
  421.         function Get_Exit: UnicodeString;
  422.         function Get_RefreshApp: IXMLRefreshAppType;
  423.         procedure Set_Logoff(Value: UnicodeString);
  424.         procedure Set_Exit(Value: UnicodeString);
  425.         { Methods & Properties }
  426.         property Logoff: UnicodeString read Get_Logoff write Set_Logoff;
  427.         property Exit: UnicodeString read Get_Exit write Set_Exit;
  428.         property RefreshApp: IXMLRefreshAppType read Get_RefreshApp;
  429.       end;
  430.    
  431.     { IXMLRefreshAppType }
  432.    
  433.       IXMLRefreshAppType = interface(IXMLNode)
  434.         ['{0E4D4B6F-3931-4294-9731-0817047CFF09}']
  435.         { Property Accessors }
  436.         function Get_DirectoryDepth: UnicodeString;
  437.         procedure Set_DirectoryDepth(Value: UnicodeString);
  438.         { Methods & Properties }
  439.         property DirectoryDepth: UnicodeString read Get_DirectoryDepth write Set_DirectoryDepth;
  440.       end;
  441.    
  442.     { IXMLICA_OptionsType }
  443.    
  444.       IXMLICA_OptionsType = interface(IXMLNode)
  445.         ['{D1CF0488-9F4A-47DD-AA95-8125D30AA892}']
  446.         { Property Accessors }
  447.         function Get_Application_mode: UnicodeString;
  448.         function Get_DisplaySize: IXMLDisplaySizeType;
  449.         function Get_ColorDepth: IXMLColorDepthType;
  450.         function Get_Audio: IXMLAudioType;
  451.         function Get_ICA_TemplateFile: UnicodeString;
  452.         function Get_TransparentKeyPassthrough: IXMLTransparentKeyPassthroughType;
  453.         procedure Set_Application_mode(Value: UnicodeString);
  454.         procedure Set_ICA_TemplateFile(Value: UnicodeString);
  455.         { Methods & Properties }
  456.         property Application_mode: UnicodeString read Get_Application_mode write Set_Application_mode;
  457.         property DisplaySize: IXMLDisplaySizeType read Get_DisplaySize;
  458.         property ColorDepth: IXMLColorDepthType read Get_ColorDepth;
  459.         property Audio: IXMLAudioType read Get_Audio;
  460.         property ICA_TemplateFile: UnicodeString read Get_ICA_TemplateFile write Set_ICA_TemplateFile;
  461.         property TransparentKeyPassthrough: IXMLTransparentKeyPassthroughType read Get_TransparentKeyPassthrough;
  462.       end;
  463.    
  464.     { IXMLDisplaySizeType }
  465.    
  466.       IXMLDisplaySizeType = interface(IXMLNode)
  467.         ['{12339C94-6F92-4756-8B6D-C5F45970E5CB}']
  468.         { Property Accessors }
  469.         function Get_Value: IXMLValueType;
  470.         function Get_Options: IXMLOptionsType;
  471.         { Methods & Properties }
  472.         property Value: IXMLValueType read Get_Value;
  473.         property Options: IXMLOptionsType read Get_Options;
  474.       end;
  475.    
  476.     { IXMLValueType }
  477.    
  478.       IXMLValueType = interface(IXMLNode)
  479.         ['{38FCAE11-DD26-447A-974F-7C73A0FA0D3E}']
  480.       end;
  481.    
  482.     { IXMLOptionsType }
  483.    
  484.       IXMLOptionsType = interface(IXMLNode)
  485.         ['{C1F2293D-E6F9-4DEA-98EC-BB3A95F38C66}']
  486.       end;
  487.    
  488.     { IXMLOptionsTypeList }
  489.    
  490.       IXMLOptionsTypeList = interface(IXMLNodeCollection)
  491.         ['{A9E6002C-748D-4CC0-8E82-CA6F1AC63BAF}']
  492.         { Methods & Properties }
  493.         function Add: IXMLOptionsType;
  494.         function Insert(const Index: Integer): IXMLOptionsType;
  495.    
  496.         function Get_Item(Index: Integer): IXMLOptionsType;
  497.         property Items[Index: Integer]: IXMLOptionsType read Get_Item; default;
  498.       end;
  499.    
  500.     { IXMLColorDepthType }
  501.    
  502.       IXMLColorDepthType = interface(IXMLNode)
  503.         ['{D73B491A-5BBD-4FFC-B1F8-6D9B388009EC}']
  504.         { Property Accessors }
  505.         function Get_Value: IXMLValueType;
  506.         function Get_Options: IXMLOptionsTypeList;
  507.         { Methods & Properties }
  508.         property Value: IXMLValueType read Get_Value;
  509.         property Options: IXMLOptionsTypeList read Get_Options;
  510.       end;
  511.    
  512.     { IXMLAudioType }
  513.    
  514.       IXMLAudioType = interface(IXMLNode)
  515.         ['{A4547748-801B-465A-86AD-2FE4E6E89FF2}']
  516.         { Property Accessors }
  517.         function Get_Value: IXMLValueType;
  518.         function Get_Options: IXMLOptionsTypeList;
  519.         { Methods & Properties }
  520.         property Value: IXMLValueType read Get_Value;
  521.         property Options: IXMLOptionsTypeList read Get_Options;
  522.       end;
  523.    
  524.     { IXMLTransparentKeyPassthroughType }
  525.    
  526.       IXMLTransparentKeyPassthroughType = interface(IXMLNode)
  527.         ['{516339AE-053A-4635-9DC5-E5A58E43AE21}']
  528.         { Property Accessors }
  529.         function Get_Value: IXMLValueType;
  530.         function Get_Options: IXMLOptionsTypeList;
  531.         { Methods & Properties }
  532.         property Value: IXMLValueType read Get_Value;
  533.         property Options: IXMLOptionsTypeList read Get_Options;
  534.       end;
  535.    
  536.     { IXMLDimensionType }
  537.    
  538.       IXMLDimensionType = interface(IXMLNode)
  539.         ['{6CA9C7BE-D92E-4955-B82E-B91521C19933}']
  540.         { Property Accessors }
  541.         function Get_Width: UnicodeString;
  542.         function Get_Height: UnicodeString;
  543.         procedure Set_Width(Value: UnicodeString);
  544.         procedure Set_Height(Value: UnicodeString);
  545.         { Methods & Properties }
  546.         property Width: UnicodeString read Get_Width write Set_Width;
  547.         property Height: UnicodeString read Get_Height write Set_Height;
  548.       end;
  549.    
  550.     { IXMLLogonMethodTypeList }
  551.    
  552.       IXMLLogonMethodTypeList = interface(IXMLNodeCollection)
  553.         ['{6CC47185-705D-4A10-AD4C-E7AFE30D8022}']
  554.         { Methods & Properties }
  555.         function Add(const Value: UnicodeString): IXMLNode;
  556.         function Insert(const Index: Integer; const Value: UnicodeString): IXMLNode;
  557.    
  558.         function Get_Item(Index: Integer): UnicodeString;
  559.         property Items[Index: Integer]: UnicodeString read Get_Item; default;
  560.       end;
  561.    
  562.     { Forward Decls }
  563.    
  564.       TXMLPNAgent_ConfigurationType = class;
  565.       TXMLFolderDisplayType = class;
  566.       TXMLStartMenuDisplayType = class;
  567.       TXMLEnabledType = class;
  568.       TXMLRootFolderType = class;
  569.       TXMLDesktopDisplayType = class;
  570.       TXMLIconType = class;
  571.       TXMLNameType = class;
  572.       TXMLLocationType = class;
  573.       TXMLSystemTrayMenuDisplayType = class;
  574.       TXMLDesktopIntegrationType = class;
  575.       TXMLConfigurationFileType = class;
  576.       TXMLRefreshType = class;
  577.       TXMLOnApplicationStartType = class;
  578.       TXMLOnResourceRequestType = class;
  579.       TXMLPollType = class;
  580.       TXMLRequestType = class;
  581.       TXMLEnumerationType = class;
  582.       TXMLSmartcard_LocationType = class;
  583.       TXMLResourceType = class;
  584.       TXMLFailoverType = class;
  585.       TXMLLogonType = class;
  586.       TXMLNDS_SettingsType = class;
  587.       TXMLUserInterfaceType = class;
  588.       TXMLFileCleanupType = class;
  589.       TXMLRefreshAppType = class;
  590.       TXMLICA_OptionsType = class;
  591.       TXMLDisplaySizeType = class;
  592.       TXMLValueType = class;
  593.       TXMLOptionsType = class;
  594.       TXMLOptionsTypeList = class;
  595.       TXMLColorDepthType = class;
  596.       TXMLAudioType = class;
  597.       TXMLTransparentKeyPassthroughType = class;
  598.       TXMLDimensionType = class;
  599.       TXMLLogonMethodTypeList = class;
  600.    
  601.     { TXMLPNAgent_ConfigurationType }
  602.    
  603.       TXMLPNAgent_ConfigurationType = class(TXMLNode, IXMLPNAgent_ConfigurationType)
  604.       protected
  605.         { IXMLPNAgent_ConfigurationType }
  606.         function Get_Xsi: UnicodeString;
  607.         function Get_FolderDisplay: IXMLFolderDisplayType;
  608.         function Get_DesktopIntegration: IXMLDesktopIntegrationType;
  609.         function Get_ConfigurationFile: IXMLConfigurationFileType;
  610.         function Get_Request: IXMLRequestType;
  611.         function Get_Failover: IXMLFailoverType;
  612.         function Get_Logon: IXMLLogonType;
  613.         function Get_UserInterface: IXMLUserInterfaceType;
  614.         function Get_FileCleanup: IXMLFileCleanupType;
  615.         function Get_ICA_Options: IXMLICA_OptionsType;
  616.         procedure Set_Xsi(Value: UnicodeString);
  617.       public
  618.         procedure AfterConstruction; override;
  619.       end;
  620.    
  621.     { TXMLFolderDisplayType }
  622.    
  623.       TXMLFolderDisplayType = class(TXMLNode, IXMLFolderDisplayType)
  624.       protected
  625.         { IXMLFolderDisplayType }
  626.         function Get_StartMenuDisplay: IXMLStartMenuDisplayType;
  627.         function Get_DesktopDisplay: IXMLDesktopDisplayType;
  628.         function Get_SystemTrayMenuDisplay: IXMLSystemTrayMenuDisplayType;
  629.       public
  630.         procedure AfterConstruction; override;
  631.       end;
  632.    
  633.     { TXMLStartMenuDisplayType }
  634.    
  635.       TXMLStartMenuDisplayType = class(TXMLNode, IXMLStartMenuDisplayType)
  636.       protected
  637.         { IXMLStartMenuDisplayType }
  638.         function Get_Enabled: IXMLEnabledType;
  639.         function Get_RootFolder: IXMLRootFolderType;
  640.       public
  641.         procedure AfterConstruction; override;
  642.       end;
  643.    
  644.     { TXMLEnabledType }
  645.    
  646.       TXMLEnabledType = class(TXMLNode, IXMLEnabledType)
  647.       protected
  648.         { IXMLEnabledType }
  649.         function Get_Forcedefault: UnicodeString;
  650.         function Get_Modifiable: UnicodeString;
  651.         procedure Set_Forcedefault(Value: UnicodeString);
  652.         procedure Set_Modifiable(Value: UnicodeString);
  653.       end;
  654.    
  655.     { TXMLRootFolderType }
  656.    
  657.       TXMLRootFolderType = class(TXMLNode, IXMLRootFolderType)
  658.       protected
  659.         { IXMLRootFolderType }
  660.         function Get_Forcedefault: UnicodeString;
  661.         function Get_Modifiable: UnicodeString;
  662.         function Get_Root: UnicodeString;
  663.         procedure Set_Forcedefault(Value: UnicodeString);
  664.         procedure Set_Modifiable(Value: UnicodeString);
  665.         procedure Set_Root(Value: UnicodeString);
  666.       end;
  667.    
  668.     { TXMLDesktopDisplayType }
  669.    
  670.       TXMLDesktopDisplayType = class(TXMLNode, IXMLDesktopDisplayType)
  671.       protected
  672.         { IXMLDesktopDisplayType }
  673.         function Get_Enabled: IXMLEnabledType;
  674.         function Get_Icon: IXMLIconType;
  675.       public
  676.         procedure AfterConstruction; override;
  677.       end;
  678.    
  679.     { TXMLIconType }
  680.    
  681.       TXMLIconType = class(TXMLNode, IXMLIconType)
  682.       protected
  683.         { IXMLIconType }
  684.         function Get_Name: IXMLNameType;
  685.         function Get_Location: IXMLLocationType;
  686.       public
  687.         procedure AfterConstruction; override;
  688.       end;
  689.    
  690.     { TXMLNameType }
  691.    
  692.       TXMLNameType = class(TXMLNode, IXMLNameType)
  693.       protected
  694.         { IXMLNameType }
  695.         function Get_Forcedefault: UnicodeString;
  696.         function Get_Modifiable: UnicodeString;
  697.         procedure Set_Forcedefault(Value: UnicodeString);
  698.         procedure Set_Modifiable(Value: UnicodeString);
  699.       end;
  700.    
  701.     { TXMLLocationType }
  702.    
  703.       TXMLLocationType = class(TXMLNode, IXMLLocationType)
  704.       protected
  705.         { IXMLLocationType }
  706.         function Get_RedirectNow: UnicodeString;
  707.         function Get_ReplaceServerLocation: UnicodeString;
  708.         function Get_Forcedefault: UnicodeString;
  709.         function Get_Modifiable: UnicodeString;
  710.         procedure Set_RedirectNow(Value: UnicodeString);
  711.         procedure Set_ReplaceServerLocation(Value: UnicodeString);
  712.         procedure Set_Forcedefault(Value: UnicodeString);
  713.         procedure Set_Modifiable(Value: UnicodeString);
  714.       end;
  715.    
  716.     { TXMLSystemTrayMenuDisplayType }
  717.    
  718.       TXMLSystemTrayMenuDisplayType = class(TXMLNode, IXMLSystemTrayMenuDisplayType)
  719.       protected
  720.         { IXMLSystemTrayMenuDisplayType }
  721.         function Get_Enabled: IXMLEnabledType;
  722.       public
  723.         procedure AfterConstruction; override;
  724.       end;
  725.    
  726.     { TXMLDesktopIntegrationType }
  727.    
  728.       TXMLDesktopIntegrationType = class(TXMLNode, IXMLDesktopIntegrationType)
  729.       protected
  730.         { IXMLDesktopIntegrationType }
  731.         function Get_StartMenu: UnicodeString;
  732.         function Get_Desktop: UnicodeString;
  733.         procedure Set_StartMenu(Value: UnicodeString);
  734.         procedure Set_Desktop(Value: UnicodeString);
  735.       end;
  736.    
  737.     { TXMLConfigurationFileType }
  738.    
  739.       TXMLConfigurationFileType = class(TXMLNode, IXMLConfigurationFileType)
  740.       protected
  741.         { IXMLConfigurationFileType }
  742.         function Get_Location: IXMLLocationType;
  743.         function Get_Refresh: IXMLRefreshType;
  744.       public
  745.         procedure AfterConstruction; override;
  746.       end;
  747.    
  748.     { TXMLRefreshType }
  749.    
  750.       TXMLRefreshType = class(TXMLNode, IXMLRefreshType)
  751.       protected
  752.         { IXMLRefreshType }
  753.         function Get_OnApplicationStart: IXMLOnApplicationStartType;
  754.         function Get_OnResourceRequest: IXMLOnResourceRequestType;
  755.         function Get_Poll: IXMLPollType;
  756.       public
  757.         procedure AfterConstruction; override;
  758.       end;
  759.    
  760.     { TXMLOnApplicationStartType }
  761.    
  762.       TXMLOnApplicationStartType = class(TXMLNode, IXMLOnApplicationStartType)
  763.       protected
  764.         { IXMLOnApplicationStartType }
  765.         function Get_Forcedefault: UnicodeString;
  766.         function Get_Modifiable: UnicodeString;
  767.         procedure Set_Forcedefault(Value: UnicodeString);
  768.         procedure Set_Modifiable(Value: UnicodeString);
  769.       end;
  770.    
  771.     { TXMLOnResourceRequestType }
  772.    
  773.       TXMLOnResourceRequestType = class(TXMLNode, IXMLOnResourceRequestType)
  774.       protected
  775.         { IXMLOnResourceRequestType }
  776.         function Get_Forcedefault: UnicodeString;
  777.         function Get_Modifiable: UnicodeString;
  778.         procedure Set_Forcedefault(Value: UnicodeString);
  779.         procedure Set_Modifiable(Value: UnicodeString);
  780.       end;
  781.    
  782.     { TXMLPollType }
  783.    
  784.       TXMLPollType = class(TXMLNode, IXMLPollType)
  785.       protected
  786.         { IXMLPollType }
  787.         function Get_Forcedefault: UnicodeString;
  788.         function Get_Modifiable: UnicodeString;
  789.         function Get_Enabled: IXMLEnabledType;
  790.         function Get_Period: UnicodeString;
  791.         procedure Set_Forcedefault(Value: UnicodeString);
  792.         procedure Set_Modifiable(Value: UnicodeString);
  793.         procedure Set_Period(Value: UnicodeString);
  794.       public
  795.         procedure AfterConstruction; override;
  796.       end;
  797.    
  798.     { TXMLRequestType }
  799.    
  800.       TXMLRequestType = class(TXMLNode, IXMLRequestType)
  801.       protected
  802.         { IXMLRequestType }
  803.         function Get_Enumeration: IXMLEnumerationType;
  804.         function Get_Resource: IXMLResourceType;
  805.       public
  806.         procedure AfterConstruction; override;
  807.       end;
  808.    
  809.     { TXMLEnumerationType }
  810.    
  811.       TXMLEnumerationType = class(TXMLNode, IXMLEnumerationType)
  812.       protected
  813.         { IXMLEnumerationType }
  814.         function Get_Location: IXMLLocationType;
  815.         function Get_Smartcard_Location: IXMLSmartcard_LocationType;
  816.         function Get_Refresh: IXMLRefreshType;
  817.       public
  818.         procedure AfterConstruction; override;
  819.       end;
  820.    
  821.     { TXMLSmartcard_LocationType }
  822.    
  823.       TXMLSmartcard_LocationType = class(TXMLNode, IXMLSmartcard_LocationType)
  824.       protected
  825.         { IXMLSmartcard_LocationType }
  826.         function Get_ReplaceServerLocation: UnicodeString;
  827.         procedure Set_ReplaceServerLocation(Value: UnicodeString);
  828.       end;
  829.    
  830.     { TXMLResourceType }
  831.    
  832.       TXMLResourceType = class(TXMLNode, IXMLResourceType)
  833.       protected
  834.         { IXMLResourceType }
  835.         function Get_Location: IXMLLocationType;
  836.         function Get_Smartcard_Location: IXMLSmartcard_LocationType;
  837.       public
  838.         procedure AfterConstruction; override;
  839.       end;
  840.    
  841.     { TXMLFailoverType }
  842.    
  843.       TXMLFailoverType = class(TXMLNode, IXMLFailoverType)
  844.       protected
  845.         { IXMLFailoverType }
  846.         function Get_Location: IXMLLocationType;
  847.       public
  848.         procedure AfterConstruction; override;
  849.       end;
  850.    
  851.     { TXMLLogonType }
  852.    
  853.       TXMLLogonType = class(TXMLNode, IXMLLogonType)
  854.       private
  855.         FLogonMethod: IXMLLogonMethodTypeList;
  856.       protected
  857.         { IXMLLogonType }
  858.         function Get_Forcedefault: UnicodeString;
  859.         function Get_Modifiable: UnicodeString;
  860.         function Get_LogonMethod: IXMLLogonMethodTypeList;
  861.         function Get_EnableSavePassword: UnicodeString;
  862.         function Get_SupportNDS: UnicodeString;
  863.         function Get_NDS_Settings: IXMLNDS_SettingsType;
  864.         function Get_CaptureSmartCardPin: UnicodeString;
  865.         procedure Set_Forcedefault(Value: UnicodeString);
  866.         procedure Set_Modifiable(Value: UnicodeString);
  867.         procedure Set_EnableSavePassword(Value: UnicodeString);
  868.         procedure Set_SupportNDS(Value: UnicodeString);
  869.         procedure Set_CaptureSmartCardPin(Value: UnicodeString);
  870.       public
  871.         procedure AfterConstruction; override;
  872.       end;
  873.    
  874.     { TXMLNDS_SettingsType }
  875.    
  876.       TXMLNDS_SettingsType = class(TXMLNode, IXMLNDS_SettingsType)
  877.       protected
  878.         { IXMLNDS_SettingsType }
  879.         function Get_DefaultTree: UnicodeString;
  880.         procedure Set_DefaultTree(Value: UnicodeString);
  881.       end;
  882.    
  883.     { TXMLUserInterfaceType }
  884.    
  885.       TXMLUserInterfaceType = class(TXMLNode, IXMLUserInterfaceType)
  886.       protected
  887.         { IXMLUserInterfaceType }
  888.         function Get_Application_mode: UnicodeString;
  889.         function Get_ServerSettings: UnicodeString;
  890.         function Get_FolderDisplaySettings: UnicodeString;
  891.         function Get_RefreshSettings: UnicodeString;
  892.         procedure Set_Application_mode(Value: UnicodeString);
  893.         procedure Set_ServerSettings(Value: UnicodeString);
  894.         procedure Set_FolderDisplaySettings(Value: UnicodeString);
  895.         procedure Set_RefreshSettings(Value: UnicodeString);
  896.       end;
  897.    
  898.     { TXMLFileCleanupType }
  899.    
  900.       TXMLFileCleanupType = class(TXMLNode, IXMLFileCleanupType)
  901.       protected
  902.         { IXMLFileCleanupType }
  903.         function Get_Logoff: UnicodeString;
  904.         function Get_Exit: UnicodeString;
  905.         function Get_RefreshApp: IXMLRefreshAppType;
  906.         procedure Set_Logoff(Value: UnicodeString);
  907.         procedure Set_Exit(Value: UnicodeString);
  908.       public
  909.         procedure AfterConstruction; override;
  910.       end;
  911.    
  912.     { TXMLRefreshAppType }
  913.    
  914.       TXMLRefreshAppType = class(TXMLNode, IXMLRefreshAppType)
  915.       protected
  916.         { IXMLRefreshAppType }
  917.         function Get_DirectoryDepth: UnicodeString;
  918.         procedure Set_DirectoryDepth(Value: UnicodeString);
  919.       end;
  920.    
  921.     { TXMLICA_OptionsType }
  922.    
  923.       TXMLICA_OptionsType = class(TXMLNode, IXMLICA_OptionsType)
  924.       protected
  925.         { IXMLICA_OptionsType }
  926.         function Get_Application_mode: UnicodeString;
  927.         function Get_DisplaySize: IXMLDisplaySizeType;
  928.         function Get_ColorDepth: IXMLColorDepthType;
  929.         function Get_Audio: IXMLAudioType;
  930.         function Get_ICA_TemplateFile: UnicodeString;
  931.         function Get_TransparentKeyPassthrough: IXMLTransparentKeyPassthroughType;
  932.         procedure Set_Application_mode(Value: UnicodeString);
  933.         procedure Set_ICA_TemplateFile(Value: UnicodeString);
  934.       public
  935.         procedure AfterConstruction; override;
  936.       end;
  937.    
  938.     { TXMLDisplaySizeType }
  939.    
  940.       TXMLDisplaySizeType = class(TXMLNode, IXMLDisplaySizeType)
  941.       protected
  942.         { IXMLDisplaySizeType }
  943.         function Get_Value: IXMLValueType;
  944.         function Get_Options: IXMLOptionsType;
  945.       public
  946.         procedure AfterConstruction; override;
  947.       end;
  948.    
  949.     { TXMLValueType }
  950.    
  951.       TXMLValueType = class(TXMLNode, IXMLValueType)
  952.       protected
  953.         { IXMLValueType }
  954.       end;
  955.    
  956.     { TXMLOptionsType }
  957.    
  958.       TXMLOptionsType = class(TXMLNode, IXMLOptionsType)
  959.       protected
  960.         { IXMLOptionsType }
  961.       end;
  962.    
  963.     { TXMLOptionsTypeList }
  964.    
  965.       TXMLOptionsTypeList = class(TXMLNodeCollection, IXMLOptionsTypeList)
  966.       protected
  967.         { IXMLOptionsTypeList }
  968.         function Add: IXMLOptionsType;
  969.         function Insert(const Index: Integer): IXMLOptionsType;
  970.    
  971.         function Get_Item(Index: Integer): IXMLOptionsType;
  972.       end;
  973.    
  974.     { TXMLColorDepthType }
  975.    
  976.       TXMLColorDepthType = class(TXMLNode, IXMLColorDepthType)
  977.       private
  978.         FOptions: IXMLOptionsTypeList;
  979.       protected
  980.         { IXMLColorDepthType }
  981.         function Get_Value: IXMLValueType;
  982.         function Get_Options: IXMLOptionsTypeList;
  983.       public
  984.         procedure AfterConstruction; override;
  985.       end;
  986.    
  987.     { TXMLAudioType }
  988.    
  989.       TXMLAudioType = class(TXMLNode, IXMLAudioType)
  990.       private
  991.         FOptions: IXMLOptionsTypeList;
  992.       protected
  993.         { IXMLAudioType }
  994.         function Get_Value: IXMLValueType;
  995.         function Get_Options: IXMLOptionsTypeList;
  996.       public
  997.         procedure AfterConstruction; override;
  998.       end;
  999.    
  1000.     { TXMLTransparentKeyPassthroughType }
  1001.    
  1002.       TXMLTransparentKeyPassthroughType = class(TXMLNode, IXMLTransparentKeyPassthroughType)
  1003.       private
  1004.         FOptions: IXMLOptionsTypeList;
  1005.       protected
  1006.         { IXMLTransparentKeyPassthroughType }
  1007.         function Get_Value: IXMLValueType;
  1008.         function Get_Options: IXMLOptionsTypeList;
  1009.       public
  1010.         procedure AfterConstruction; override;
  1011.       end;
  1012.    
  1013.     { TXMLDimensionType }
  1014.    
  1015.       TXMLDimensionType = class(TXMLNode, IXMLDimensionType)
  1016.       protected
  1017.         { IXMLDimensionType }
  1018.         function Get_Width: UnicodeString;
  1019.         function Get_Height: UnicodeString;
  1020.         procedure Set_Width(Value: UnicodeString);
  1021.         procedure Set_Height(Value: UnicodeString);
  1022.       end;
  1023.    
  1024.     { TXMLLogonMethodTypeList }
  1025.    
  1026.       TXMLLogonMethodTypeList = class(TXMLNodeCollection, IXMLLogonMethodTypeList)
  1027.       protected
  1028.         { IXMLLogonMethodTypeList }
  1029.         function Add(const Value: UnicodeString): IXMLNode;
  1030.         function Insert(const Index: Integer; const Value: UnicodeString): IXMLNode;
  1031.    
  1032.         function Get_Item(Index: Integer): UnicodeString;
  1033.       end;
  1034.    
  1035.     { Global Functions }
  1036.    
  1037.     function GetPNAgent_Configuration(Doc: IXMLDocument): IXMLPNAgent_ConfigurationType;
  1038.     function LoadPNAgent_Configuration(const FileName: string): IXMLPNAgent_ConfigurationType;
  1039.     function NewPNAgent_Configuration: IXMLPNAgent_ConfigurationType;
  1040.    
  1041.     const
  1042.       TargetNamespace = '';
  1043.    
  1044.     implementation
  1045.    
  1046.     { Global Functions }
  1047.    
  1048.     function GetPNAgent_Configuration(Doc: IXMLDocument): IXMLPNAgent_ConfigurationType;
  1049.     begin
  1050.       Result := Doc.GetDocBinding('PNAgent_Configuration', TXMLPNAgent_ConfigurationType, TargetNamespace) as IXMLPNAgent_ConfigurationType;
  1051.     end;
  1052.    
  1053.     function LoadPNAgent_Configuration(const FileName: string): IXMLPNAgent_ConfigurationType;
  1054.     begin
  1055.       Result := LoadXMLDocument(FileName).GetDocBinding('PNAgent_Configuration', TXMLPNAgent_ConfigurationType, TargetNamespace) as IXMLPNAgent_ConfigurationType;
  1056.     end;
  1057.    
  1058.     function NewPNAgent_Configuration: IXMLPNAgent_ConfigurationType;
  1059.     begin
  1060.       Result := NewXMLDocument.GetDocBinding('PNAgent_Configuration', TXMLPNAgent_ConfigurationType, TargetNamespace) as IXMLPNAgent_ConfigurationType;
  1061.     end;
  1062.    
  1063.     { TXMLPNAgent_ConfigurationType }
  1064.    
  1065.     procedure TXMLPNAgent_ConfigurationType.AfterConstruction;
  1066.     begin
  1067.       RegisterChildNode('FolderDisplay', TXMLFolderDisplayType);
  1068.       RegisterChildNode('DesktopIntegration', TXMLDesktopIntegrationType);
  1069.       RegisterChildNode('ConfigurationFile', TXMLConfigurationFileType);
  1070.       RegisterChildNode('Request', TXMLRequestType);
  1071.       RegisterChildNode('Failover', TXMLFailoverType);
  1072.       RegisterChildNode('Logon', TXMLLogonType);
  1073.       RegisterChildNode('UserInterface', TXMLUserInterfaceType);
  1074.       RegisterChildNode('FileCleanup', TXMLFileCleanupType);
  1075.       RegisterChildNode('ICA_Options', TXMLICA_OptionsType);
  1076.       inherited;
  1077.     end;
  1078.    
  1079.     function TXMLPNAgent_ConfigurationType.Get_Xsi: UnicodeString;
  1080.     begin
  1081.       Result := AttributeNodes['xmlns:xsi'].Text;
  1082.     end;
  1083.    
  1084.     procedure TXMLPNAgent_ConfigurationType.Set_Xsi(Value: UnicodeString);
  1085.     begin
  1086.       SetAttribute('xmlns:xsi', Value);
  1087.     end;
  1088.    
  1089.     function TXMLPNAgent_ConfigurationType.Get_FolderDisplay: IXMLFolderDisplayType;
  1090.     begin
  1091.       Result := ChildNodes['FolderDisplay'] as IXMLFolderDisplayType;
  1092.     end;
  1093.    
  1094.     function TXMLPNAgent_ConfigurationType.Get_DesktopIntegration: IXMLDesktopIntegrationType;
  1095.     begin
  1096.       Result := ChildNodes['DesktopIntegration'] as IXMLDesktopIntegrationType;
  1097.     end;
  1098.    
  1099.     function TXMLPNAgent_ConfigurationType.Get_ConfigurationFile: IXMLConfigurationFileType;
  1100.     begin
  1101.       Result := ChildNodes['ConfigurationFile'] as IXMLConfigurationFileType;
  1102.     end;
  1103.    
  1104.     function TXMLPNAgent_ConfigurationType.Get_Request: IXMLRequestType;
  1105.     begin
  1106.       Result := ChildNodes['Request'] as IXMLRequestType;
  1107.     end;
  1108.    
  1109.     function TXMLPNAgent_ConfigurationType.Get_Failover: IXMLFailoverType;
  1110.     begin
  1111.       Result := ChildNodes['Failover'] as IXMLFailoverType;
  1112.     end;
  1113.    
  1114.     function TXMLPNAgent_ConfigurationType.Get_Logon: IXMLLogonType;
  1115.     begin
  1116.       Result := ChildNodes['Logon'] as IXMLLogonType;
  1117.     end;
  1118.    
  1119.     function TXMLPNAgent_ConfigurationType.Get_UserInterface: IXMLUserInterfaceType;
  1120.     begin
  1121.       Result := ChildNodes['UserInterface'] as IXMLUserInterfaceType;
  1122.     end;
  1123.    
  1124.     function TXMLPNAgent_ConfigurationType.Get_FileCleanup: IXMLFileCleanupType;
  1125.     begin
  1126.       Result := ChildNodes['FileCleanup'] as IXMLFileCleanupType;
  1127.     end;
  1128.    
  1129.     function TXMLPNAgent_ConfigurationType.Get_ICA_Options: IXMLICA_OptionsType;
  1130.     begin
  1131.       Result := ChildNodes['ICA_Options'] as IXMLICA_OptionsType;
  1132.     end;
  1133.    
  1134.     { TXMLFolderDisplayType }
  1135.    
  1136.     procedure TXMLFolderDisplayType.AfterConstruction;
  1137.     begin
  1138.       RegisterChildNode('StartMenuDisplay', TXMLStartMenuDisplayType);
  1139.       RegisterChildNode('DesktopDisplay', TXMLDesktopDisplayType);
  1140.       RegisterChildNode('SystemTrayMenuDisplay', TXMLSystemTrayMenuDisplayType);
  1141.       inherited;
  1142.     end;
  1143.    
  1144.     function TXMLFolderDisplayType.Get_StartMenuDisplay: IXMLStartMenuDisplayType;
  1145.     begin
  1146.       Result := ChildNodes['StartMenuDisplay'] as IXMLStartMenuDisplayType;
  1147.     end;
  1148.    
  1149.     function TXMLFolderDisplayType.Get_DesktopDisplay: IXMLDesktopDisplayType;
  1150.     begin
  1151.       Result := ChildNodes['DesktopDisplay'] as IXMLDesktopDisplayType;
  1152.     end;
  1153.    
  1154.     function TXMLFolderDisplayType.Get_SystemTrayMenuDisplay: IXMLSystemTrayMenuDisplayType;
  1155.     begin
  1156.       Result := ChildNodes['SystemTrayMenuDisplay'] as IXMLSystemTrayMenuDisplayType;
  1157.     end;
  1158.    
  1159.     { TXMLStartMenuDisplayType }
  1160.    
  1161.     procedure TXMLStartMenuDisplayType.AfterConstruction;
  1162.     begin
  1163.       RegisterChildNode('Enabled', TXMLEnabledType);
  1164.       RegisterChildNode('RootFolder', TXMLRootFolderType);
  1165.       inherited;
  1166.     end;
  1167.    
  1168.     function TXMLStartMenuDisplayType.Get_Enabled: IXMLEnabledType;
  1169.     begin
  1170.       Result := ChildNodes['Enabled'] as IXMLEnabledType;
  1171.     end;
  1172.    
  1173.     function TXMLStartMenuDisplayType.Get_RootFolder: IXMLRootFolderType;
  1174.     begin
  1175.       Result := ChildNodes['RootFolder'] as IXMLRootFolderType;
  1176.     end;
  1177.    
  1178.     { TXMLEnabledType }
  1179.    
  1180.     function TXMLEnabledType.Get_Forcedefault: UnicodeString;
  1181.     begin
  1182.       Result := AttributeNodes['forcedefault'].Text;
  1183.     end;
  1184.    
  1185.     procedure TXMLEnabledType.Set_Forcedefault(Value: UnicodeString);
  1186.     begin
  1187.       SetAttribute('forcedefault', Value);
  1188.     end;
  1189.    
  1190.     function TXMLEnabledType.Get_Modifiable: UnicodeString;
  1191.     begin
  1192.       Result := AttributeNodes['modifiable'].Text;
  1193.     end;
  1194.    
  1195.     procedure TXMLEnabledType.Set_Modifiable(Value: UnicodeString);
  1196.     begin
  1197.       SetAttribute('modifiable', Value);
  1198.     end;
  1199.    
  1200.     { TXMLRootFolderType }
  1201.    
  1202.     function TXMLRootFolderType.Get_Forcedefault: UnicodeString;
  1203.     begin
  1204.       Result := AttributeNodes['forcedefault'].Text;
  1205.     end;
  1206.    
  1207.     procedure TXMLRootFolderType.Set_Forcedefault(Value: UnicodeString);
  1208.     begin
  1209.       SetAttribute('forcedefault', Value);
  1210.     end;
  1211.    
  1212.     function TXMLRootFolderType.Get_Modifiable: UnicodeString;
  1213.     begin
  1214.       Result := AttributeNodes['modifiable'].Text;
  1215.     end;
  1216.    
  1217.     procedure TXMLRootFolderType.Set_Modifiable(Value: UnicodeString);
  1218.     begin
  1219.       SetAttribute('modifiable', Value);
  1220.     end;
  1221.    
  1222.     function TXMLRootFolderType.Get_Root: UnicodeString;
  1223.     begin
  1224.       Result := AttributeNodes['root'].Text;
  1225.     end;
  1226.    
  1227.     procedure TXMLRootFolderType.Set_Root(Value: UnicodeString);
  1228.     begin
  1229.       SetAttribute('root', Value);
  1230.     end;
  1231.    
  1232.     { TXMLDesktopDisplayType }
  1233.    
  1234.     procedure TXMLDesktopDisplayType.AfterConstruction;
  1235.     begin
  1236.       RegisterChildNode('Enabled', TXMLEnabledType);
  1237.       RegisterChildNode('Icon', TXMLIconType);
  1238.       inherited;
  1239.     end;
  1240.    
  1241.     function TXMLDesktopDisplayType.Get_Enabled: IXMLEnabledType;
  1242.     begin
  1243.       Result := ChildNodes['Enabled'] as IXMLEnabledType;
  1244.     end;
  1245.    
  1246.     function TXMLDesktopDisplayType.Get_Icon: IXMLIconType;
  1247.     begin
  1248.       Result := ChildNodes['Icon'] as IXMLIconType;
  1249.     end;
  1250.    
  1251.     { TXMLIconType }
  1252.    
  1253.     procedure TXMLIconType.AfterConstruction;
  1254.     begin
  1255.       RegisterChildNode('Name', TXMLNameType);
  1256.       RegisterChildNode('Location', TXMLLocationType);
  1257.       inherited;
  1258.     end;
  1259.    
  1260.     function TXMLIconType.Get_Name: IXMLNameType;
  1261.     begin
  1262.       Result := ChildNodes['Name'] as IXMLNameType;
  1263.     end;
  1264.    
  1265.     function TXMLIconType.Get_Location: IXMLLocationType;
  1266.     begin
  1267.       Result := ChildNodes['Location'] as IXMLLocationType;
  1268.     end;
  1269.    
  1270.     { TXMLNameType }
  1271.    
  1272.     function TXMLNameType.Get_Forcedefault: UnicodeString;
  1273.     begin
  1274.       Result := AttributeNodes['forcedefault'].Text;
  1275.     end;
  1276.    
  1277.     procedure TXMLNameType.Set_Forcedefault(Value: UnicodeString);
  1278.     begin
  1279.       SetAttribute('forcedefault', Value);
  1280.     end;
  1281.    
  1282.     function TXMLNameType.Get_Modifiable: UnicodeString;
  1283.     begin
  1284.       Result := AttributeNodes['modifiable'].Text;
  1285.     end;
  1286.    
  1287.     procedure TXMLNameType.Set_Modifiable(Value: UnicodeString);
  1288.     begin
  1289.       SetAttribute('modifiable', Value);
  1290.     end;
  1291.    
  1292.     { TXMLLocationType }
  1293.    
  1294.     function TXMLLocationType.Get_RedirectNow: UnicodeString;
  1295.     begin
  1296.       Result := AttributeNodes['RedirectNow'].Text;
  1297.     end;
  1298.    
  1299.     procedure TXMLLocationType.Set_RedirectNow(Value: UnicodeString);
  1300.     begin
  1301.       SetAttribute('RedirectNow', Value);
  1302.     end;
  1303.    
  1304.     function TXMLLocationType.Get_ReplaceServerLocation: UnicodeString;
  1305.     begin
  1306.       Result := AttributeNodes['replaceServerLocation'].Text;
  1307.     end;
  1308.    
  1309.     procedure TXMLLocationType.Set_ReplaceServerLocation(Value: UnicodeString);
  1310.     begin
  1311.       SetAttribute('replaceServerLocation', Value);
  1312.     end;
  1313.    
  1314.     function TXMLLocationType.Get_Forcedefault: UnicodeString;
  1315.     begin
  1316.       Result := AttributeNodes['forcedefault'].Text;
  1317.     end;
  1318.    
  1319.     procedure TXMLLocationType.Set_Forcedefault(Value: UnicodeString);
  1320.     begin
  1321.       SetAttribute('forcedefault', Value);
  1322.     end;
  1323.    
  1324.     function TXMLLocationType.Get_Modifiable: UnicodeString;
  1325.     begin
  1326.       Result := AttributeNodes['modifiable'].Text;
  1327.     end;
  1328.    
  1329.     procedure TXMLLocationType.Set_Modifiable(Value: UnicodeString);
  1330.     begin
  1331.       SetAttribute('modifiable', Value);
  1332.     end;
  1333.    
  1334.     { TXMLSystemTrayMenuDisplayType }
  1335.    
  1336.     procedure TXMLSystemTrayMenuDisplayType.AfterConstruction;
  1337.     begin
  1338.       RegisterChildNode('Enabled', TXMLEnabledType);
  1339.       inherited;
  1340.     end;
  1341.    
  1342.     function TXMLSystemTrayMenuDisplayType.Get_Enabled: IXMLEnabledType;
  1343.     begin
  1344.       Result := ChildNodes['Enabled'] as IXMLEnabledType;
  1345.     end;
  1346.    
  1347.     { TXMLDesktopIntegrationType }
  1348.    
  1349.     function TXMLDesktopIntegrationType.Get_StartMenu: UnicodeString;
  1350.     begin
  1351.       Result := ChildNodes['StartMenu'].Text;
  1352.     end;
  1353.    
  1354.     procedure TXMLDesktopIntegrationType.Set_StartMenu(Value: UnicodeString);
  1355.     begin
  1356.       ChildNodes['StartMenu'].NodeValue := Value;
  1357.     end;
  1358.    
  1359.     function TXMLDesktopIntegrationType.Get_Desktop: UnicodeString;
  1360.     begin
  1361.       Result := ChildNodes['Desktop'].Text;
  1362.     end;
  1363.    
  1364.     procedure TXMLDesktopIntegrationType.Set_Desktop(Value: UnicodeString);
  1365.     begin
  1366.       ChildNodes['Desktop'].NodeValue := Value;
  1367.     end;
  1368.    
  1369.     { TXMLConfigurationFileType }
  1370.    
  1371.     procedure TXMLConfigurationFileType.AfterConstruction;
  1372.     begin
  1373.       RegisterChildNode('Location', TXMLLocationType);
  1374.       RegisterChildNode('Refresh', TXMLRefreshType);
  1375.       inherited;
  1376.     end;
  1377.    
  1378.     function TXMLConfigurationFileType.Get_Location: IXMLLocationType;
  1379.     begin
  1380.       Result := ChildNodes['Location'] as IXMLLocationType;
  1381.     end;
  1382.    
  1383.     function TXMLConfigurationFileType.Get_Refresh: IXMLRefreshType;
  1384.     begin
  1385.       Result := ChildNodes['Refresh'] as IXMLRefreshType;
  1386.     end;
  1387.    
  1388.     { TXMLRefreshType }
  1389.    
  1390.     procedure TXMLRefreshType.AfterConstruction;
  1391.     begin
  1392.       RegisterChildNode('OnApplicationStart', TXMLOnApplicationStartType);
  1393.       RegisterChildNode('OnResourceRequest', TXMLOnResourceRequestType);
  1394.       RegisterChildNode('Poll', TXMLPollType);
  1395.       inherited;
  1396.     end;
  1397.    
  1398.     function TXMLRefreshType.Get_OnApplicationStart: IXMLOnApplicationStartType;
  1399.     begin
  1400.       Result := ChildNodes['OnApplicationStart'] as IXMLOnApplicationStartType;
  1401.     end;
  1402.    
  1403.     function TXMLRefreshType.Get_OnResourceRequest: IXMLOnResourceRequestType;
  1404.     begin
  1405.       Result := ChildNodes['OnResourceRequest'] as IXMLOnResourceRequestType;
  1406.     end;
  1407.    
  1408.     function TXMLRefreshType.Get_Poll: IXMLPollType;
  1409.     begin
  1410.       Result := ChildNodes['Poll'] as IXMLPollType;
  1411.     end;
  1412.    
  1413.     { TXMLOnApplicationStartType }
  1414.    
  1415.     function TXMLOnApplicationStartType.Get_Forcedefault: UnicodeString;
  1416.     begin
  1417.       Result := AttributeNodes['forcedefault'].Text;
  1418.     end;
  1419.    
  1420.     procedure TXMLOnApplicationStartType.Set_Forcedefault(Value: UnicodeString);
  1421.     begin
  1422.       SetAttribute('forcedefault', Value);
  1423.     end;
  1424.    
  1425.     function TXMLOnApplicationStartType.Get_Modifiable: UnicodeString;
  1426.     begin
  1427.       Result := AttributeNodes['modifiable'].Text;
  1428.     end;
  1429.    
  1430.     procedure TXMLOnApplicationStartType.Set_Modifiable(Value: UnicodeString);
  1431.     begin
  1432.       SetAttribute('modifiable', Value);
  1433.     end;
  1434.    
  1435.     { TXMLOnResourceRequestType }
  1436.    
  1437.     function TXMLOnResourceRequestType.Get_Forcedefault: UnicodeString;
  1438.     begin
  1439.       Result := AttributeNodes['forcedefault'].Text;
  1440.     end;
  1441.    
  1442.     procedure TXMLOnResourceRequestType.Set_Forcedefault(Value: UnicodeString);
  1443.     begin
  1444.       SetAttribute('forcedefault', Value);
  1445.     end;
  1446.    
  1447.     function TXMLOnResourceRequestType.Get_Modifiable: UnicodeString;
  1448.     begin
  1449.       Result := AttributeNodes['modifiable'].Text;
  1450.     end;
  1451.    
  1452.     procedure TXMLOnResourceRequestType.Set_Modifiable(Value: UnicodeString);
  1453.     begin
  1454.       SetAttribute('modifiable', Value);
  1455.     end;
  1456.    
  1457.     { TXMLPollType }
  1458.    
  1459.     procedure TXMLPollType.AfterConstruction;
  1460.     begin
  1461.       RegisterChildNode('Enabled', TXMLEnabledType);
  1462.       inherited;
  1463.     end;
  1464.    
  1465.     function TXMLPollType.Get_Forcedefault: UnicodeString;
  1466.     begin
  1467.       Result := AttributeNodes['forcedefault'].Text;
  1468.     end;
  1469.    
  1470.     procedure TXMLPollType.Set_Forcedefault(Value: UnicodeString);
  1471.     begin
  1472.       SetAttribute('forcedefault', Value);
  1473.     end;
  1474.    
  1475.     function TXMLPollType.Get_Modifiable: UnicodeString;
  1476.     begin
  1477.       Result := AttributeNodes['modifiable'].Text;
  1478.     end;
  1479.    
  1480.     procedure TXMLPollType.Set_Modifiable(Value: UnicodeString);
  1481.     begin
  1482.       SetAttribute('modifiable', Value);
  1483.     end;
  1484.    
  1485.     function TXMLPollType.Get_Enabled: IXMLEnabledType;
  1486.     begin
  1487.       Result := ChildNodes['Enabled'] as IXMLEnabledType;
  1488.     end;
  1489.    
  1490.     function TXMLPollType.Get_Period: UnicodeString;
  1491.     begin
  1492.       Result := ChildNodes['Period'].Text;
  1493.     end;
  1494.    
  1495.     procedure TXMLPollType.Set_Period(Value: UnicodeString);
  1496.     begin
  1497.       ChildNodes['Period'].NodeValue := Value;
  1498.     end;
  1499.    
  1500.     { TXMLRequestType }
  1501.    
  1502.     procedure TXMLRequestType.AfterConstruction;
  1503.     begin
  1504.       RegisterChildNode('Enumeration', TXMLEnumerationType);
  1505.       RegisterChildNode('Resource', TXMLResourceType);
  1506.       inherited;
  1507.     end;
  1508.    
  1509.     function TXMLRequestType.Get_Enumeration: IXMLEnumerationType;
  1510.     begin
  1511.       Result := ChildNodes['Enumeration'] as IXMLEnumerationType;
  1512.     end;
  1513.    
  1514.     function TXMLRequestType.Get_Resource: IXMLResourceType;
  1515.     begin
  1516.       Result := ChildNodes['Resource'] as IXMLResourceType;
  1517.     end;
  1518.    
  1519.     { TXMLEnumerationType }
  1520.    
  1521.     procedure TXMLEnumerationType.AfterConstruction;
  1522.     begin
  1523.       RegisterChildNode('Location', TXMLLocationType);
  1524.       RegisterChildNode('Smartcard_Location', TXMLSmartcard_LocationType);
  1525.       RegisterChildNode('Refresh', TXMLRefreshType);
  1526.       inherited;
  1527.     end;
  1528.    
  1529.     function TXMLEnumerationType.Get_Location: IXMLLocationType;
  1530.     begin
  1531.       Result := ChildNodes['Location'] as IXMLLocationType;
  1532.     end;
  1533.    
  1534.     function TXMLEnumerationType.Get_Smartcard_Location: IXMLSmartcard_LocationType;
  1535.     begin
  1536.       Result := ChildNodes['Smartcard_Location'] as IXMLSmartcard_LocationType;
  1537.     end;
  1538.    
  1539.     function TXMLEnumerationType.Get_Refresh: IXMLRefreshType;
  1540.     begin
  1541.       Result := ChildNodes['Refresh'] as IXMLRefreshType;
  1542.     end;
  1543.    
  1544.     { TXMLSmartcard_LocationType }
  1545.    
  1546.     function TXMLSmartcard_LocationType.Get_ReplaceServerLocation: UnicodeString;
  1547.     begin
  1548.       Result := AttributeNodes['replaceServerLocation'].Text;
  1549.     end;
  1550.    
  1551.     procedure TXMLSmartcard_LocationType.Set_ReplaceServerLocation(Value: UnicodeString);
  1552.     begin
  1553.       SetAttribute('replaceServerLocation', Value);
  1554.     end;
  1555.    
  1556.     { TXMLResourceType }
  1557.    
  1558.     procedure TXMLResourceType.AfterConstruction;
  1559.     begin
  1560.       RegisterChildNode('Location', TXMLLocationType);
  1561.       RegisterChildNode('Smartcard_Location', TXMLSmartcard_LocationType);
  1562.       inherited;
  1563.     end;
  1564.    
  1565.     function TXMLResourceType.Get_Location: IXMLLocationType;
  1566.     begin
  1567.       Result := ChildNodes['Location'] as IXMLLocationType;
  1568.     end;
  1569.    
  1570.     function TXMLResourceType.Get_Smartcard_Location: IXMLSmartcard_LocationType;
  1571.     begin
  1572.       Result := ChildNodes['Smartcard_Location'] as IXMLSmartcard_LocationType;
  1573.     end;
  1574.    
  1575.     { TXMLFailoverType }
  1576.    
  1577.     procedure TXMLFailoverType.AfterConstruction;
  1578.     begin
  1579.       RegisterChildNode('Location', TXMLLocationType);
  1580.       inherited;
  1581.     end;
  1582.    
  1583.     function TXMLFailoverType.Get_Location: IXMLLocationType;
  1584.     begin
  1585.       Result := ChildNodes['Location'] as IXMLLocationType;
  1586.     end;
  1587.    
  1588.     { TXMLLogonType }
  1589.    
  1590.     procedure TXMLLogonType.AfterConstruction;
  1591.     begin
  1592.       RegisterChildNode('NDS_Settings', TXMLNDS_SettingsType);
  1593.       FLogonMethod := CreateCollection(TXMLLogonMethodTypeList, IXMLNode, 'LogonMethod') as IXMLLogonMethodTypeList;
  1594.       inherited;
  1595.     end;
  1596.    
  1597.     function TXMLLogonType.Get_Forcedefault: UnicodeString;
  1598.     begin
  1599.       Result := AttributeNodes['forcedefault'].Text;
  1600.     end;
  1601.    
  1602.     procedure TXMLLogonType.Set_Forcedefault(Value: UnicodeString);
  1603.     begin
  1604.       SetAttribute('forcedefault', Value);
  1605.     end;
  1606.    
  1607.     function TXMLLogonType.Get_Modifiable: UnicodeString;
  1608.     begin
  1609.       Result := AttributeNodes['modifiable'].Text;
  1610.     end;
  1611.    
  1612.     procedure TXMLLogonType.Set_Modifiable(Value: UnicodeString);
  1613.     begin
  1614.       SetAttribute('modifiable', Value);
  1615.     end;
  1616.    
  1617.     function TXMLLogonType.Get_LogonMethod: IXMLLogonMethodTypeList;
  1618.     begin
  1619.       Result := FLogonMethod;
  1620.     end;
  1621.    
  1622.     function TXMLLogonType.Get_EnableSavePassword: UnicodeString;
  1623.     begin
  1624.       Result := ChildNodes['EnableSavePassword'].Text;
  1625.     end;
  1626.    
  1627.     procedure TXMLLogonType.Set_EnableSavePassword(Value: UnicodeString);
  1628.     begin
  1629.       ChildNodes['EnableSavePassword'].NodeValue := Value;
  1630.     end;
  1631.    
  1632.     function TXMLLogonType.Get_SupportNDS: UnicodeString;
  1633.     begin
  1634.       Result := ChildNodes['SupportNDS'].Text;
  1635.     end;
  1636.    
  1637.     procedure TXMLLogonType.Set_SupportNDS(Value: UnicodeString);
  1638.     begin
  1639.       ChildNodes['SupportNDS'].NodeValue := Value;
  1640.     end;
  1641.    
  1642.     function TXMLLogonType.Get_NDS_Settings: IXMLNDS_SettingsType;
  1643.     begin
  1644.       Result := ChildNodes['NDS_Settings'] as IXMLNDS_SettingsType;
  1645.     end;
  1646.    
  1647.     function TXMLLogonType.Get_CaptureSmartCardPin: UnicodeString;
  1648.     begin
  1649.       Result := ChildNodes['CaptureSmartCardPin'].Text;
  1650.     end;
  1651.    
  1652.     procedure TXMLLogonType.Set_CaptureSmartCardPin(Value: UnicodeString);
  1653.     begin
  1654.       ChildNodes['CaptureSmartCardPin'].NodeValue := Value;
  1655.     end;
  1656.    
  1657.     { TXMLNDS_SettingsType }
  1658.    
  1659.     function TXMLNDS_SettingsType.Get_DefaultTree: UnicodeString;
  1660.     begin
  1661.       Result := ChildNodes['DefaultTree'].Text;
  1662.     end;
  1663.    
  1664.     procedure TXMLNDS_SettingsType.Set_DefaultTree(Value: UnicodeString);
  1665.     begin
  1666.       ChildNodes['DefaultTree'].NodeValue := Value;
  1667.     end;
  1668.    
  1669.     { TXMLUserInterfaceType }
  1670.    
  1671.     function TXMLUserInterfaceType.Get_Application_mode: UnicodeString;
  1672.     begin
  1673.       Result := AttributeNodes['application_mode'].Text;
  1674.     end;
  1675.    
  1676.     procedure TXMLUserInterfaceType.Set_Application_mode(Value: UnicodeString);
  1677.     begin
  1678.       SetAttribute('application_mode', Value);
  1679.     end;
  1680.    
  1681.     function TXMLUserInterfaceType.Get_ServerSettings: UnicodeString;
  1682.     begin
  1683.       Result := ChildNodes['ServerSettings'].Text;
  1684.     end;
  1685.    
  1686.     procedure TXMLUserInterfaceType.Set_ServerSettings(Value: UnicodeString);
  1687.     begin
  1688.       ChildNodes['ServerSettings'].NodeValue := Value;
  1689.     end;
  1690.    
  1691.     function TXMLUserInterfaceType.Get_FolderDisplaySettings: UnicodeString;
  1692.     begin
  1693.       Result := ChildNodes['FolderDisplaySettings'].Text;
  1694.     end;
  1695.    
  1696.     procedure TXMLUserInterfaceType.Set_FolderDisplaySettings(Value: UnicodeString);
  1697.     begin
  1698.       ChildNodes['FolderDisplaySettings'].NodeValue := Value;
  1699.     end;
  1700.    
  1701.     function TXMLUserInterfaceType.Get_RefreshSettings: UnicodeString;
  1702.     begin
  1703.       Result := ChildNodes['RefreshSettings'].Text;
  1704.     end;
  1705.    
  1706.     procedure TXMLUserInterfaceType.Set_RefreshSettings(Value: UnicodeString);
  1707.     begin
  1708.       ChildNodes['RefreshSettings'].NodeValue := Value;
  1709.     end;
  1710.    
  1711.     { TXMLFileCleanupType }
  1712.    
  1713.     procedure TXMLFileCleanupType.AfterConstruction;
  1714.     begin
  1715.       RegisterChildNode('RefreshApp', TXMLRefreshAppType);
  1716.       inherited;
  1717.     end;
  1718.    
  1719.     function TXMLFileCleanupType.Get_Logoff: UnicodeString;
  1720.     begin
  1721.       Result := ChildNodes['Logoff'].Text;
  1722.     end;
  1723.    
  1724.     procedure TXMLFileCleanupType.Set_Logoff(Value: UnicodeString);
  1725.     begin
  1726.       ChildNodes['Logoff'].NodeValue := Value;
  1727.     end;
  1728.    
  1729.     function TXMLFileCleanupType.Get_Exit: UnicodeString;
  1730.     begin
  1731.       Result := ChildNodes['Exit'].Text;
  1732.     end;
  1733.    
  1734.     procedure TXMLFileCleanupType.Set_Exit(Value: UnicodeString);
  1735.     begin
  1736.       ChildNodes['Exit'].NodeValue := Value;
  1737.     end;
  1738.    
  1739.     function TXMLFileCleanupType.Get_RefreshApp: IXMLRefreshAppType;
  1740.     begin
  1741.       Result := ChildNodes['RefreshApp'] as IXMLRefreshAppType;
  1742.     end;
  1743.    
  1744.     { TXMLRefreshAppType }
  1745.    
  1746.     function TXMLRefreshAppType.Get_DirectoryDepth: UnicodeString;
  1747.     begin
  1748.       Result := AttributeNodes['directoryDepth'].Text;
  1749.     end;
  1750.    
  1751.     procedure TXMLRefreshAppType.Set_DirectoryDepth(Value: UnicodeString);
  1752.     begin
  1753.       SetAttribute('directoryDepth', Value);
  1754.     end;
  1755.    
  1756.     { TXMLICA_OptionsType }
  1757.    
  1758.     procedure TXMLICA_OptionsType.AfterConstruction;
  1759.     begin
  1760.       RegisterChildNode('DisplaySize', TXMLDisplaySizeType);
  1761.       RegisterChildNode('ColorDepth', TXMLColorDepthType);
  1762.       RegisterChildNode('Audio', TXMLAudioType);
  1763.       RegisterChildNode('TransparentKeyPassthrough', TXMLTransparentKeyPassthroughType);
  1764.       inherited;
  1765.     end;
  1766.    
  1767.     function TXMLICA_OptionsType.Get_Application_mode: UnicodeString;
  1768.     begin
  1769.       Result := AttributeNodes['application_mode'].Text;
  1770.     end;
  1771.    
  1772.     procedure TXMLICA_OptionsType.Set_Application_mode(Value: UnicodeString);
  1773.     begin
  1774.       SetAttribute('application_mode', Value);
  1775.     end;
  1776.    
  1777.     function TXMLICA_OptionsType.Get_DisplaySize: IXMLDisplaySizeType;
  1778.     begin
  1779.       Result := ChildNodes['DisplaySize'] as IXMLDisplaySizeType;
  1780.     end;
  1781.    
  1782.     function TXMLICA_OptionsType.Get_ColorDepth: IXMLColorDepthType;
  1783.     begin
  1784.       Result := ChildNodes['ColorDepth'] as IXMLColorDepthType;
  1785.     end;
  1786.    
  1787.     function TXMLICA_OptionsType.Get_Audio: IXMLAudioType;
  1788.     begin
  1789.       Result := ChildNodes['Audio'] as IXMLAudioType;
  1790.     end;
  1791.    
  1792.     function TXMLICA_OptionsType.Get_ICA_TemplateFile: UnicodeString;
  1793.     begin
  1794.       Result := ChildNodes['ICA_TemplateFile'].Text;
  1795.     end;
  1796.    
  1797.     procedure TXMLICA_OptionsType.Set_ICA_TemplateFile(Value: UnicodeString);
  1798.     begin
  1799.       ChildNodes['ICA_TemplateFile'].NodeValue := Value;
  1800.     end;
  1801.    
  1802.     function TXMLICA_OptionsType.Get_TransparentKeyPassthrough: IXMLTransparentKeyPassthroughType;
  1803.     begin
  1804.       Result := ChildNodes['TransparentKeyPassthrough'] as IXMLTransparentKeyPassthroughType;
  1805.     end;
  1806.    
  1807.     { TXMLDisplaySizeType }
  1808.    
  1809.     procedure TXMLDisplaySizeType.AfterConstruction;
  1810.     begin
  1811.       RegisterChildNode('Value', TXMLValueType);
  1812.       RegisterChildNode('Options', TXMLOptionsType);
  1813.       inherited;
  1814.     end;
  1815.    
  1816.     function TXMLDisplaySizeType.Get_Value: IXMLValueType;
  1817.     begin
  1818.       Result := ChildNodes['Value'] as IXMLValueType;
  1819.     end;
  1820.    
  1821.     function TXMLDisplaySizeType.Get_Options: IXMLOptionsType;
  1822.     begin
  1823.       Result := ChildNodes['Options'] as IXMLOptionsType;
  1824.     end;
  1825.    
  1826.     { TXMLValueType }
  1827.    
  1828.     { TXMLOptionsType }
  1829.    
  1830.     { TXMLOptionsTypeList }
  1831.    
  1832.     function TXMLOptionsTypeList.Add: IXMLOptionsType;
  1833.     begin
  1834.       Result := AddItem(-1) as IXMLOptionsType;
  1835.     end;
  1836.    
  1837.     function TXMLOptionsTypeList.Insert(const Index: Integer): IXMLOptionsType;
  1838.     begin
  1839.       Result := AddItem(Index) as IXMLOptionsType;
  1840.     end;
  1841.    
  1842.     function TXMLOptionsTypeList.Get_Item(Index: Integer): IXMLOptionsType;
  1843.     begin
  1844.       Result := List[Index] as IXMLOptionsType;
  1845.     end;
  1846.    
  1847.     { TXMLColorDepthType }
  1848.    
  1849.     procedure TXMLColorDepthType.AfterConstruction;
  1850.     begin
  1851.       RegisterChildNode('Value', TXMLValueType);
  1852.       RegisterChildNode('Options', TXMLOptionsType);
  1853.       FOptions := CreateCollection(TXMLOptionsTypeList, IXMLOptionsType, 'Options') as IXMLOptionsTypeList;
  1854.       inherited;
  1855.     end;
  1856.    
  1857.     function TXMLColorDepthType.Get_Value: IXMLValueType;
  1858.     begin
  1859.       Result := ChildNodes['Value'] as IXMLValueType;
  1860.     end;
  1861.    
  1862.     function TXMLColorDepthType.Get_Options: IXMLOptionsTypeList;
  1863.     begin
  1864.       Result := FOptions;
  1865.     end;
  1866.    
  1867.     { TXMLAudioType }
  1868.    
  1869.     procedure TXMLAudioType.AfterConstruction;
  1870.     begin
  1871.       RegisterChildNode('Value', TXMLValueType);
  1872.       RegisterChildNode('Options', TXMLOptionsType);
  1873.       FOptions := CreateCollection(TXMLOptionsTypeList, IXMLOptionsType, 'Options') as IXMLOptionsTypeList;
  1874.       inherited;
  1875.     end;
  1876.    
  1877.     function TXMLAudioType.Get_Value: IXMLValueType;
  1878.     begin
  1879.       Result := ChildNodes['Value'] as IXMLValueType;
  1880.     end;
  1881.    
  1882.     function TXMLAudioType.Get_Options: IXMLOptionsTypeList;
  1883.     begin
  1884.       Result := FOptions;
  1885.     end;
  1886.    
  1887.     { TXMLTransparentKeyPassthroughType }
  1888.    
  1889.     procedure TXMLTransparentKeyPassthroughType.AfterConstruction;
  1890.     begin
  1891.       RegisterChildNode('Value', TXMLValueType);
  1892.       RegisterChildNode('Options', TXMLOptionsType);
  1893.       FOptions := CreateCollection(TXMLOptionsTypeList, IXMLOptionsType, 'Options') as IXMLOptionsTypeList;
  1894.       inherited;
  1895.     end;
  1896.    
  1897.     function TXMLTransparentKeyPassthroughType.Get_Value: IXMLValueType;
  1898.     begin
  1899.       Result := ChildNodes['Value'] as IXMLValueType;
  1900.     end;
  1901.    
  1902.     function TXMLTransparentKeyPassthroughType.Get_Options: IXMLOptionsTypeList;
  1903.     begin
  1904.       Result := FOptions;
  1905.     end;
  1906.    
  1907.     { TXMLDimensionType }
  1908.    
  1909.     function TXMLDimensionType.Get_Width: UnicodeString;
  1910.     begin
  1911.       Result := ChildNodes['Width'].Text;
  1912.     end;
  1913.    
  1914.     procedure TXMLDimensionType.Set_Width(Value: UnicodeString);
  1915.     begin
  1916.       ChildNodes['Width'].NodeValue := Value;
  1917.     end;
  1918.    
  1919.     function TXMLDimensionType.Get_Height: UnicodeString;
  1920.     begin
  1921.       Result := ChildNodes['Height'].Text;
  1922.     end;
  1923.    
  1924.     procedure TXMLDimensionType.Set_Height(Value: UnicodeString);
  1925.     begin
  1926.       ChildNodes['Height'].NodeValue := Value;
  1927.     end;
  1928.    
  1929.     { TXMLLogonMethodTypeList }
  1930.    
  1931.     function TXMLLogonMethodTypeList.Add(const Value: UnicodeString): IXMLNode;
  1932.     begin
  1933.       Result := AddItem(-1);
  1934.       Result.NodeValue := Value;
  1935.     end;
  1936.    
  1937.     function TXMLLogonMethodTypeList.Insert(const Index: Integer; const Value: UnicodeString): IXMLNode;
  1938.     begin
  1939.       Result := AddItem(Index);
  1940.       Result.NodeValue := Value;
  1941.     end;
  1942.    
  1943.     function TXMLLogonMethodTypeList.Get_Item(Index: Integer): UnicodeString;
  1944.     begin
  1945.       Result := List[Index].NodeValue;
  1946.     end;
  1947.    
  1948.     end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!