simpleword_tlb.pas

Delphi高级开发指南是开发程序的好帮手

unit simpleword_TLB;

{ This file contains pascal declarations imported from a type library.
  This file will be written during each import or refresh of the type
  library editor.  Changes to this file will be discarded during the
  refresh process. }

{ simpleword Library }
{ Version 1.0 }

interface

uses Windows, ActiveX, Classes, Graphics, OleCtrls, StdVCL;

const
  LIBID_simpleword: TGUID = '{547BD0E0-F796-11D0-8595-0000C0CB040C}';

const

{ Component class GUIDs }
  Class_SimpleWordObject: TGUID = '{547BD0E2-F796-11D0-8595-0000C0CB040C}';

type

{ Forward declarations: Interfaces }
  ISimpleWordObject = interface;
  ISimpleWordObjectDisp = dispinterface;

{ Forward declarations: CoClasses }
  SimpleWordObject = ISimpleWordObject;

{ Dispatch interface for SimpleWordObject Object }

  ISimpleWordObject = interface(IDispatch)
    ['{547BD0E1-F796-11D0-8595-0000C0CB040C}']
    procedure NewFile; safecall;
    procedure OpenFile(const FileName: WideString); safecall;
    procedure SaveFile; safecall;
    procedure SaveFileAs(const FileName: WideString); safecall;
    procedure PrintFile; safecall;
    procedure Quit; safecall;
    procedure CopyToClipboard; safecall;
    procedure SelectAll; safecall;
  end;

{ DispInterface declaration for Dual Interface ISimpleWordObject }

  ISimpleWordObjectDisp = dispinterface
    ['{547BD0E1-F796-11D0-8595-0000C0CB040C}']
    procedure NewFile; dispid 1;
    procedure OpenFile(const FileName: WideString); dispid 2;
    procedure SaveFile; dispid 3;
    procedure SaveFileAs(const FileName: WideString); dispid 4;
    procedure PrintFile; dispid 5;
    procedure Quit; dispid 6;
    procedure CopyToClipboard; dispid 7;
    procedure SelectAll; dispid 8;
  end;

{ SimpleWordObjectObject }

  CoSimpleWordObject = class
    class function Create: ISimpleWordObject;
    class function CreateRemote(const MachineName: string): ISimpleWordObject;
  end;



implementation

uses ComObj;

class function CoSimpleWordObject.Create: ISimpleWordObject;
begin
  Result := CreateComObject(Class_SimpleWordObject) as ISimpleWordObject;
end;

class function CoSimpleWordObject.CreateRemote(const MachineName: string): ISimpleWordObject;
begin
  Result := CreateRemoteComObject(MachineName, Class_SimpleWordObject) as ISimpleWordObject;
end;


end.