krapotkin

13 часов назад, Delpher-X сказал:

Где именно? 

ProcessMessages оставим в VCL. Не будет тут так работать.

Если вычисления в таймере то оно и так нормально должно работать. Значит, что-то умалчивается.

  TForm2 = class(TForm)
    tmr1: TTimer;
    lbl1: TLabel;
    procedure tmr1Timer(Sender: TObject);
  private
  public
    pc: integer;
  end;

var
  Form2: TForm2;

implementation


{$R *.fmx}


procedure TForm2.tmr1Timer(Sender: TObject);
begin
  if pc > 10 then
  begin
    tmr1.Enabled := false;
    exit;
  end;
  lbl1.Text := format('%d%%', [pc * 10]);
  inc(pc);
end;

Вот простейший код. Все обновляется.

проблема в том, что вы пишете "компиляция не работает", а на экране написано совсем другое...

и перевести вы в состоянии, просто не желаете. ну а мы и тем более.

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

кроме всего прочего, тут уже не раз и не два писали, что запуск на эмуляторе 1) совершенно не информативен 2) в последних версиях и вовсе не будет работать

если честно, вот вообще непонятна цель "статьи"

насколько я понимаю, никому из юзеров не интересно и не узнать ни за что, нативна его программа или нет

важно, во сколько обошлась разработка, какие есть ограничения, и другие подобные штуки

у более-менее свежих делфи вроде без проблем удаление проходит штатными средствами

и две версии живут вместе тоже нормально например 10.3 и 10.4

Бывает. На функционал обычно не влияет. В делфи как всегда для исправления ошибок - берите версию поновее.

Может сторонние пакеты типа CnWizards или типа того есть. Тоже могут влиять.

мир отладки на всем кроме Windows, крайне жесток

...

иногда помогает каст string(переменная)

но это неточно

spinbox ?

В 11.10.2021 в 23:36, Delpher-X сказал:

Поподробнее, пожалуйста. 

var

http: THttpClient;

pesp: IHttpResponse;



http := THttpClient.Create;
try

  resp := http.head(URL);
except

 on e: exception do

begin

   showmessage(e.message);

end;

end;

http.free;

а на андроид как выглядит панель задач?

самая простая проверка - это попытка просто что-то заведомо существующее запросить

например

http.head('https://www.google.com')

т.е. просто ОГРОМНЫМИ БУКВАМИ НА ВЕСЬ ЭКРАН ????

ну тут да только скейлинг )))

очень странная проблематика

любое приложение должно быть адаптировано к тому, что размер экрана, на котором оно запускается, может быть самым разнообразным, ну естественно, в каких-то адекватных рамках

на текущий момент разрешения колеблются +- от 720x1200 до 2000x4000 с масштабированием от 1 до 3.

1.333 любит например Самсунг

так что используйте Align, контейнеры layouts и проектируйте интерфейс адаптивным

если снизу в скролл добавить пустой элемент достаточной высоты, особо проблем не возникает

или я что-то не понимаю?

https://en.delphipraxis.net/topic/1788-android-fileuriexposedexception-file/

теперь работа с файлами сделана через отдельную .опу поэтому ссылки вида file:// не пройдут

я вот тут игрался с этим 

я две ссылки положил. там готовый код

или что не так?

в папке Sources где ему еще быть

ну и тут вроде решена задача

https://en.delphipraxis.net/topic/4564-trying-to-share-a-text-file/

http://aziga.x10.mx/delphi/index.php?option=com_content&view=article&id=23&Itemid=27

насколько я навскидку вижу из исходников FMX.MediaLibrary.Android; TSharingManagerAndroid.AddImage

если вместо '.png' указать что-то другое, то будет то что нужно

не проверял конечно, но просто покопайтесь в этом коде, скопируйте к себе в папку программы этот файл, добавьте его явно  в проект и замените png на txt например

если все правильно понимаю, выведется другой список приложений

\Samples\Object Pascal\Mobile Snippets\ShareSheet

в примерах делфи есть такой пример, если не ошибаюсь, там, где фото делают

1. делаем в коде Ctrl+клик по TransferType попадаем в модуль IdFTP выясняем что тип TransferType : TIdFTPTransferType

2. делаем Ctrl+ клик по TIdFTPTransferType и попадаем в модуль IdFTPCommon

3. этот модуль вписываем в uses нашего откуда мы начали это увлекательное путешествие.

4*. (опциональное) в современных версиях принято не просто указывать константу, а еще и тип, чтобы работало автодополнение

тогда строка выглядит как

ftpbot.TransferType := TIdFTPTransferType.ftBinary;

------------------------------------
Но вообще это какбэ азы совсем.

а что должна обозначать эта запись???

вот конструкции, которые что-то значат

FTPBot.TransferType := ftBinary;

if FTPBot.TransferType = ftBinary then

уберите логику Suspend и все будет нормально работать