Graças a ajuda de um colega comsegui resolver o
problema dos processos não encerrados.
Eu estava "dando" quit no Doc.quit então dava erro,
mas era lógico eu tinha que dar o quit era na
aplicação.
WinWord.quit;
Estou fazendo um aplicativo que para iniciante é muito
interessante, pois uso classes, thread e Word. Quando
estiver pronto vou disponibilizar pra galera.
Obrigado a todos que ajudaram,
Edmilson Pontes
--- ricknetbr <[EMAIL PROTECTED]> escreveu:
---------------------------------
Antes de chamar o CreateOleObject, verifique se o
mesmo ja nao esta
carregado.
if not Assigned (WinWord) then
WinWord := CreateOleObject('Word.Application');
.
.
.
--- Em delphi-br@yahoogrupos.com.br, Edmilson Pontes
<[EMAIL PROTECTED]> escreveu
> Colegas,
> Tô com este problema pendente. Me ajudem pro favor.
> Tenho um programa gerador de contratos, que gravar
> texto num arquivo (modelo de carta) do word.
> Para cada novo contrato executa o código abaixo para
> criar o arquivo e salvar as alterações.
>
> var WinWord, Docs, Doc : Variant;
>
> //objetos do tipo Variant
> WinWord := CreateOleObject('Word.Application');
> Docs := WinWord.Documents;
> Doc := Docs.Open(c:\modelo.doc');
> {Rotinas internas do programa}
> Doc.SaveAs('c:\novo.doc');
> Doc.Close();
> O programa tá funcionando beleza mas o problema é
que
> está consumindo muita memória,
> pois para cada arquivo é criado um processo WINWORD
> (no gerenciador de tarefas).
> É impressionante a disproporção de memória usada em
> relação aos outros processos do windows.
> Como faço para resolver isso?
> Para cada processo é necessário criar os três
objetos.
> OBS.: Utilizo thread para criar os objetos, pois
> consome muito processamento também.
>
> Desde já agradeço qualquer ajuda,
>
> Edmison Pontes
>
>
>
>
>
>
>
>
_______________________________________________________
> Novo Yahoo! Messenger com voz: ligações, Yahoo!
Avatars, novos
emoticons e muito mais. Instale agora!
> www.yahoo.com.br/messenger/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou
[EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido
por:
---------------------------------
Links do Yahoo! Grupos
Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
O uso que você faz do Yahoo! Grupos está sujeito
aos Termos do Serviço do Yahoo!.
_______________________________________________________
Novo Yahoo! Messenger com voz: ligações, Yahoo! Avatars, novos emoticons e
muito mais. Instale agora!
www.yahoo.com.br/messenger/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
