Два экземпляра приложения коррелируют

Комментарии

• -=Serg=-

  January 2006 отредактировано 23:47

  Используете run-time пакеты?
• mak$

  January 2006 отредактировано 23:47

  да
  
• -=Den=-

  January 2006 отредактировано 23:47

  TfrxReport случайно не в Dll?
• mak$

  January 2006 отредактировано 23:47

  нет
  
• -=Serg=-

  January 2006 отредактировано 23:47

  пример пришлите
• mak$

  January 2006 отредактировано January 2006

  while(Report->DataSets->Count)
  delete Report->DataSets->Items[Report->DataSets->Count - 1]->DataSet;
  
  int i= 1;
  while( provList.Pos(";"))
  {
  TClientDataSet *ds = new TClientDataSet(this);
  ds->RemoteServer = m_ActShell;
  ds->ProviderName = provName;
  ds->Name = "REPORT"+AnsiString(m_ReportCount);
  ds->Open();
  
  TDataSource *dds = new TDataSource(this);
  dds->DataSet = ds;
  dds->AutoEdit = false;
  
  TfrxDBDataset* dbds = new TfrxDBDataset(FR);
  dbds->DataSource = dds;
  dbds->DataSet = ds;
  if(NamesList->Count >= i)
  dbds->UserName = NamesList->Strings[i-1];
  else
  dbds->UserName = "Набор данных " + AnsiString(i);
  
  Report->DataSets->Add(dbds);
  
  i++;
  m_ReportCount++;
  }
  //*****************добавляем DataSet с параметрами***********************
  TfrxDBDataset* ParamDS = new TfrxDBDataset(FR);
  ParamDS->DataSet = ...;
  ParamDS->UserName = "Параметры";
  FR->Report->DataSets->Add(ParamDS);
  //***********************************************************************
  
  if(Report->LoadFromFile(AbsPath("%ROOT%\\Report\\" + m_SMRFileName), true))
  {
  Report->ShowReport(true);
  }
  }
• mak$

  January 2006 отредактировано 23:47

  Как жаль, что ребята из FR Team ничем помочь не могут...
• -=Den=-

  January 2006 отредактировано January 2006

  Рабочий пример прислать можете?
  Т.е. небольшую программу которая полностью демонстрирует вашу проблему. При этом не завязанную на вашей БД (а например на DBDEMOS)
• mak$

  January 2006 отредактировано 23:47

  мой пример у вас работать не будет, т.к. это часть системы и как раз завязанная ХП из моей БД
• NoNick

  January 2006 отредактировано 23:47

  Попробуй репорт тоже через new создавать и обязательно delete сразу после показа в превью. Так же я думаю желательно удалить все компоненты с fastreportа с формы. То есть в одной функции все создавать локально а на выходе из нее все удалять. По крайней мере я так свою проблему решил.
  Удачи!
• -=Serg=-

  January 2006 отредактировано 23:47

  Mak написал:

  мой пример у вас работать не будет, т.к. это часть системы и как раз завязанная ХП из моей БД

  Значит создайте новый небольшой проект, который НЕ привязан к вашей базе, но демонстрирует эту ошибку.
  Например я не смог воспроизвести такую ошибку у себя на компьютере.