1

Создал функции, в которых создаю компонент, читаю из базы, а потом уничтожаю, делаю так, потому что, функции вызываются потоками. все работает какое то неопределённое время, а потом вылетает ошибка.

Скажите, что я не так делаю? Все функции выделены в отдельный Unit13

Пример 2-х функций:

class function RGetInfo.GetGroups(Player: String): XGroups;
var
  iStrig: String;
  FDConnection: TFDConnection;
  FDQuery: TFDQuery;
begin
  try
    FDConnection := TFDConnection.Create(Form1);
    with FDConnection do
    begin
      Params.Add('Database=asd');
      Params.Add('DriverID=MySQL');
      Params.Add('Password=123456');
      Params.Add('Server=localhost');
      Params.Add('User_Name=root');
      Params.Add('CharacterSet=utf8');
      Params.Add('ReadTimeout=100');
      Connected := True;
    end;
  except

  end;
  try
    FDQuery := TFDQuery.Create(Form1);
    FDQuery.Connection := FDConnection;
  except

  end;
    try
      FDQuery.SQL.Clear;
      FDQuery.SQL.Add('SELECT `name` FROM `880102` WHERE `active` = "1"');
      FDQuery.Open;
        while not FDQuery.Eof do
        begin
          iStrig := iStrig + '"' + FDQuery.FieldByName('name').AsString + '",';
          FDQuery.Next;
        end;
        Delete(iStrig, length(iStrig), 1);
        Result.withError := False;
      FDQuery.Close;
    except
      iStrig := '"all"';
      Result.withError := True;
    end;
  Result.xText := iStrig;
  try FDQuery.Destroy; except end;
  try FDConnection.Destroy; except end;
end;

class function RGetInfo.GetLanguages(Player: String): XLanguages;
var
  iStrig: String;
  FDConnection: TFDConnection;
  FDQuery: TFDQuery;
begin
  try
    FDConnection := TFDConnection.Create(Form1);
    with FDConnection do
    begin
      Params.Add('Database=asd');
      Params.Add('DriverID=MySQL');
      Params.Add('Password=123456');
      Params.Add('Server=localhost');
      Params.Add('User_Name=root');
      Params.Add('CharacterSet=utf8');
      Params.Add('ReadTimeout=100');
      Connected := True;
    end;
  except

  end;
  try
    FDQuery := TFDQuery.Create(Form1);
    FDQuery.Connection := FDConnection;
  except

  end;
    try
      FDQuery.SQL.Clear;
      FDQuery.SQL.Add('SELECT `name` FROM `880103` WHERE `active` = "1"');
      FDQuery.Open;
        while not FDQuery.Eof do
        begin
          iStrig := iStrig + '"' + FDQuery.FieldByName('name').AsString + '",';
          FDQuery.Next;
        end;
        Delete(iStrig, length(iStrig), 1);
        Result.withError := False;
      FDQuery.Close;
    except
      iStrig := '"en"';
      Result.withError := True;
    end;
  Result.xText := iStrig;
  try FDQuery.Destroy; except end;
  try FDConnection.Destroy; except end;
end;
8
  • 1
    это потому что юнит 13й :D
    – teran
    31 мая 2017 в 19:09
  • зачем вы вообще постоянно создаете коннекты? Создайте его один раз и пользуйте, или создайте пул коннектов, если они различаются. Запросы если интенсивно используются, тоже смысла нет каждый раз создавать (если объект живет дольше чем один вызов функции). Для освобождения объектов обыкновенно используется Free а не прямой вызов Destroy. Про именование типов данных я вам уже писал в прошлый раз, общепринято начинать с T, а не X или еще что-нибудь. По итогу, с какой ошибкой падает программа, начинать надо с этого. AV или что-то другое?
    – teran
    31 мая 2017 в 19:13
  • unit1 добавлен implementation uses Engin;
    – ArtGrek13
    31 мая 2017 в 19:14
  • строки настроек подключения вынесите в константы класса. чтобы не искать их по коду для изменения. Про Owner-а вам уже сказали. Использование пустых except это не очень хорошо, ибо просто скрывает ошибку и игнорирует ее. Помимо except есть еще и finally.
    – teran
    31 мая 2017 в 19:16
  • 1
    ВЫ. конечно, можете не следовать общепринятым подходам к именованию, но принято называть все классы и структуры с префикса T (T-type/user-type). Исключением часто являются классы rtti-атрибутов, там не используют префикс. Аналогично интерфейсы начинают с I (I - Interface), поля с F (F - field) и так т.п.
    – teran
    1 июн 2017 в 8:37

1 ответ 1

2

Так как функции выполняются в потоках, дело, вероятно, в том, что происходят одновременные обращения к форме Form1 из второстепенных потоков.

Вам нет никакого смысла передавать какую-либо форму в качестве владельца в конструкторы компонент. Вы сами контролируете время жизни компонент, только не совсем правильно.

FDConnection := TFDConnection.Create(nil);
try
  ...
  FDQuery := TFDQuery.Create(nil);
  try
    ...
  finally
    FDQuery.Free;
  end;
finally
  FDConnection.Free;
end;
1
  • Только если в такой конструкции не обработать ошибку в потоке, то приложение вылетит на первом же exception'е.
    – Alekcvp
    2 июн 2017 в 22:36

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.