none
Call rejected By Callee - Ms Project + Delphi RRS feed

  • Pergunta

  • Olá amigos, todos bem?
    Tenho uma automação Delphi x MS Project.
    A comunicação é feita através da MSProject_TLB.pas, importada da '\Microsoft Office\Office16\MSPRJ.OLB'.
    Como realizo a automação: 

      MsProjectApp : ProjectApplication;
      MsProjectDoc : Project_;

      try
        MsProjectDoc := MsProjectApp.Projects.Add(false, EmptyParam, false);
        MsProjectDoc.Name := "Name";
        MsProjectDoc.Title := "Name Project";
        ...
        MsProjectDoc.SaveAs("File", ...);
        MsProjectApp.ScreenUpdating := False;
        MsProjectApp.Calculation := pjManual;
      except
        Raise;
      end;  

      var
        Task : TaskDisp;
      begin
        Task := ((MsProjectDoc.Tasks as TasksDisp).Add("Task Name", 1) as TaskDisp);
      end;  

    Tudo funciona bem, para um pequeno numero de Tasks.
    Porém, para volumes maiores (~10000 Tasks), o consumo de memória é alto e são apresentados alguns erros:
     - Call Rejected by Callee;
     - File can not be opened;
     - RPC server is unavailable;  

    Entendo que ocorre alguma falha na comunicação (interface e winproj.exe), que pode ser relacionado ao alta utilização de memória (~2gb) (?).

    O que poderia fazer para evitar os erros? e manter a conexão ativa? 

            
    • Editado Fabio182_ quinta-feira, 5 de abril de 2018 22:37
    quinta-feira, 5 de abril de 2018 21:14