Firedac libmysql

@Vermilion897 · Регистрация: 10.10.2016

Студворк — интернет-сервис помощи студентам

Запускаю приложение. Работаю, все нормально. После того как начинаю закрывать приложение выскакивает ошибка:

Exception EAccessViolation in module libmysql.dll at 0024F9C Access violation at address 10024F9C in module libmysql.dll . Read of address 000003B0

Так же, ошибка возникает если просто запустить приложение и секунд через 20 закрыть.

Использую: RAD STUDIO 10.2, Firedac + mysql 5.7 (так же пробовал 5.6 и 5.5)

Вот что пишет мне Rad studio

Module Unload: WinTypes.dll. Process DataBase.exe (5956)
Thread Start: Thread ID: 6832. Process DataBase.exe (5956)
Thread Start: Thread ID: 6780. Process DataBase.exe (5956)
First chance exception at $76E6B802. Exception class EMySQLNativeException with message '[FireDAC][Phys][MySQL] MySQL server has gone away'. Process DataBase.exe (5956)
First chance exception at $10024F9C. Exception class $C0000005 with message 'access violation at 0x10024f9c: read of address 0x000003b0'. Process DataBase.exe (5956)
First chance exception at $76E6B802. Exception class EMySQLNativeException with message '[FireDAC][Phys][MySQL] MySQL server has gone away'. Process DataBase.exe (5956)
First chance exception at $10024F9C. Exception class $C0000005 with message 'access violation at 0x10024f9c: read of address 0x000003b0'. Process DataBase.exe (5956)
Module Unload: HHCTRL.OCX. Process DataBase.exe (5956)
Module Unload: WSOCK32.dll. Process DataBase.exe (5956)
Module Unload: LIBMYSQL.dll. Process DataBase.exe (5956)
First chance exception at $007484B5. Exception class $C0000005 with message 'access violation at 0x007484b5: read of address 0x00000000'. Process DataBase.exe (5956)
First chance exception at $004BAAC1. Exception class $C0000005 with message 'access violation at 0x004baac1: read of address 0x00000004'. Process DataBase.exe (5956)
Module Unload: WTSAPI32.dll. Process DataBase.exe (5956)
First chance exception at $00408D82. Exception class $C0000005 with message 'access violation at 0x00408d82: read of address 0x06807510'. Process DataBase.exe (5956)
First chance exception at $00408D82. Exception class $C0000005 with message 'access violation at 0x00408d82: read of address 0x068074e8'. Process DataBase.exe (5956)
First chance exception at $00408D82. Exception class $C0000005 with message 'access violation at 0x00408d82: read of address 0x06806868'. Process DataBase.exe (5956)
First chance exception at $005D2CE1. Exception class $C0000005 with message 'access violation at 0x005d2ce1: read of address 0x041ddd64'. Process DataBase.exe (5956)

@Vermilion897 · 15.06.2017, 14:42 **[ТС]**

Так же прикладываю скрин

@krapotkin · 15.06.2017, 15:24

закрыть подключение, потом выходить из программы?

@Vermilion897 · 15.06.2017, 15:28 **[ТС]**

krapotkin, не понял

Пробовал закрывать все query и connection, не помогает((

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FDQ_orders_tehnika.Active:=False;
FDQ_all_tehnika.Active:=False;
FDQ_all_clients.Active:=False;
FDQ_all_manager.Active:=False;
FDQ_all_performers.Active:=False;
FDQ_all_firm.Active:=False;
FDQ_status_orders.Active:=False;
FDQ_all_voditeli.Active:=False;
FDQ_all_service.Active:=False;
FDQ_worked_hours.Active:=False;
FDConnection1.Close;
end;

@krapotkin · 15.06.2017, 15:36

тогда только создать чистое приложение и проверить
если не взлетит, приложить сюда проект

@Vermilion897 · 15.06.2017, 15:57 **[ТС]**

Проект и база

@Vermilion897 · 15.06.2017, 17:13 **[ТС]**

Убрал ошибку путем закрытие всех connectin на всех формах программы

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Fdconnection1.Connected:=False;
Form2.Fdconnection1.Connected:=False;
Form3.Fdconnection1.Connected:=False;
(* Form4.Fdconnection1.Connected:=False; *)
(*Form5.Fdconnection1.Connected:=False;  *)
Form6.Fdconnection1.Connected:=False;
(*Form7.Fdconnection1.Connected:=False;  *)
Form8.Fdconnection1.Connected:=False;
(* Form9.Fdconnection1.Connected:=False;  *)
(*Form10.Fdconnection1.Connected:=False;      *)
Form11.Fdconnection1.Connected:=False;
Form12.Fdconnection1.Connected:=False;
Form13.Fdconnection1.Connected:=False;
Form14.Fdconnection1.Connected:=False;
end;

Добавлено через 6 минут
Даже приходиться ещё FDQUERY прописывать. Есть вообще проще способы. А то это просто гиперкастэыль получается

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FDQ_orders_tehnika.Active:=False;
FDQ_all_tehnika.Active:=False;
FDQ_all_clients.Active:=False;
FDQ_all_manager.Active:=False;
FDQ_all_performers.Active:=False;
FDQ_all_firm.Active:=False;
FDQ_status_orders.Active:=False;
FDQ_all_voditeli.Active:=False;
FDQ_all_service.Active:=False;
FDQ_worked_hours.Active:=False;
Fdconnection1.Connected:=False;
Form2.Fdconnection1.Connected:=False;
Form3.Fdconnection1.Connected:=False;
(* Form4.Fdconnection1.Connected:=False; *)
(*Form5.Fdconnection1.Connected:=False;  *)
Form6.Fdconnection1.Connected:=False;
(*Form7.Fdconnection1.Connected:=False;  *)
Form8.Fdconnection1.Connected:=False;
(* Form9.Fdconnection1.Connected:=False;  *)
(*Form10.Fdconnection1.Connected:=False;      *)
Form11.Fdconnection1.Connected:=False;
Form12.Fdconnection1.Connected:=False;
Form13.Fdconnection1.Connected:=False;
Form14.Fdconnection1.Connected:=False;
end;

@krapotkin · 16.06.2017, 09:36

гиперкостыль - это множество FDConnection
вынесите его (ЕДИНСТВЕННЫЙ экземпляр) в отдельный модуль данных и используйте этот модуль (uses) во всех формах

Добавлено через 1 минуту
ну и тот момент когда созданы все формы одновременно, тоже нехорошо.
не должно быть в Project - Options - Forms - Auto create много форм
форма должна создаваться в момент необходимости и уничтожаться после выхода из нее

@Vermilion897 · 16.06.2017, 10:18 **[ТС]**

Когда я делаю связи таблиц через:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm10.DBEdit4Change(Sender: TObject);
var help1, help2:string;
 begin
 help1:=''+DBEdit4.Text+'';
 help2:=QuotedStr(help1);
 with Form1.FDQuery_worked_hours do
 begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM worked_hours');
    SQL.Add('WHERE id_orders_tehnika ='+help2+'');
    SQL.Add('ORDER by date DESC, id_change DESC');
    Open;
  end;
end;

FDQuery начинает ругаться и не видит connection, если он не размещен на этой же форме где происходит связь таблиц по запросу. Вот и я делаю на каждую форму один FDConnection.

@krapotkin · 16.06.2017, 10:26

вы читаете ведь, да, что вам пишут?
это из букваря
чтобы что-то из другого модуля было доступно в вашем, требуется (и достаточно) декларировать, что вы используете тот модуль

Delphi
1
uses .........., DrugoyModul;

и тогда даже в инспекторе объектов становится доступным выбрать Connection с другой формы
другое дело, что при запуске вы туда тянетесь, а саму форму еще не создали, это вот да

@Vermilion897 · 16.06.2017, 17:12 **[ТС]**

Я связываю формы через Uses Unit... Но все же, когда использую один FDConnection на главной форме Form1, то при компиляции вылазит ошибка. А когда у меня на каждой форме FDConnection, то проблем не возникает(хотя и не удобно потом ip менять на каждом окне

)

@krapotkin · 16.06.2017, 17:17

1) при чем тут компиляция. у вас программа запущена
2) покажите текст файла .dpr там где Application.CreateForm(...)

@Vermilion897 · 16.06.2017, 17:42 **[ТС]**

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  Application.CreateForm(TForm8, Form8);
  Application.CreateForm(TForm9, Form9);
  Application.CreateForm(TForm10, Form10);
  Application.CreateForm(TForm11, Form11);
  Application.CreateForm(TForm12, Form12);
  Application.CreateForm(TForm13, Form13);
  Application.CreateForm(TForm14, Form14);
  Application.Run;

@krapotkin · 16.06.2017, 19:13

вот примитивное (не очень) демо
чтобы было удобнее, я БД приложил прямо в комплект
создано на Berin 10.1

@D1973 · 18.06.2017, 08:55

Сообщение от krapotkin

не должно быть в Project - Options - Forms - Auto create много форм

Сообщение от krapotkin

вы читаете ведь, да, что вам пишут?

Сообщение от Vermilion897

begin
* Application.Initialize;
* Application.MainFormOnTaskbar := True;
* Application.CreateForm(TForm1, Form1);
* Application.CreateForm(TForm2, Form2);
* ...
* Application.CreateForm(TForm13, Form13);
* Application.CreateForm(TForm14, Form14);
* Application.Run;

Нифига не читает!!!

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Vermilion897 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 32
	15.06.2017, 14:42 [ТС]
	Так же прикладываю скрин Миниатюры 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,659 Записей в блоге: 21
	15.06.2017, 15:24
	закрыть подключение, потом выходить из программы? 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,659 Записей в блоге: 21
	15.06.2017, 15:36
	тогда только создать чистое приложение и проверить если не взлетит, приложить сюда проект 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,659 Записей в блоге: 21
	16.06.2017, 09:36
	гиперкостыль - это множество FDConnection вынесите его (ЕДИНСТВЕННЫЙ экземпляр) в отдельный модуль данных и используйте этот модуль (uses) во всех формах Добавлено через 1 минуту ну и тот момент когда созданы все формы одновременно, тоже нехорошо. не должно быть в Project - Options - Forms - Auto create много форм форма должна создаваться в момент необходимости и уничтожаться после выхода из нее 0

@Vermilion897 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 32
	16.06.2017, 17:12 [ТС]
	Я связываю формы через Uses Unit... Но все же, когда использую один FDConnection на главной форме Form1, то при компиляции вылазит ошибка. А когда у меня на каждой форме FDConnection, то проблем не возникает(хотя и не удобно потом ip менять на каждом окне ) Миниатюры 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,659 Записей в блоге: 21
	16.06.2017, 17:17
	1) при чем тут компиляция. у вас программа запущена 2) покажите текст файла .dpr там где Application.CreateForm(...) 0