nmhtml.pas

Fastnet delphi中的网络通讯组件

    procedure SetData(Data: OleVariant); dispid 8;
    procedure Suspend(Suspend: WordBool); dispid 10;
    property CPPObject: SYSINT dispid 14;
    property AppendToFile: WordBool dispid 15;
    property Tag: OleVariant dispid 16;
    property Errors: icErrors readonly dispid 17;
    property URL: WideString readonly dispid 1;
  end;

{ Internet error object properties and methods }

  icError = interface(IDispatch)
    ['{B7FC35A0-8CE7-11CF-9754-00AA00C00908}']
    function Get_Type_: WideString; safecall;
    function Get_Code: Integer; safecall;
    function Get_Description: WideString; safecall;
    procedure SetThisObject(var ThisObject: SYSINT); safecall;
    procedure InitProperties(var ErrorType, ErrorDesc: WideString; var ErrorCode: Integer); safecall;
    property Type_: WideString read Get_Type_;
    property Code: Integer read Get_Code;
    property Description: WideString read Get_Description;
  end;

{ DispInterface declaration for Dual Interface icError }

  icErrorDisp = dispinterface
    ['{B7FC35A0-8CE7-11CF-9754-00AA00C00908}']
    property Type_: WideString readonly dispid 0;
    property Code: Integer readonly dispid 151;
    property Description: WideString readonly dispid 152;
    procedure SetThisObject(var ThisObject: SYSINT); dispid 154;
    procedure InitProperties(var ErrorType, ErrorDesc: WideString; var ErrorCode: Integer); dispid 155;
  end;

{ Internet errors collection properties and methods }

  icErrors = interface(IDispatch)
    ['{B7FC35A2-8CE7-11CF-9754-00AA00C00908}']
    function Get_Count: Integer; safecall;
    function Get_Source: OleVariant; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Item(Index: OleVariant): icError; safecall;
    procedure Clear; safecall;
    procedure SetItem(var ErrCode: Integer; var ErrType, ErrDesc: WideString); safecall;
    procedure SetThisObject(var ThisObject: SYSINT); safecall;
    procedure SetCollection(var initString: WideString); safecall;
    property Count: Integer read Get_Count;
    property Source: OleVariant read Get_Source;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

{ DispInterface declaration for Dual Interface icErrors }

  icErrorsDisp = dispinterface
    ['{B7FC35A2-8CE7-11CF-9754-00AA00C00908}']
    property Count: Integer readonly dispid 100;
    property Source: OleVariant readonly dispid 102;
    property _NewEnum: IUnknown readonly dispid -4;
    function Item(Index: OleVariant): icError; dispid 0;
    procedure Clear; dispid 103;
    procedure SetItem(var ErrCode: Integer; var ErrType, ErrDesc: WideString); dispid 153;
    procedure SetThisObject(var ThisObject: SYSINT); dispid 104;
    procedure SetCollection(var initString: WideString); dispid 105;
  end;

{ Internet DocHeader object }

  CoDocHeaderCls = class
    class function Create: DocHeader;
    class function CreateRemote(const MachineName: string): DocHeader;
  end;

{ Internet DocHeaders object }

  CoDocHeadersCls = class
    class function Create: DocHeaders;
    class function CreateRemote(const MachineName: string): DocHeaders;
  end;

{ Internet DocInput object }

  CoDocInputCls = class
    class function Create: DocInput;
    class function CreateRemote(const MachineName: string): DocInput;
  end;

{ Internet DocOutput object }

  CoDocOutputCls = class
    class function Create: DocOutput;
    class function CreateRemote(const MachineName: string): DocOutput;
  end;

{ Internet error object }

  CoicErrorCls = class
    class function Create: icError;
    class function CreateRemote(const MachineName: string): icError;
  end;

{ Internet errors collection }

  CoicErrorsCls = class
    class function Create: icErrors;
    class function CreateRemote(const MachineName: string): icErrors;
  end;

{ HTML Element properties and methods }

  HTMLElement = interface(IDispatch)
    ['{B7FC354E-8CE7-11CF-9754-00AA00C00908}']
  end;

{ DispInterface declaration for Dual Interface HTMLElement }

  HTMLElementDisp = dispinterface
    ['{B7FC354E-8CE7-11CF-9754-00AA00C00908}']
  end;

{ HTML Form properties and methods }

  HTMLForm = interface(IDispatch)
    ['{B7FC3551-8CE7-11CF-9754-00AA00C00908}']
    function Get_Method: WideString; safecall;
    function Get_URL: WideString; safecall;
    function Get_URLEncodedBody: WideString; safecall;
    procedure RequestSubmit; safecall;
    function Get_CPPObject: SYSINT; safecall;
    procedure Set_CPPObject(Value: SYSINT); safecall;
    property Method: WideString read Get_Method;
    property URL: WideString read Get_URL;
    property URLEncodedBody: WideString read Get_URLEncodedBody;
    property CPPObject: SYSINT read Get_CPPObject write Set_CPPObject;
  end;

{ DispInterface declaration for Dual Interface HTMLForm }

  HTMLFormDisp = dispinterface
    ['{B7FC3551-8CE7-11CF-9754-00AA00C00908}']
    property Method: WideString readonly dispid 1;
    property URL: WideString readonly dispid 2;
    property URLEncodedBody: WideString readonly dispid 3;
    procedure RequestSubmit; dispid 4;
    property CPPObject: SYSINT dispid 100;
  end;

{ HTML Forms collection properties and methods }

  HTMLForms = interface(IDispatch)
    ['{B7FC3555-8CE7-11CF-9754-00AA00C00908}']
    function Get_Count: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Item(Index: OleVariant): HTMLForm; safecall;
    function Get_CPPObject: SYSINT; safecall;
    procedure Set_CPPObject(Value: SYSINT); safecall;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
    property CPPObject: SYSINT read Get_CPPObject write Set_CPPObject;
  end;

{ DispInterface declaration for Dual Interface HTMLForms }

  HTMLFormsDisp = dispinterface
    ['{B7FC3555-8CE7-11CF-9754-00AA00C00908}']
    property Count: Integer readonly dispid 1;
    property _NewEnum: IUnknown readonly dispid -4;
    function Item(Index: OleVariant): HTMLForm; dispid 2;
    property CPPObject: SYSINT dispid 100;
  end;

{ HTML Attribute properties and methods }

  HTMLAttr = interface(IDispatch)
    ['{B7FC3558-8CE7-11CF-9754-00AA00C00908}']
    function Get_Name: WideString; safecall;
    function Get_Value: WideString; safecall;
    function Get_CPPObject: SYSINT; safecall;
    procedure Set_CPPObject(Value: SYSINT); safecall;
    property Name: WideString read Get_Name;
    property Value: WideString read Get_Value;
    property CPPObject: SYSINT read Get_CPPObject write Set_CPPObject;
  end;

{ DispInterface declaration for Dual Interface HTMLAttr }

  HTMLAttrDisp = dispinterface
    ['{B7FC3558-8CE7-11CF-9754-00AA00C00908}']
    property Name: WideString readonly dispid 1;
    property Value: WideString readonly dispid 2;
    property CPPObject: SYSINT dispid 100;
  end;

{ HTML Attributes collection properties and methods }

  HTMLAttrs = interface(IDispatch)
    ['{B7FC355A-8CE7-11CF-9754-00AA00C00908}']
    function Get_Count: Integer; safecall;
    function Get__NewEnum: IUnknown; safecall;
    function Item(Index: OleVariant): HTMLAttr; safecall;
    function Get_CPPObject: SYSINT; safecall;
    procedure Set_CPPObject(Value: SYSINT); safecall;
    procedure Set_InternalCount(Value: Integer); safecall;
    property Count: Integer read Get_Count;
    property _NewEnum: IUnknown read Get__NewEnum;
    property CPPObject: SYSINT read Get_CPPObject write Set_CPPObject;
    property InternalCount: Integer write Set_InternalCount;
  end;

{ DispInterface declaration for Dual Interface HTMLAttrs }

  HTMLAttrsDisp = dispinterface
    ['{B7FC355A-8CE7-11CF-9754-00AA00C00908}']
    property Count: Integer readonly dispid 1;
    property _NewEnum: IUnknown readonly dispid -4;
    function Item(Index: OleVariant): HTMLAttr; dispid 2;
    property CPPObject: SYSINT dispid 100;
    property InternalCount: Integer writeonly dispid 3;
  end;

{ Properties/Methods for NetManage HTML Control }

  IHTML = interface(INMOleControl)
    ['{B7FC355C-8CE7-11CF-9754-00AA00C00908}']
    function Get_DocInput: DocInput; safecall;
    function Get_DocOutput: DocOutput; safecall;
    function Get_URL: WideString; safecall;
    function Get_RequestURL: WideString; safecall;
    function Get_BaseURL: WideString; safecall;
    function Get_Forms: HTMLForms; safecall;
    function Get_TotalWidth: Integer; safecall;
    function Get_TotalHeight: Integer; safecall;
    function Get_RetrieveBytesTotal: Integer; safecall;
    function Get_RetrieveBytesDone: Integer; safecall;
    function Get_ParseDone: WordBool; safecall;
    function Get_LayoutDone: WordBool; safecall;
    function Get_DeferRetrieval: WordBool; safecall;
    procedure Set_DeferRetrieval(Value: WordBool); safecall;
    function Get_ViewSource: WordBool; safecall;
    procedure Set_ViewSource(Value: WordBool); safecall;
    function Get_RetainSource: WordBool; safecall;
    procedure Set_RetainSource(Value: WordBool); safecall;
    function Get_SourceText: WideString; safecall;
    function Get_ElemNotification: WordBool; safecall;
    procedure Set_ElemNotification(Value: WordBool); safecall;
    function Get_Timeout: Integer; safecall;
    procedure Set_Timeout(Value: Integer); safecall;
    function Get_Redraw: WordBool; safecall;
    procedure Set_Redraw(Value: WordBool); safecall;
    function Get_UnderlineLinks: WordBool; safecall;
    procedure Set_UnderlineLinks(Value: WordBool); safecall;
    function Get_UseDocColors: WordBool; safecall;
    procedure Set_UseDocColors(Value: WordBool); safecall;
    function Get_BackImage: WideString; safecall;
    procedure Set_BackImage(const Value: WideString); safecall;
    function Get_BackColor: TColor; safecall;
    procedure Set_BackColor(Value: TColor); safecall;
    function Get_ForeColor: TColor; safecall;
    procedure Set_ForeColor(Value: TColor); safecall;
    function Get_LinkColor: TColor; safecall;
    procedure Set_LinkColor(Value: TColor); safecall;
    function Get_VisitedColor: TColor; safecall;
    procedure Set_VisitedColor(Value: TColor); safecall;
    function Get_DocBackColor: TColor; safecall;
    function Get_DocForeColor: TColor; safecall;
    function Get_DocLinkColor: TColor; safecall;
    function Get_DocVisitedColor: TColor; safecall;
    function Get_Font: IFontDisp; safecall;
    procedure Set_Font(const Value: IFontDisp); safecall;
    function Get_FixedFont: IFontDisp; safecall;
    procedure Set_FixedFont(const Value: IFontDisp); safecall;
    function Get_Heading1Font: IFontDisp; safecall;
    procedure Set_Heading1Font(const Value: IFontDisp); safecall;
    function Get_Heading2Font: IFontDisp; safecall;
    procedure Set_Heading2Font(const Value: IFontDisp); safecall;
    function Get_Heading3Font: IFontDisp; safecall;
    procedure Set_Heading3Font(const Value: IFontDisp); safecall;
    function Get_Heading4Font: IFontDisp; safecall;
    procedure Set_Heading4Font(const Value: IFontDisp); safecall;