simplewordobject.pas

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

unit SimpleWordObject;

{ This is the Automation Object that is exports
  functionality from the SimpleWord application.

  Part of SimpleW2, second version of the SimpleWord
  Application in the Delphi Developer's Handbook.

  jfl
}

interface

uses
  ComObj, simpleword_TLB;

type
  TSimpleWordObject = class(TAutoObject, ISimpleWordObject)
  protected
    procedure CopyToClipboard; safecall;
    procedure NewFile; safecall;
    procedure OpenFile(const FileName: WideString); safecall;
    procedure PrintFile; safecall;
    procedure Quit; safecall;
    procedure SaveFile; safecall;
    procedure SaveFileAs(const FileName: WideString); safecall;
    procedure SelectAll; safecall;
    procedure ClearSelection; safecall;
    procedure Home; safecall;
    procedure SelectCharacters(NumberCharacters: Integer); safecall;
  end;

implementation

uses ComServ, Main;

procedure TSimpleWordObject.CopyToClipboard;
begin
  with MainForm do
    RichEdit1.CopyToClipboard;
end;

procedure TSimpleWordObject.NewFile;
begin
  with MainForm do
    RichEdit1.Lines.Clear;
end;

procedure TSimpleWordObject.OpenFile(const FileName: WideString);
begin
  with MainForm do
  begin
    CurrentFileName := FileName;
    RichEdit1.Lines.LoadFromFile( FileName );
  end;
end;

procedure TSimpleWordObject.PrintFile;
begin
  with MainForm do
    RichEdit1.Print( '' );
end;

procedure TSimpleWordObject.Quit;
begin
  with MainForm do
    Close;
end;

procedure TSimpleWordObject.SaveFile;
begin
  with MainForm do
    RichEdit1.Lines.SaveToFile( CurrentFileName );
end;

procedure TSimpleWordObject.SaveFileAs(const FileName: WideString);
begin
  with MainForm do
  begin
    CurrentFileName := FileName;
    RichEdit1.Lines.SaveToFile( CurrentFileName );
  end;
end;

procedure TSimpleWordObject.SelectAll;
begin
  with MainForm do
    RichEdit1.SelectAll;
end;

procedure TSimpleWordObject.ClearSelection;
begin
  with MainForm do
    RichEdit1.ClearSelection;
end;

procedure TSimpleWordObject.Home;
begin
  with MainForm do
    RichEdit1.SelStart := 0;
end;

procedure TSimpleWordObject.SelectCharacters(
  NumberCharacters: Integer);
begin
  with MainForm do
    RichEdit1.SelLength := NumberCharacters;
end;

initialization
  TAutoObjectFactory.Create(ComServer, TSimpleWordObject, Class_SimpleWordObject, ciMultiInstance);
end.