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;
...