Активность

JGnssStatus в модуле Androidapi.JNI.GnssStatusCallback.pas был не определен... - я добавил. Но правильно, или нет - вопрос. При попытке выполнить нижеуказанный код вылетает исключение "interface not supported". Что я делаю не так? Код формы: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, FMX.Controls.Presentation,Androidapi.JNI.GnssStatusCallback, System.Android.Sensors, System.Sensors,Androidapi.JNI.Location, FMX.Memo.Types, FMX.ScrollBox, FMX.Memo, Androidapi.JNI.GraphicsContentViewText, Androidapi.JNIBridge, Androidapi.JNI.App, Androidapi.Helpers, Androidapi.JNI.JavaTypes, System.Sensors.Components; type TForm7 = class(TForm) CornerButton1: TCornerButton; Memo1: TMemo; × unit Unit1; LocationSensor1: TLocationSensor; procedure CornerButton1Click(Sender: TObject); private public end; var Form7: TForm7; implementation {$R *.fmx} type TMyGnssStatusCallbackDelegate = class(TJGnssStatusCallbackDelegate) public procedure onFirstFix(ttffMillis: Integer); cdecl; procedure onSatelliteStatusChanged(status: JGnssStatus); cdecl; procedure onStarted; cdecl; procedure onStopped; cdecl; end; procedure TMyGnssStatusCallbackDelegate.onFirstFix(ttffMillis: Integer); begin //... end; procedure TMyGnssStatusCallbackDelegate.onSatelliteStatusChanged(status: JGnssStatus); begin // Событие изменения статуса спутников end; procedure TMyGnssStatusCallbackDelegate.onStarted; begin // Событие запуска отслеживания GNSS end; procedure TMyGnssStatusCallbackDelegate.onStopped; begin // Событие остановки отслеживания GNSS end; procedure TForm7.CornerButton1Click(Sender: TObject); var LocationManager: JLocationManager; LocationProviders: JList; GnssStatusCallbackClass: JGnssStatusCallbackClass; GnssStatusCallback: JGnssStatusCallback; i: Integer; begin try LocationManager := TAndroidHelper.Context.getSystemService(TJContext.JavaClass.LOCATION_SERVICE) as JLocationManager; LocationProviders := LocationManager.getProviders(True); for i := 0 to LocationProviders.size - 1 do begin if (LocationProviders.get(i) as JString).equals(TJLocationManager.JavaClass.GPS_PROVIDER) then begin GnssStatusCallbackClass := TJavaGenericImport<JGnssStatusCallbackClass, JGnssStatusCallback>.JavaClass; GnssStatusCallback := GnssStatusCallbackClass.init(TAndroidHelper.Context, TMyGnssStatusCallbackDelegate.Create); Exit; end; end; except on E: Exception do begin Memo1.Lines.Add('Error checking GNSS status: ' + E.Message); end; end; end; end. Androidapi.JNI.GnssStatusCallback.zip

Применено так, как вы предложили. В методе FormClose. В тестовом примере оказывается ThreadPoolStats.IdleWorkerThreadCount=3 и ThreadPoolStats.WorkerThreadCount=3 Условие не выполняется, программа закрывается с утечкой. Насколько я понял, ThreadPoolStats.IdleWorkerThreadCount хранит кол-во потоков, ожидающих завершения. Если, например, изменить условие на if ThreadPoolStats.IdleWorkerThreadCount>0 то приложение просто невозможно закрыть.

Как применено? Может оно и не вызывается?

Уважаемый Slym, к сожалению предложенный способ результата не дал. Если я правильно понял, условие ThreadPoolStats.IdleWorkerThreadCount<>ThreadPoolStats.WorkerThreadCount является признаком того, что не все таски завершены. При тестировании приложения это условие не выполняется (то есть все такси завершены?), управление передается деструктору главной формы приложения, в котором дается команда на удаление пользовательских объектов. Пользовательские объекты удаляются. Затем выдается сообщение об утечке памяти и приложение закрывается.

Спасибо, попробую

CanFocus := False помогает(объясняет) и 2024 году на Delphi 11.3 Aleksandria. Хорошо что в релизе ошибки не проявляется. В Delphi 12 пробовали?... Благодарю премного!

Надо дождаться завершения тасков например так: procedure TmainForm.FormClose(Sender: TObject; var Action: TCloseAction); begin //wait all tasks finished var ThreadPoolStats:=TThreadPoolStats.Default; if ThreadPoolStats.IdleWorkerThreadCount<>ThreadPoolStats.WorkerThreadCount then begin Action:=TCloseAction.caNone; TThread.ForceQueue(nil, procedure begin Application.MainForm.Close; end,300); end; end;

Здравствуйте, коллеги. Пишу метод десериализации для считывания данных из файла и создания соответствующего объекта в памяти. Для того, чтобы пользователь не скучал, загружаю данные в отдельном потоке, а в главном запускаю TAniIndicator. Данные считываются, объект создается, AniIndicator работает. Но при попытке завершения приложения получаю утечку памяти (см. рис.). Пользовательские объекты я удаляю перед закрытием приложения, но в памяти остаются системные объекты, в том числе из библиотеки PPL. Сокращенный код метода загрузки данных ниже. С чем может быть связана утечка? Для детектирования утечек использую команду ReportMemoryLeaksOnShutdown := True. Если дополнительный поток не использую, утечек нет. procedure LoadProjectFromFile(AFileName: string); var fut: IFuture<TComponent>; cmp: TComponent; begin AniIndic.Enabled := True; AniIndic.Visible := True; fut := TTask.Future<TComponent>( function: TComponent begin Result := LoadFromFile(AFileName); end ); TTask.Run( procedure begin fut.Start; cmp := fut.Value; {$REGION 'После загрузки в главном потоке'} TThread.Synchronize(nil, procedure begin AniIndic.Enabled := False; AniIndic.Visible := False; if Assigned(cmp) then begin if cmp is TCAMProject then begin fProject := cmp as TCAMProject; // здесь всякие действия if Assigned(OnFinishedLoadProject) then begin OnFinishedLoadProject(nil); end; end end end ) {$ENDREGION} end ); end;

Пинг это просто один из вариантов вызвать сервер и чтоб он ответил. Нас интересует сам факт. Иногда вообще факт работающего интернета. Поэтому если на той стороне есть веб-сервер, то ничем не хуже просто сделать на него get запрос var resp := http.get('https://google.com'); ответил - живой. не ответил - либо нет сети, либо сервера

А можно подробнее? в принципе мне не важно куда пинговать, главное чтобы пинг проверить..

Супер!!! Спасибо! А можно пример в проекте? - не пойму как "прикрутить" вызов...

NetworkCallback.rar

Может кому надо Androidapi.JNI.GnssStatusCallback.rar

вот официальный список https://docwiki.embarcadero.com/RADStudio/Alexandria/en/Android_Devices_Supported_for_Application_Development

Подскажите есть устройства на intel x86, приложение висит на логотипе. Какие действия для отладка и вообще поддерживаются ли устройства на этом чипе?

куда пинг

На каком компе?

а веб-сервера нет на нужном компе? все бы стало проще в разы

Спасибо. Еще бы это на делфи как то перевести ((

https://stackoverflow.com/questions/9062182/android-icmp-ping?rq=4

Предоставил все разрешения, которые только можно, все равно ошибка сокета ((

думаю, нужно 1) установить в манифесте нужные разрешения 2) возможно нужно запрашивать разрешение у пользователя на эту деятельность точнее только в доках на developers.android.com https://stackoverflow.com/questions/58039309/android-permissions-for-pinging-network

Доброго всем. Подскажите пожалуйста. Мне по работе надо зачастую проверять ping, ноутбук не всегда удобно использовать, поэтому решил сделать приложение для телефона. Использовал следующий код: procedure TForm1.Button1Click(Sender: TObject); begin IdIcmpClient1.Host:='173.194.73.138'; IdIcmpClient1.Ping; end; procedure TForm1.IdIcmpClient1Reply(ASender: TComponent; const AReplyStatus: TReplyStatus); begin ListBox1.Items.Add (' Ответ '+IntToStr (AReplyStatus.MsRoundTripTime) +' TTL='+IntToStr (AReplyStatus.TimeToLive) ); end; В windows работает как надо, под андроидом выдает ошибку - Socket Error # 1. Как с этим бороться, что делать? Заранее благодарю.

Я столкнулся с похожей проблемой из-за несовместимости 12й Rad Studio с 8й версией jdk. Переустановил jdk 19й. Отредактировал SDK и все заработало.

FMX / 11.3 Собственно вот, делаю в потоке скриншот и отрисовываю каждые 30 ms на прямоугольник, но жрет память как не в себя. Вопрос такой если у webbrowser нет канвы, как отрисовать WebBrowser на другом контроле. mapControl.cashBitmap := Form1.wb1.CaptureBitmap; TmpCanvas := TCanvasManager.CreateFromBitmap(lwMap.Fill.Bitmap.Bitmap, TCanvasQuality.HighPerformance); TmpCanvas.BeginScene(); TmpCanvas.DrawBitmap(mapControl.cashBitmap , mapControl.cashBitmap .BoundsF, lwMap.Fill.Bitmap.Bitmap.BoundsF, 1); TmpCanvas.EndScene;