Esse artigo faz parte da revista Clube Delphi Edição 72. Clique aqui para ler todos os artigos desta edição

ss=Interttulo style="MARGIN: 0cm 0cm 0pt"> 

O Framework WordDataSource

O objetivo do framework que construí é permitir que dados de um sistema proprietário possam ser disponibilizados para Word de maneira transparente ao usuário. O framework irá utilizar automação OLE para desenvolver suas tarefas. Na página de download dessa edição encontram-se os fontes completos junto com uma aplicação de demonstração, sintam-se a vontade para alterar os fontes da maneira que desejarem, com isso, abordaremos apenas partes do código que tratam sobre OLE.

Na Figura 1 temos o diagrama de classes do framework.

 

 

Figura 1. Diagrama de classes do WordDataSource

 

No método CriaArquivo vemos como iniciar nossa interação com o Word, conforme o código da Listagem 1.

 

Listagem 1. Método CriaArquivo do WordDataSource

procedure TWordDataSource.CriaArquivo;

begin

  if TPath.IsValidPath(FCaminhoArquivo) then

  begin

    try

      NomeCompletoArquivo := FCaminhoArquivo +

        FNomeArquivo;

      DeleteFile(NomeCompletoArquivo);

      AplicacaoWord := CreateOleObject(

        'Word.Application');

      AplicacaoWord.Visible := False;

      DocumentoWord:= AplicacaoWord.Documents.Add();

      DocumentoWord.Select;

...

Quer ler esse conteúdo completo? Tenha acesso completo