Yarpda

Вам не нужен TNETHTTPClient, это всего лишь обертка для THTTPClient. Просто сделайте поиск по данному форуму по "THTTPClient" и вам откроется многое.

у tms webbrowser есть такое

Вот здесь включается AAB

Спасибо большое за наводку. Попробую поработать и  в этом направлении.

Попробуйте задать вопрос автору инди на его форуме где он отвечает. Его ник rlebeau. По крайней мере вы получите ответ от автора инди и все станет на свои места. Правда писать надо на английском.
http://bcbj.org/forums/viewforum.php?f=10&sid=e022f859f55a36e1a172e415bf163bad
 

Обновлена серия статей на тему использования Uses Permissions.
Uses Permissions: Теория Uses Permissions: Добавляем метод onRequestPermissionsResult в приложение (для Delphi 10.1/10.2) Uses Permissions: Практика (для Delphi 10.3) Автор: Андрей Ефимов

ну, есть идеи, как бы модифицировать код, но и так сойдет
я бы перефразировал
if frmScanWindow = nil then   frmScanWindow := TFrmScanWindow.Create(NIL); frmScanwindow.showModal( procedure (const AResult:TModalResult) begin if AResult = mrOK then begin ....... и может быть даже FreeAndNil(frmScanwindow); end; end);  

Вот моя переписка. Прислали вот такое письмо с вопросами
Hello Alexey, Thanks for contacting Google Play Developer Support. Apologies for the delayed response. I understand you would like an extension to become 64-bit compliant. In order to submit your request, can you please provide the following: Reason for not being able to be compliant in time (if there’s a dependency on third party tools, please specify it) Reason for your request and your plan for migration Specific plan on how you will become compliant, with an estimation date for building 64-bit support that you can commit (For example: The app will be compliant 2 weeks after Embarcadero is compliant.) I look forward to your reply and assisting you further. Regards, Liz Google Play Developer Support я ответил так
Hello Liz! Thank you for your letter. In answer to your questions, i provide that as soon as Embarcadero will make a 64x-compiler for Android, i will use it and make a compatible application. I hope, that it won't take long, i dont use any third party tools, only Embarcadero RAD Studio. I'm disappointed, that Embarcadero do not release a new version in time, like they still don't announce it. Also to this I want to ask, if i need to update my application in Google Play Market, i need to reques this extension every time, or only onсe? My application is made for users of our smart home system, and I'm very worried, that our new customers can't download it from Play Market, so I hope for a positive decision of my request!  

А можно поделиться формой письма (естественно обезличенной) на которое согласились и на которое отказали? Я думаю это было бы полезно для понимания хода мыслей G. Да и для большинства участников форума думаю информация будет полезной.

Хорошая новость: вместо ожидания 10.4 - выйдет версия 10.3.3 в 2019 году, в котором появится компилятор для Андроид 64-бит
Новый роадмап найдете здесь: https://community.idera.com/developer-tools/b/blog/posts/august-2019-delphi-android-beta-plans-august-roadmap-update

Да, у меня.

Я только не знаю, с чем это связано. Запрос именно на это приложение я отправлял вчера и ответа еще не получил. Но неделю назад отправлял на другие приложения (ответ я в какой-то теме публиковал).
Но вчера на старые мои запросы пришли письма о том, решилась ли моя проблема. И вот я там еще раз написал о том, что хотелось бы получить продление, что у делфи нет компилятора андройд-64, что будет он только осенью или зимой и что выпущу обновление в течение 2-х недель после появления компилятора. Утром пришел формальный ответ, что мол передадим в техническую группу и чуть что - сообщим

Procedure TServerConnectionTH.RecieveData(); // сюда приходя данные со сканера //Data - это данные в виже TBytes //str - строка со считанным штрихкодом var   Intent: JIntent;   str:String; begin   str:=TEncoding.UTF8.GetString(Data);   Form1.DisplayR.Lines.Add(Str);   Form1.DisplayR.GoToTextEnd;   Intent := TJIntent.Create;   Intent.setAction(StringToJString('com.google.android.c2dm.intent.RECEIVE'));   Intent.putExtra(StringToJString('text'),StringToJString('1'));    Intent.putExtra(StringToJString('title'),StringToJString('1C'));    Intent.putExtra(StringToJString('data'),StringToJString(str));    TAndroidHelper.Context.sendBroadcast(Intent); end;  

Восстановил столбец с последними сообщениями. После обновления форума слетел блок.

Да и вот весь код!
procedure TForm4.DraggableImageMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Single); var MoveVector: TVector; begin if FPressed then begin // Вычисляем локальное смещение относительно первоначальной позиции MoveVector := TVector.Create(X - FStartPos.X, Y - FStartPos.Y,0); // Вычисляем смещение в координатах формы, чтобы учесть изменение // координат при смещении родительских контролов MoveVector := DraggableImage.LocalToAbsoluteVector(MoveVector); if DraggableImage.ParentControl <> nil then MoveVector := DraggableImage.ParentControl.AbsoluteToLocalVector(MoveVector); // Перемещаем картинку на вычисленный вектор DraggableImage.Position.Point := DraggableImage.Position.Point + MoveVector.ToPointF; end; end;

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

TestWhatsNew.zip

Кстати есть. TCircle
Задайте ему размер и толщину Stroke и будет вам счастье)

Ну в 10.3 как раз ничем не хуже. Точно также не будет работать.
Как я понимаю, не нужно просто пробежаться от 0 до 100 в прогрессбаре.
Тут приведен просто пример, а на самом деле же нужно выполнять какой-то код в программе, который будет вместо sleep(100), а если это делать, то все встанет колом едва запустившись. И там уже не до progressbar будет, потому что цикл в зависимости значения таймера пойдет как попало. В общем это решения ОЧЕНЬ спорное на мой взгляд.

Ну в 10.3 как раз ничем не хуже. Точно также не будет работать.
Как я понимаю, не нужно просто пробежаться от 0 до 100 в прогрессбаре.
Тут приведен просто пример, а на самом деле же нужно выполнять какой-то код в программе, который будет вместо sleep(100), а если это делать, то все встанет колом едва запустившись. И там уже не до progressbar будет, потому что цикл в зависимости значения таймера пойдет как попало. В общем это решения ОЧЕНЬ спорное на мой взгляд.

научили конечно ))) все придумано до нас
вот статья
вот так в грубом приближении должно это быть 
p.s. Забыл удалить из ваших форм эти циклы, которых там быть не должно
Форма - это интерфейс взаимодействия с пользователем. Данные должны жить отдельно.
test10.3.zip

Можно так
procedure TForm1.Button1Click(Sender: TObject);
begin
   Label1.Text := '2';
  tthread.CreateAnonymousThread(
    procedure
    begin
       sleep(1000);
      tthread.Synchronize( tthread.Currentthread,
        procedure
           begin
              Label1.Text := '3';
           end);
    end).
  Start;
end;
 

tthread.CreateAnonymousThread(procedure     begin      //Асинхронная логика      sleep(xxx);      tthread.Synchronize(nil, procedure begin        (*Oбращения к методам и свойствам визуальных компонентов*)      end);     end).Start;  

С помощью стандартного (тот что в палитре компонентов Delphi) это сделать затруднительно. Вам нужно написать свои реализации классов TMedia и TCustomMediaCodec. Это долгий и муторный путь. Но можно забыть про куцую оболочку Эмбаркадеро под названием TMediaPlayer, и все становиться гораздо проще:
unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, Androidapi.JNI.Media, Androidapi.Helpers, Androidapi.JNI.GraphicsContentViewText, FMX.Controls.Presentation, FMX.StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } FPlayer : JMediaPlayer; public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Button1Click(Sender: TObject); begin FPlayer:=TJMediaPlayer.Create; FPlayer.setDataSource(StringToJString('http://cdndl.zaycev.net/228184/8640962/lana_del_rey_-_hope_is_a_dangerous_thing_for_a_woman_like_me_to_have_but_i_have_it_%28zaycev.net%29.mp3')); FPlayer.prepare; FPlayer.Start(); end; end.  

ребята где бы вы сохранили свой файл текстовый c настройками?

Привет
Вчера была выпущена финальная версия RAD Studio 10.3 Rio, в которой много нововведений для Андройд. Но вот про статусбар снова "забыли". Хотя не совсем, добавили файлик styles-v21.xml, который превносит новую материальную тему на устройствах под управлением Android 5.0 и выше вместо устаревшей Holo.
Но все равно свойство формы SystemStatusBar так и не реализовали. Поэтому при запуске статус бар будет окрашен в унылый серый цвет (см. скриншот).

Для того, чтобы сделать статусбар прозрачным и поместить под него содержимое формы, то достаточно сделать несколько несложных шагов:
1. Убираем из деплоймента (Project -> Deployment) файл styles-v21.xml (можно просто снять галочку рядом с именем файла)

2. Добавить в деплоймент проекта новый файл styles-v21.xml (styles-v21.zip) и прописать ему путь res\values-v21\

3. В результате получится следующий вид

 
P.S. В новом файле по сравнению со стандартным добавилась строчка <item name="android:windowTranslucentStatus">true</item>, которая и отвечает за прозрачный статусбар
P.P.S. Чтобы определять размер статус бара, все также можно воспользоваться решеним ZuBy - http://blog.rzaripov.kz/2016/12/android-ios.html
P.P.P.S. Тестовый проектик - StatusBar.zip

теперь все понятно. спасибо.