Fórum WORD E DELPHI #165890
22/06/2003
0
No 98 quando chamo o word via CreateOleObject funciona perfeitamente, agora no XP dá essa mensagem A CHAMADA FOI REJEITA PELO CHAMADO.
OBS: NOSSO AMIGO DO CLUBE ARNALDO, ACHOU UMA QUASE SOLUÇÃO, POREM SEMPRE DÁ A MENSAGEM ACIMA QUANDO PASSA EM CIMA DA LINHA CreateOleObject, TENTEI COLOCAR DENTRO DO TRY EXCEPT , MAS NÃO ADIANTA ELE SEMPRE MOSTRA A MENSAGEM. O QUE FAZER ???
segue a função do nosso amigo para quem interessar
function TFrmTelaPrincipal.CrieObjeto(const ClasseNome: String): IDispatch;
var Classifique_Id: TGUID;
Desconhecido: IUnknown;
CarregouWord:Boolean;
begin
Classifique_ID:=ProgIdToClassId(ClasseNome);
if Succeeded(GetActiveObject(Classifique_ID, nil, Desconhecido)) then
Begin
OleCheck(desconhecido.QueryInterface(Idispatch, Result))
Else
Result:=CreateOleObject(ClasseNome); // quando passa nessa linha dá erro
end;
Dr. Interbase
Curtir tópico
+ 0Posts
22/06/2003
Dr. Interbase
No 98 quando chamo o word via CreateOleObject funciona perfeitamente, agora no XP dá essa mensagem A CHAMADA FOI REJEITA PELO CHAMADO.
OBS: NOSSO AMIGO DO CLUBE ARNALDO, ACHOU UMA QUASE SOLUÇÃO, POREM SEMPRE DÁ A MENSAGEM ACIMA QUANDO PASSA EM CIMA DA LINHA CreateOleObject, TENTEI COLOCAR DENTRO DO TRY EXCEPT , MAS NÃO ADIANTA ELE SEMPRE MOSTRA A MENSAGEM. O QUE FAZER ???
segue a função do nosso amigo para quem interessar
function TFrmTelaPrincipal.CrieObjeto(const ClasseNome: String): IDispatch;
var Classifique_Id: TGUID;
Desconhecido: IUnknown;
CarregouWord:Boolean;
begin
Classifique_ID:=ProgIdToClassId(ClasseNome);
if Succeeded(GetActiveObject(Classifique_ID, nil, Desconhecido)) then
Begin
OleCheck(desconhecido.QueryInterface(Idispatch, Result))
Else
Result:=CreateOleObject(ClasseNome); // quando passa nessa linha dá erro
end;[/quote:4c54d237c5]
Gostei + 0
22/06/2003
Dr. Interbase
No 98 quando chamo o word via CreateOleObject funciona perfeitamente, agora no XP dá essa mensagem A CHAMADA FOI REJEITA PELO CHAMADO.
OBS: NOSSO AMIGO DO CLUBE ARNALDO, ACHOU UMA QUASE SOLUÇÃO, POREM SEMPRE DÁ A MENSAGEM ACIMA QUANDO PASSA EM CIMA DA LINHA CreateOleObject, TENTEI COLOCAR DENTRO DO TRY EXCEPT , MAS NÃO ADIANTA ELE SEMPRE MOSTRA A MENSAGEM. O QUE FAZER ???
segue a função do nosso amigo para quem interessar
function TFrmTelaPrincipal.CrieObjeto(const ClasseNome: String): IDispatch;
var Classifique_Id: TGUID;
Desconhecido: IUnknown;
CarregouWord:Boolean;
begin
Classifique_ID:=ProgIdToClassId(ClasseNome);
if Succeeded(GetActiveObject(Classifique_ID, nil, Desconhecido)) then
Begin
OleCheck(desconhecido.QueryInterface(Idispatch, Result))
Else
Result:=CreateOleObject(ClasseNome); // quando passa nessa linha dá erro
end;[/quote:f7b663e6df]
Gostei + 0
22/06/2003
Maxadens
Ronaldo.
Gostei + 0
23/06/2003
Dr. Interbase
O que fazer ????
Gostei + 0
23/06/2003
Dr. Interbase
O que fazer ????
Gostei + 0
23/06/2003
Dr. Interbase
O que fazer ????
Gostei + 0
23/06/2003
Dr. Interbase
O que fazer ???? :D
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)