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

Kitty

Пользователи
  • Постов

    792
  • Зарегистрирован

  • Посещение

  • Победитель дней

    16

Сообщения, опубликованные Kitty

  1. До одной из кнопок удалось добраться добавив в событие onShow формы передачу фокуса этой кнопке. До других кнопок добраться пультом так и не удалось. Нажимаю вправо влево фокус не передается между кнопками. :(

  2. Подскажите, пожалуйста, вот по такому вопросу:

    Программа для андроида работает на планшете. Кнопки нажимаются касанием – реагируют как надо. Все работает.

    Теперь программа скопировано на андроид hd медиаплеер Minix Neo X7 mini с такой же конфигурацией железа как у планшета (плеер подсоединен к телевизору). Программа запускается нормально. Однако теперь не понятно как нажать кнопку в программе? Нажимала все кнопки на пульте плеера, добраться до моей в программе кнопки старта не получается. Что надо сделать при проектировании андроид приложения, чтобы можно было нажимать кнопки управляя программой с пульта?

    Спасибо.

  3. Мне надо на андроид устройстве увидеть содержимое из базы данных PostgreSQL. Поскольку у FireDAC нет драйвера доступа к этой СУБД, то буду использовать DataSnap.

    Подскажите, пожалуйста, что лучше использовать для отображения данных из базы TGrid или TStringGrid? Вроде как TGrid показывает только видимые записи? Нужно ли использовать LiveBindings чтобы отобразить данные в сетке на андроид устройстве?
    Вообщем дайте, пожалуйста, совет, что правильно использовать в клиентской части приложения, чтобы увидеть содержимое базы данных на андроид устройстве?
    Спасибо.

  4. Не совсем по теме, просьба о модернизации уже имеющегося компонента:

    Модифицировать уже имеющийся компонент TMediaPlayer - добавить свойство Loop (смена в цикле проигрывания видео конец-начало без черного экрана). Сделать TMediaPlayer более надежным так как на некоторых устройствах он воспроизводит только звук, а видео не показывает. В то время как плеер МХ из маркета работает на всех устройствах.

    Спасибо.

  5. Здравствуйте.

    В инспекторе объектов в Image1->Bitmap загружена картина. Запускаю приложение из студии на планшете. Программа запускается нормально. Вижу картинку. Решила поменять картинку и удалила старую и в инспекторе добавила Image1->Bitmap другую картинку. Запускаю из студии проект и вижу на планшете старую картинку. Как правильно обновить картинку?

    		   ListView1->BeginUpdate();
    			 while (It != IniContent.end())
    			  {
    			   TListViewItem * item = ListView1->Items->Add();
    			   item->Text = L"№" + IntToStr(i) + " " + IniContent[(*It).first][1];
    			   item->Detail = MainForm->IniContent[(*It).first][2];
    			   item->BitmapRef = Image1->Bitmap; //вот тут упорно вставляется старая картинка
    			   item->Data[sText] = TValue::From<UnicodeString>((*It).first);
    			   It++;
    			   i++;
    			  }
    		   ListView1->EndUpdate();
    
  6. IP нужен для организации корпоративного комплекса. Программа на андроид устройстве присылает IP этого устройства на корпоративный сервер со статическим IP. Сервер зная IP шлёт команду устройству. Устройство с программой в ответ присылает на сервер нужные данные. Для взаимодействия планируют использовать Indy. Может для ОС Андроид надо делать как то иначе? Мне надо с сервера взаимодействовать с андроид устройствами компании.

  7. Здравствуйте.

    Точки останова показывают что событие LocationChanged не вызывается. Разрешения Access coarse location and Access fine location установлены. Что еще надо сделать?

    void __fastcall TForm1::LocationSensor1LocationChanged(TObject *Sender, const TLocationCoord2D &OldLocation,
            const TLocationCoord2D &NewLocation)
    {
       String LGoogleMapsURL = "https://maps.google.com/maps?q=%s,%s";
       Label1->Text = String().sprintf(L"%2.5f", NewLocation.Latitude);
       Label2->Text = String().sprintf(L"%2.5f", NewLocation.Longitude);
       TVarRec vr[] = {Label1->Text, Label2->Text};
       WebBrowser1->Navigate(Format(LGoogleMapsURL, vr, 2));
    }
    //---------------------------------------------------------------------------
    void __fastcall TForm1::FormShow(TObject *Sender)
    {
     LocationSensor1->Active = true;
    }
    
  8.  

    Так пробовали?

    Спасибо. Попробую разобраться.

     

     

    ам же список возвращается? в нем только 127.0.0.1? Других значений нет?

    Я в Memo вижу только одну строку 127.0.0.1

    Пробовала и через WIFI и через 3G выходить в интернет. Всегда получаю 127.0.0.1 :(

    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
    
    	std::unique_ptr<TIdStackLocalAddressList> list(new TIdStackLocalAddressList());
    	TIdStack::IncUsage();
    	GStack->GetLocalAddressList(list.get());
    	TIdStack::DecUsage();
    
    	for (int i = 0; i < list->Count; ++i)
    	{
    	 TIdStackLocalAddress *Addr = list->Addresses[i];
    	 Memo1->Lines->Add(Addr->IPAddress);
    
    
    	}
    
    
    }
    
  9. Здравсвуйте.

    Как получить IP адрес присвоенное устройству при выходе в интернет?

    Пробую такой код и получаю всегда сообщение: Android device is not online

    В опциях проекта разрешение на интернет - галочка установлена.

    void __fastcall TForm1::Button1Click(TObject *Sender)
    {
    
    	 IdIPWatch1->Active = true; //Indy
    	 IdIPWatch1->ForceCheck();
    	 if(IdIPWatch1->IsOnline)
    		Label1->Text = IdIPWatch1->CurrentIP;
    	 else
    		Label1->Text = L"Android device is not online";
    
    	 IdIPWatch1->Active = false;
    
    
    }
    
  10. Здравствуйте.

    Можно ли на эмуляторе увидеть координаты устройства с помощью LocationSensor или это возможно только на реальном устройстве?

    Код ниже ничего не показывает. Просто белый квадрат в браузере WebBrowser.

    void __fastcall TForm1::LocationSensor1LocationChanged(TObject *Sender, const TLocationCoord2D &OldLocation,
    		  const TLocationCoord2D &NewLocation)
    {
        String LGoogleMapsURL = "https://maps.google.com/maps?q=%s,%s";
    	Label1->Text = String().sprintf(L"%2.5f", NewLocation.Latitude);
    	Label2->Text = String().sprintf(L"%2.5f", NewLocation.Longitude);
    	TVarRec vr[] = {Label1->Text, Label2->Text};
    	WebBrowser1->Navigate(Format(LGoogleMapsURL, vr, 2));
    }
    //---------------------------------------------------------------------------
    void __fastcall TForm1::FormShow(TObject *Sender)
    {
     LocationSensor1->Active = true;
    }
    
×
×
  • Создать...