nmhtml.pas

Fastnet delphi中的网络通讯组件

    property ViewSource: WordBool index 12 read GetWordBoolProp write SetWordBoolProp stored False;
    property RetainSource: WordBool index 13 read GetWordBoolProp write SetWordBoolProp stored False;
    property ElemNotification: WordBool index 15 read GetWordBoolProp write SetWordBoolProp stored False;
    property Timeout: Integer index 507 read GetIntegerProp write SetIntegerProp stored False;
    property Redraw: WordBool index 17 read GetWordBoolProp write SetWordBoolProp stored False;
    property UnderlineLinks: WordBool index 18 read GetWordBoolProp write SetWordBoolProp stored False;
    property UseDocColors: WordBool index 19 read GetWordBoolProp write SetWordBoolProp stored False;
    property BackImage: WideString index 20 read GetWideStringProp write SetWideStringProp stored False;
    property BackColor: TColor index -501 read GetTColorProp write SetTColorProp stored False;
    property ForeColor: TColor index -513 read GetTColorProp write SetTColorProp stored False;
    property LinkColor: TColor index 21 read GetTColorProp write SetTColorProp stored False;
    property VisitedColor: TColor index 22 read GetTColorProp write SetTColorProp stored False;
    property Font: TFont index -512 read GetTFontProp write SetTFontProp stored False;
    property FixedFont: TFont index 27 read GetTFontProp write SetTFontProp stored False;
    property Heading1Font: TFont index 28 read GetTFontProp write SetTFontProp stored False;
    property Heading2Font: TFont index 29 read GetTFontProp write SetTFontProp stored False;
    property Heading3Font: TFont index 30 read GetTFontProp write SetTFontProp stored False;
    property Heading4Font: TFont index 31 read GetTFontProp write SetTFontProp stored False;
    property Heading5Font: TFont index 32 read GetTFontProp write SetTFontProp stored False;
    property Heading6Font: TFont index 33 read GetTFontProp write SetTFontProp stored False;
    property OnError: THTMLError read FOnError write FOnError;
    property OnDocInput: THTMLDocInput read FOnDocInput write FOnDocInput;
    property OnDocOutput: THTMLDocOutput read FOnDocOutput write FOnDocOutput;
    property OnParseComplete: TNotifyEvent read FOnParseComplete write FOnParseComplete;
    property OnLayoutComplete: TNotifyEvent read FOnLayoutComplete write FOnLayoutComplete;
    property OnTimeout: TNotifyEvent read FOnTimeout write FOnTimeout;
    property OnBeginRetrieval: TNotifyEvent read FOnBeginRetrieval write FOnBeginRetrieval;
    property OnUpdateRetrieval: TNotifyEvent read FOnUpdateRetrieval write FOnUpdateRetrieval;
    property OnEndRetrieval: TNotifyEvent read FOnEndRetrieval write FOnEndRetrieval;
    property OnDoRequestDoc: THTMLDoRequestDoc read FOnDoRequestDoc write FOnDoRequestDoc;
    property OnDoRequestEmbedded: THTMLDoRequestEmbedded read FOnDoRequestEmbedded write FOnDoRequestEmbedded;
    property OnDoRequestSubmit: THTMLDoRequestSubmit read FOnDoRequestSubmit write FOnDoRequestSubmit;
    property OnDoNewElement: THTMLDoNewElement read FOnDoNewElement write FOnDoNewElement;
  end;

procedure Register;

implementation

uses ComObj;

class function CoDocHeaderCls.Create: DocHeader;
begin
  Result := CreateComObject(Class_DocHeaderCls) as DocHeader;
end;

class function CoDocHeaderCls.CreateRemote(const MachineName: string): DocHeader;
begin
  Result := CreateRemoteComObject(MachineName, Class_DocHeaderCls) as DocHeader;
end;

class function CoDocHeadersCls.Create: DocHeaders;
begin
  Result := CreateComObject(Class_DocHeadersCls) as DocHeaders;
end;

class function CoDocHeadersCls.CreateRemote(const MachineName: string): DocHeaders;
begin
  Result := CreateRemoteComObject(MachineName, Class_DocHeadersCls) as DocHeaders;
end;

class function CoDocInputCls.Create: DocInput;
begin
  Result := CreateComObject(Class_DocInputCls) as DocInput;
end;

class function CoDocInputCls.CreateRemote(const MachineName: string): DocInput;
begin
  Result := CreateRemoteComObject(MachineName, Class_DocInputCls) as DocInput;
end;

class function CoDocOutputCls.Create: DocOutput;
begin
  Result := CreateComObject(Class_DocOutputCls) as DocOutput;
end;

class function CoDocOutputCls.CreateRemote(const MachineName: string): DocOutput;
begin
  Result := CreateRemoteComObject(MachineName, Class_DocOutputCls) as DocOutput;
end;

class function CoicErrorCls.Create: icError;
begin
  Result := CreateComObject(Class_icErrorCls) as icError;
end;

class function CoicErrorCls.CreateRemote(const MachineName: string): icError;
begin
  Result := CreateRemoteComObject(MachineName, Class_icErrorCls) as icError;
end;

class function CoicErrorsCls.Create: icErrors;
begin
  Result := CreateComObject(Class_icErrorsCls) as icErrors;
end;

class function CoicErrorsCls.CreateRemote(const MachineName: string): icErrors;
begin
  Result := CreateRemoteComObject(MachineName, Class_icErrorsCls) as icErrors;
end;


class function CoHTMLElementCls.Create: HTMLElement;
begin
  Result := CreateComObject(Class_HTMLElementCls) as HTMLElement;
end;

class function CoHTMLElementCls.CreateRemote(const MachineName: string): HTMLElement;
begin
  Result := CreateRemoteComObject(MachineName, Class_HTMLElementCls) as HTMLElement;
end;

class function CoHTMLFormCls.Create: HTMLForm;
begin
  Result := CreateComObject(Class_HTMLFormCls) as HTMLForm;
end;

class function CoHTMLFormCls.CreateRemote(const MachineName: string): HTMLForm;
begin
  Result := CreateRemoteComObject(MachineName, Class_HTMLFormCls) as HTMLForm;
end;

class function CoHTMLFormsCls.Create: HTMLForms;
begin
  Result := CreateComObject(Class_HTMLFormsCls) as HTMLForms;
end;

class function CoHTMLFormsCls.CreateRemote(const MachineName: string): HTMLForms;
begin
  Result := CreateRemoteComObject(MachineName, Class_HTMLFormsCls) as HTMLForms;
end;

class function CoHTMLAttrCls.Create: HTMLAttr;
begin
  Result := CreateComObject(Class_HTMLAttrCls) as HTMLAttr;
end;

class function CoHTMLAttrCls.CreateRemote(const MachineName: string): HTMLAttr;
begin
  Result := CreateRemoteComObject(MachineName, Class_HTMLAttrCls) as HTMLAttr;
end;

class function CoHTMLAttrsCls.Create: HTMLAttrs;
begin
  Result := CreateComObject(Class_HTMLAttrsCls) as HTMLAttrs;
end;

class function CoHTMLAttrsCls.CreateRemote(const MachineName: string): HTMLAttrs;
begin
  Result := CreateRemoteComObject(MachineName, Class_HTMLAttrsCls) as HTMLAttrs;
end;

procedure THTML.InitControlData;
const
  CEventDispIDs: array[0..12] of DWORD = (
    $FFFFFDA0, $000003F8, $000003F9, $00000001, $00000002, $00000227,
    $00000004, $00000005, $00000006, $00000007, $00000008, $00000009,
    $0000000A);
  CLicenseKey: array[0..36] of Word = (
    $0036, $0036, $0061, $0062, $0037, $0030, $0064, $0030, $002D, $0035,
    $0035, $0064, $0033, $002D, $0031, $0031, $0063, $0066, $002D, $0038,
    $0030, $0034, $0063, $002D, $0030, $0030, $0061, $0030, $0032, $0034,
    $0032, $0034, $0065, $0039, $0032, $0037, $0000);
  CTFontIDs: array [0..7] of DWORD = (
    $FFFFFE00, $0000001B, $0000001C, $0000001D, $0000001E, $0000001F,
    $00000020, $00000021);
  CControlData: TControlData = (
    ClassID: '{B7FC355E-8CE7-11CF-9754-00AA00C00908}';
    EventIID: '{B7FC355D-8CE7-11CF-9754-00AA00C00908}';
    EventCount: 13;
    EventDispIDs: @CEventDispIDs;
    LicenseKey: @CLicenseKey;
    Flags: $00000007;
    Version: 300;
    FontCount: 8;
    FontIDs: @CTFontIDs);
begin
  ControlData := @CControlData;
end;

procedure THTML.InitControlInterface(const Obj: IUnknown);
begin
  FIntf := Obj as IHTML;
end;

procedure THTML.AboutBox;
begin
  ControlInterface.AboutBox;
end;

procedure THTML.RequestDoc(const URL: WideString);
begin
  ControlInterface.RequestDoc(URL);
end;

procedure THTML.RequestAllEmbedded;
begin
  ControlInterface.RequestAllEmbedded;
end;

procedure THTML.Cancel(Message: OleVariant);
begin
  ControlInterface.Cancel(Message);
end;

procedure THTML.BeginPrinting(hDC: Integer; x, y, Width, Height, DefaultHeaders, DefaultTitle: OleVariant);
begin
  ControlInterface.BeginPrinting(hDC, x, y, Width, Height, DefaultHeaders, DefaultTitle);
end;

procedure THTML.PrintPage(hDC, PageNumber: Integer);
begin
  ControlInterface.PrintPage(hDC, PageNumber);
end;

procedure THTML.EndPrinting;
begin
  ControlInterface.EndPrinting;
end;

procedure THTML.AutoPrint(hDC: Integer);
begin
  ControlInterface.AutoPrint(hDC);
end;

function THTML.GetPlainText(selected, fancy: WordBool): WideString;
begin
  Result := ControlInterface.GetPlainText(selected, fancy);
end;

function THTML.HasSelection: WordBool;
begin
  Result := ControlInterface.HasSelection;
end;

procedure THTML.SelectAll;
begin
  ControlInterface.SelectAll;
end;

function THTML.Get_DocInput: DocInput;
begin
  Result := ControlInterface.DocInput;
end;

function THTML.Get_DocOutput: DocOutput;
begin
  Result := ControlInterface.DocOutput;
end;

function THTML.Get_Forms: HTMLForms;
begin
  Result := ControlInterface.Forms;
end;

function THTML.Get_IsPrintingDone(PageNumber: Integer): WordBool;
begin
  Result := ControlInterface.IsPrintingDone[PageNumber];
end;

function THTML.Get_Errors: icErrors;
begin
  Result := ControlInterface.Errors;
end;

function THTML.Get_hWnd: OLE_HANDLE;
begin
  Result := ControlInterface.hWnd;
end;

procedure Register;
begin
  //RegisterComponents(Cons_Palette_Inet, [THTML]);
end;


end.