Перейти к содержанию
Fire Monkey от А до Я
  • 0

FGX for Tokyo (Delphi 10.2.1) Please


ksi

Вопрос

Dear Brovin Yaroslav

For this great product (FGX component). I have a problem when using TFgActivityDialog in "Release Mode" in Delphi 10.3 Rio. I can not save my record in my PlayStore, it can save record into MySQL Server. What should i do to make mycode work in "Release mode" (playStore)? Please help me ...

Here is the code i wrote:

procedure TLocationForm.btnSendClick (Sender: TObject);
begin
    with dmMyLocation do
    begin
      if not fgActivityDialog.IsShown then
      begin
        FActivityDialogThread: = TThread.CreateAnonymousThread (procedure
        begin
          try
            TThread.Synchronize (nil, procedure
            begin
              fgActivityDialog.Message: = 'Please, Wait';
              fgActivityDialog.Show;
            end);
            Sleep ( 1000);
            if TThread.CheckTerminated then
              Exit;

            TThread.Synchronize (nil, procedure
            begin
              fgActivityDialog.Message: = 'Sending data ...';

              qInsert.SQL.Clear;
              qInsert.SQL.Add ('INSERT INTO mabsensilokasi (');
              qInsert.SQL.Add ('idlokasi,');
              qInsert.SQL.Add ('tgllokasi,');
              qInsert.SQL.Add ('latx,');
              qInsert.SQL.Add ('longx,');
              qInsert.SQL.Add ('latlongx,');
              qInsert.SQL.Add ('namalokasi)');
              qInsert.SQL.Add ('VALUES (');
              qInsert.SQL.Add (': idlokasi,');
              qInsert.SQL.Add (': tgllokasi,');
              qInsert.SQL.Add (': latx,') ;
              qInsert.SQL.Add (': longx,');
              qInsert.SQL.Add (': latlongx,' );
              qInsert.SQL.Add (': namalokasi)');

              qInsert.Prepare;
              qInsert.Params [0] .AsInteger: = 0;
              qInsert.Params [1] .AsDateTime: = Now;
              qInsert.Params [2] .AsFloat: = strToFloat (ENUSLat);
              qInsert.Params [3] .AsFloat: = strToFloat (ENUSLong);
              qInsert.Params [4] .AsString: = ENUSLat + ':' + ENUSLong;
              qInsert.Params [5] .AsString: = edtNamaLokasi.Text;

              try
                UniConnection1.Connect;
                qInsert.ExecSQL;
                ShowMessage ('Record was save into MySQL Server DB ...'); // showup windows of dialog when data was saved succesfully into db mysql server
              except
                on e: exception do
                begin
                  ShowMessage (e.Message);
                  UniConnection1.Disconnect;
                end; // exception
              end; // try

              //fgActivityDialog.ExecuteAction (btnSend);

            end);
            Sleep (1000);
            if TThread. CheckTerfeed then
              Exit;


            TThread.Synchronize (nil, procedure
            begin
              fgActivityDialog.Message: = 'Finish';
            end);
            Sleep (500);

            if TThread. CheckTerfeed then
              Exit;

          finally
            if not TThread.CheckTerminated then
              TThread.Synchronize (nil, procedure
              begin
                fgActivityDialog.Hide;
              end);
          end; // try
        end); // FActivityDialogThread

        FActivityDialogThread.FreeOnTerminate: = False;
        FActivityDialogThread.Start;
      end; // if


    end; // endDM

end; // endProc

Ссылка на комментарий

Рекомендуемые сообщения

Ответов пока нет

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...