Очередной Access Violation после Dialog.Execute

[yaapelsinko]

Кароче. Весь гугл я уже прочитал, ничего не помогло.

Есть программка, в ней объявляю диалог на открытие файла. Объявляю корректно, это проверено. Когда делаю Диалог.Экзекут - вылетает access violation.

Путём долгих ковыряний я выяснил, что ошибка пропадает, если перестать использовать один мой самописный класс в другом юните.

Интересно то, что перед вызовом диалога я не делаю ничего. Запускается программа, там по созданию формы ничего не происходит, просто инициализируются кинутые на форму визуальные компоненты. Проблемный класс объявлен в приватных (делал и глобальной) переменных формы, создаётся по отдельному событию, не связанному с вызовом диалога и не предшествующим ему.

Иду в меню, щёлкаю на пункт вызова диалога - и трындец.

Код проблемного класса:

{Модуль доступа к базе данных.}

unit DataAccess;

interface

uses
  Forms, SysUtils, ADODB, DB, Settings;
type

  TSQLSource = class(TObject)
    Connection: TADOConnection;
    Query: TADOQuery;
    Source: TDataSource;

    Constructor Create();
    function ExecuteQuery(Command: string): TDataSource;
  private
  public
  end;

implementation

{Инициализация обёртки}
Constructor TSQLSource.Create();
begin
  //Создаём подключение
  Connection := TADOConnection.Create(nil);

  //Строка подключения формируется в модуле Settings
  Connection.ConnectionString := GetConnectionString();
  Connection.LoginPrompt := false;

  //Создаём запрос
  Query := TADOQuery.Create(nil);
  Query.Connection := Connection;

  //Создаём DataSource для передачи в таблицы и прочие датаконтролы
  Source := TDataSource.Create(nil);
  //Связываем запрос с источником данных
  Source.DataSet := Query;

  //Перерезаем ленточку
  Connection.Open;
end;

// Выполняем запрос Command, возвращаем датасурс,
// который можно передать датаконтролам или промежуточным объектам
// и в дальнейшем все Edit() и Post() вызывать через них.
function TSQLSource.ExecuteQuery(Command: String): TDataSource;
begin
  //Проверка, если вдруг уже открыто
  if not Connection.Connected
    then
      Connection.Open();

  Query.Close();
  Query.SQL.Clear();
  Query.SQL.Add(Command);
  Query.Open();

  //Возвращается свойство TSQLSource.Source, которое уже связано с запросом
  //при инициализации обёртки. Защиты от намеренной отвязки Query от Source нет.
  //Если задать какой-то другой Source.DataSet, то будет возвращаться он, а не
  //датасет запроса.
  result := Source;
end;

end.

Собственно, всё, что там можно напортачить - это указывать нилы при создании, да. Но раньше всё работало и так (в т.ч. и с диалогами). Потом, видимо, где-то ещё в проекте заюзал неправильно. Ладно, я передавал в конструктор те формы, которы создают экземпляры этого класса, и подставлях их в конструкторы компонентов. Не помогло. Все формы сделаны так, что креатятся непосредственно перед использованием и фрятся после закрытия. Все экземпляры этого класса, котрые создаются, объхявлены в переменных самих форм, и, как я понимаю, должны уничтожаться при закрытии оных.

ЧЯДНТ?

[Аватар]

1. В деструкторе вашего класса должно быть уничтожение объектов созданных в классе
2. Объект вашего класса никак форме не указывает, что его нужно уничтожать при уничтожении формы. Или укажите или убивайте объекты при уничтожении формы

[yaapelsinko]

Не помогло. Даже собственный метод ему написал, который перекрывал базовый деструктор обджекта.

Я тут экспериментировал, сделал тестовый проект в котором заюзал этот модуль. И всё-то там работает. То есть, это в основном проекте я написал какую-то юзалку класса, которая ещё до каких-то действий умудряется что-то поломать. Что там можно такого написать ещё?

[Пепел Феникса]

у вас в названии теме написано одно, а в теме другое.

так где проблема то?
где процедура с этим диалогом?

[yaapelsinko]

Хотите процедуру? А вот она:

procedure TForm1.ImportXMLClick(Sender: TObject);
begin
  SaveDialog1.Execute;
end;

До неё не происходит вообще ничего, только инициализируется главная форма:

  TForm1 = class(TForm)
  {тут накиданые на форму стандартные компоненты}
  private
    FilterColumn: string;
    Connection: TSQLSource;
    Bill : ViewRegistry.TBill;
    Sort: string;
    Order: string;
  public
    { Public declarations }
  end;

Никаких дополнительных обработчиков на инициализацию нет. А аксес - виолейшын.

Сомневаюсь, что стало яснее.

Проблема отсутствует на более старых версиях проекта (проверял), хотя там ровно тот же самый предположительно проблемный класс TSQLSource, просто с тех пор что-то было дописано (дополнительные формы, также вызывающие этот класс, но использующие его точно так же, как и те, что сделаны раньше).

Проблема исчезает, если я в главной форме удаляю свойство Connection: TSQLSource, а во всех использующих его процедурах прячу строки с коннекшыном под комментарий. Причём, так эти процедуры заведомо работать не будут (например, DBGrid с неприсвоенным датасетом пошлёт при попытке поредактировать данные), но эти процедуры не выполняются перед попыткой вызова диалога, так что ошибок не возникает. И аксес виолейшена - тоже.

Стоит только вновь всё раскомментировать и сделать возможной работу с коннекшеном - опять ошибка.

Это что, я что-то такое написал, что программа даже компилируется криво?

[Пепел Феникса]

если ошибка возникает при SaveDialog1.Execute(кстати кто проверять результат будет?)
значит у вас не создан этот обьект.

не вижу на форме обьявления этого диалога.
и соответственно возможно он не создан?

вам стоит отладить приложение и выследить причину.

[dima num]

слушайте и помогите как скачать этот файл или скачать http://dsx86.patrickaalto.com/ dsx86.ini

[yaapelsinko]

Сообщение от Пепел Феникса

если ошибка возникает при SaveDialog1.Execute(кстати кто проверять результат будет?)
значит у вас не создан этот обьект.

не вижу на форме обьявления этого диалога.
и соответственно возможно он не создан?

вам стоит отладить приложение и выследить причину.

Он кинут на форму в качестве визуального компонента. Следовательно, создан и инициализирован при загрузке. В этом ошибки нет.

[Аватар]

Он кинут на форму в качестве визуального компонента

Компонент никак не визуальный. А события на компоненте есть прописанные? И вообще, что из вас по слову вытягивать. Если есть возможность проект заархивировать и сюда выложить, то сделайте это. А так ошибки искать пустая трата времени

[yaapelsinko]

Я уже писал - никаких событий перед вызовом компонента не обрабатывается. Вообще. Ни на создание формы, ни на какие-либо действия, совершаемые перед вызовом диалога. Есть обработчики пунктов меню, например - но я вызываю только тот обработчик, который собственно и делает Dialog.Execute.

Проект запросто, только там около сотни килобайт кода в десятке модулей. В аттаче.

Прямо вот запускаете и сразу же бежите в "Файл - Загрузить счёт из файла". Там диалог сохранения на самом деле, а не открытия, но это роли не играет - проблема в самом вызове диалога.
Другие пункты щёлкать смысла нет - либо не заработает, либо будет ошибка, так как требуется сперва подключиться к базе.