vovanse

Можно как-то узнать, включена ли точка доступа WiFi? Через ConnectivityManager могу определить включение WiFi как клиента, а интересует именно точка доступа.

Добавлю сюда свой вопрос. Собрал jar библиотеку из последней версии  usb-serial-for-android сделал обертку, добавляю в проект и при компиляции получаю такую ошибку:

"[Exec Error] EXEC(1): com.android.dx.cf.code.SimException: ERROR in сom.hoho.android.usbserial.driver.ProlificSerialDriver$ProlificSerialPort.getStatus:()I: invalid opcode ba - invokedynamic requires --min-sdk-version >= 26 (currently 13)" 

Пишут, для Gradle можно указать
sourceCompatibility JavaVersion.VERSION_1_8
targetCompatibility JavaVersion.VERSION_1_8
 

Но как победить ее в Rad Studio 10.4.2 ? 

Спасибо :)

Еще бы попасть в ту ветку Не затруднит сюда прикрепить?

Delphi 10.4 При попытки компиляции под Android выдает такое сообщение "Unit FMXTee.Canvas was compiled with a different version of System.SysUtils.FreeAndNil", под Windows все нормально. Что может быть? Куда копать?

Причем такая ошибка только в Debug конфигурации, в Release все нормально.

Есть некое приложение под Android,  TTimer по мере необходимости вызывает TBluetoothLE  WriteCharacteristic, в этот момент все приложение "подвисает" на время записи (2..4 сек). ReadCharacteristic  происходит без таких проблем. Что это может быть и как-то можно побороть?

Есть некая программа,  под Android, TListBox, свой стиль для TListBoxItem куда добавил необходимое количество TLabel. При запуске приложения все это заполняется. Есть необходимость изменить некоторые значение в определенных TListBoxItem во время работы. Изменения вношу:

ListActive.BeginUpdate;

в цикле ListBoxActive.ItemByIndex(i) .StylesData['info.Text']:=yyy меняю данные

ListBoxActive.EndUpdate;

И на экране ничего не изменяется. Как заставить обновится? Refresh какой-то или еще что-то существует?

private
....
    procedure DragOver(const Data: TDragObject; const Point: TPointF; var Operation: TDragOperation); override;
    procedure DragDrop(const Data: TDragObject; const Point: TPointF); override;
....

procedure TMainForm.DragOver(const Data: TDragObject; const Point: TPointF; var Operation: TDragOperation);
begin
  inherited;
  Operation:=TDragOperation.Link;
end;

procedure TMainForm.DragDrop(const Data: TDragObject; const Point: TPointF);
begin
... свой код...
  inherited;
end;

Пробовал на XE6 Update1 Version 20.0.16277.1276. Есть уже что-то новее?

... пытюсь понять - как именно в FMX работает Drag&Drop...

Хреново он в FMX работает

Тоже это обошел, но несколько подругому - использовал обработчики procedure DragOver и DragDrop формы, соответственно смотря попадаю ли на нужный компонент и пересчитывая координаты.

Собственно так я и делал. Но только не работает. Не вызывается ListBoxDestinationDragDrop.

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.ListBox, FMX.Layouts;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    ListBoxItem1: TListBoxItem;
    ListBoxItem2: TListBoxItem;
    ListBoxItem3: TListBoxItem;
    ListBoxItem4: TListBoxItem;
    ListBoxItem5: TListBoxItem;
    ListBoxItem6: TListBoxItem;
    procedure ListBox1DragOver(Sender: TObject; const Data: TDragObject;
      const Point: TPointF; var Operation: TDragOperation);
    procedure ListBox1DragDrop(Sender: TObject; const Data: TDragObject;
      const Point: TPointF);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.ListBox1DragDrop(Sender: TObject; const Data: TDragObject;
  const Point: TPointF);
begin
  if Data.Source is TFmxObject then
    TFmxObject(Data.Source).Parent := ListBox1;
end;

procedure TForm1.ListBox1DragOver(Sender: TObject; const Data: TDragObject;
  const Point: TPointF; var Operation: TDragOperation);
begin
  Operation := TDragOperation.Copy;
end;

end.

Delphi XE6. Пытаюсь реализовать Drag and Drop между двумя TListBox, но как-то безуспешно. А TTreeView, работает.

У принимающего TListBox вызываются только OnDragOver, OnDragEnter, OnDragLeave. А события OnDragChange, OnDragDrop - нет.

DragMode установлен в dmManual, AllowDrag пробовал и True и False. В обработчике DragOver Operation:=TDragOperation.Copy (другие варианты тоже пробовал)

Использовал в качестве принимающего TText, OnDragDrop прекрасно работает.

Пробовал и с созданными ListBoxItem и без них.

В чем может быть проблема? Или это пока не совсем работает? Как можно обойти?

Спасибо, нашел решение тут http://ginne.ru/node/59

Можно ли как-то снять скриншот с TMediaPlayerControl? MakeScreenshot не помогает - возравращает черный прямоугольник, на сколько понимают из-за DirectDraw.

Вообще смысл - сделать эскизы для видеофайлов, как-то выдрать из середины кадр.. TMediaPlayer открыл, показал, но вот со скриншотом проблема.