Активность

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;

обычно XML/JSON/etc - это чисто транспортный формат, поэтому ручное его редактирование - странная вещь по идее программа должна подготовить объекты и структуры и упаковать их в XML и наоборот - парсить XML, чтобы получить объекты с редактированием самого текста отлично справляются внешние редакторы, бесплатные, которых просто мильон - notepad++, microsoft xml notepad и разные другие, включая online. неясно, для чего этот функционал в своей программе из компонентов-редакторов подсветкой есть synedit

Запили свой собственный редактор

Программка и задумывается для редактирования и перевода строк.

если не надо редактировать, то просто в HTML выгнать и все

без тестового проекта и файла... даже сравнить не с чем.