delcpy

Используйте ontap https://docwiki.embarcadero.com/Libraries/Sydney/en/FMX.Forms.TForm.OnTap

Не могу понять почему не рисует линию. Что я делаю не так type TForm1 = class(TForm) Panel1: TPanel; Button2: TButton; Viewport3D1: TViewport3D; procedure Dummy2Render(Sender: TObject; Context: TContext3D); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Button2Click(Sender: TObject); begin Dummy2Render(Sender, Viewport3D1.Context); end; procedure TForm1.Dummy2Render(Sender: TObject; Context: TContext3D); begin Context.BeginScene; try Context.DrawLine(TPoint3D.Create(3, 3, 0), TPoint3D.Create(3, -3, 0), 1, TAlphaColorRec.Red); finally Context.EndScene; end; end;

Сделайте задержку в скетче на секунду (delay(1000)), что бы ваш текст успел собраться из потока в одно целое. Блютуз делает постоянный обмен с подключением к устройству через микросекунды из-за чего одна часть в одно время падает, а друга в другое и по этому идет 2 строками.

Проблема в подключении драйверов баз данных. На windows все работает а вот на android выходит ошибка. Если у кого есть решения данной проблемы напишите.

Обновил Delphi с 11 до 12 версии и по многим проектам при компиляции на Android появилась много ошибок их прикладываю ниже. Объекты горят куда писать о этих ошибках?!?!?! В 11 версии все работало как швейцарские часы После установки 12 версии сделал следующие 1. Clean; 2. Revert System Files to Default; 3. Artwork Generator. [DCC Error] E2597 c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(eng_init.o):eng_init.c:function engine_unlocked_init: error: undefined reference to '__sync_fetch_and_add_4' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(eng_init.o):eng_init.c:function ENGINE_init: error: undefined reference to '__sync_fetch_and_add_4' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(eng_lib.o):eng_lib.c:function ENGINE_new: error: undefined reference to '__atomic_store' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(eng_lib.o):eng_lib.c:function engine_free_util: error: undefined reference to '__atomic_fetch_sub_4' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(eng_lib.o):eng_lib.c:function engine_free_util: error: undefined reference to '__sync_fetch_and_sub_4' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(eng_lib.o):eng_lib.c:function engine_free_util: error: undefined reference to '__sync_synchronize' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(eng_list.o):eng_list.c:function ENGINE_get_first: error: undefined reference to '__sync_fetch_and_add_4' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(eng_list.o):eng_list.c:function ENGINE_get_last: error: undefined reference to '__sync_fetch_and_add_4' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(eng_list.o):eng_list.c:function ENGINE_up_ref: error: undefined reference to '__atomic_fetch_add_4' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(threads_pthread.o):threads_pthread.c:function CRYPTO_atomic_add: error: undefined reference to '__atomic_is_lock_free' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(threads_pthread.o):threads_pthread.c:function CRYPTO_atomic_add: error: undefined reference to '__atomic_fetch_add_4' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(bio_lib.o):bio_lib.c:function BIO_new: error: undefined reference to '__atomic_store' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(bio_lib.o):bio_lib.c:function BIO_free: error: undefined reference to '__atomic_fetch_sub_4' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(bio_lib.o):bio_lib.c:function BIO_free: error: undefined reference to '__sync_synchronize' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(bio_lib.o):bio_lib.c:function BIO_up_ref: error: undefined reference to '__atomic_fetch_add_4' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(bio_lib.o):bio_lib.c:function BIO_free_all: error: undefined reference to '__atomic_load' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(bio_lib.o):bio_lib.c:function BIO_dup_chain: error: undefined reference to '__atomic_load' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(bio_meth.o):bio_meth.c:function BIO_get_new_index: error: undefined reference to '__atomic_fetch_add_4' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(dh_lib.o):dh_lib.c:function DH_new_method: error: undefined reference to '__atomic_store' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(dh_lib.o):dh_lib.c:function DH_free: error: undefined reference to '__atomic_fetch_sub_4' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(dh_lib.o):dh_lib.c:function DH_free: error: undefined reference to '__sync_synchronize' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(dsa_lib.o):dsa_lib.c:function DSA_new_method: error: undefined reference to '__atomic_store' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(dsa_lib.o):dsa_lib.c:function DSA_free: error: undefined reference to '__atomic_fetch_sub_4' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(dsa_lib.o):dsa_lib.c:function DSA_free: error: undefined reference to '__sync_synchronize' c:\\program files (x86)\\embarcadero\\studio\\23.0\\lib\\Android\\Release/libibtogo.a(eng_ctrl.o):eng_ctrl.c:function ENGINE_ctrl: error: undefined reference to '__atomic_load' [DCC Fatal Error] F2588 Linker error code: 1 ($00000001)

Спасибо. Вот так сработало FPairedDevices := Bluetooth.CurrentManager.GetPairedDevices; if FPairedDevices.Count > 0 then for I:= 0 to FPairedDevices.Count - 1 do ListBox.Items.Add(FPairedDevices[I].DeviceName)

Проблема решена после обновления XCode до 15.1 и macOC до Sonoma 14.2.1.

Всем привет. Решил первый раз использовать Bluetooth1. При прочтении документации, статей и видео так и не понял почему на Android не работает, в чем причина? Проверил на 7 разных телефонах. Из всего понял, что для обнаружения устройство достаточно лишь кода который прикладываю. почему не находит устройство? Где мой косяк? unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, System.Bluetooth, FMX.StdCtrls, FMX.Controls.Presentation, FMX.Edit, System.Bluetooth.Components, FMX.Memo.Types, FMX.ScrollBox, FMX.Memo, FMX.Layouts, FMX.ListBox; type TForm1 = class(TForm) Button1: TButton; ListBox: TListBox; Bluetooth: TBluetooth; procedure Button1Click(Sender: TObject); procedure BluetoothDiscoveryEnd(const Sender: TObject; const ADeviceList: TBluetoothDeviceList); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.BluetoothDiscoveryEnd(const Sender: TObject; const ADeviceList: TBluetoothDeviceList); var i: integer; begin ListBox.Items.Clear; for i := 0 to ADeviceList.Count - 1 do ListBox.Items.Add(ADeviceList[i].DeviceName); end; procedure TForm1.Button1Click(Sender: TObject); begin Bluetooth.Enabled := True; Bluetooth.DiscoverDevices(5000); end; end.

Можешь вот так попробовать https://youtu.be/OVj-FnE9RYU

Купил себе Mac на камне Intel i7 и не могу запустить симулятор IOS, выдает следующую ошибку: Cannot create file "\\?\UNC\Mac\Home\Documents\Embarcadero\Studio\SDKs\iPhoneSimulator16.4.sdk\usr\include\c++\v1\__string". Отказано в доступе Нашел вот эту статью https://docwiki.embarcadero.com/RADStudio//Alexandria/en/Running_Your_iOS_Application_on_the_iOS_Simulator Я так понимаю что симулятор на Delphi работает только на процессорах ARM или я что то не так делаю? Приложения под maсOS Ventura 13.5 запускаются на ура, а на iPhoneSimulator не хочет. На картинке выделил путь, который если отключаешь файлы обновляются и ошибки нету, но симулятор так и не работает. Где про это можно почитать и что делать?

System.UIConsts

Всем привет. На днях приуныла винда и теперь не могу установить лицензию. Техническая поддержка отписывается якобы нужно написать на почту renewals@idera.com но от туда не приходит ответ. Звонил на номер тех. поддержки России там всё молчит. Как ещё можно продлить лицензию или переустановить.

Delphi- Remote Notification - Android 720p.mp4

Не помогло. Мне нужно что бы приложение каждый день в назначенное время показывало уведомление. Ищу решение.

По внесению изменений времени в TimeEdit не запускается в назначенное время уведомление. Подскажите в чем косяк. procedure TfrmMain.teNotificationChange(Sender: TObject); var MyNotification: TNotification; MyHour, MyMin, MySec, MyMilli: Word; begin // Setup notification DecodeTime(teNotification.Time, MyHour, MyMin, MySec, MyMilli); MyNotification := NotificationCenter.CreateNotification; try // MyNotification.Number := 1; MyNotification.Name := 'AlerNotification'; MyNotification.Title := 'Выйте из приложения!!!'; MyNotification.AlertBody := 'Начинается копирование базы данных'; MyNotification.EnableSound := True; MyNotification.FireDate := EncodeTime(MyHour, MyMin, 0, 0); NotificationCenter.ScheduleNotification(MyNotification); MyNotification.Free; finally MyNotification.DisposeOf; end;

Сам накосячил. Уже разобрался. var tMyFile: TextFile; sFileName: string; sMyString: string; sFileName := Tpath.GetDocumentsPath + PathDelim + 'ip.txt'; AssignFile(tMyFile, sFileName); Rewrite(tMyFile); Writeln(tMyFile, sMyString); Readln(tMyFile, sMyString); CloseFile(tMyFile); edtIP.Text:=sMyString ;

Приложение для android i/o error 104 Данная ошибка появляется если добавить read или readlen В Deployment добавил в .\assets\internal USES System.IOUtils; var tMyFile: TextFile; sFileName: string; sMyString: string; procedure TfrmMain.Button1Click(Sender: TObject); begin sFileName := Tpath.GetDocumentsPath + PathDelim + 'ip.txt'; sMyString := edtIP.Text; AssignFile(tMyFile, sFileName); Rewrite(tMyFile); Writeln(tMyFile, sMyString); Readln(tMyFile, sMyString); CloseFile(tMyFile); end;

Пробивал, не работает. Здесь почему-то пропадает события в TActionList остаётся только OnUpdate

Возможно я ошибаюсь за неимением большого опыта, но если вTabControl делать больше табов то вес программы становится 110, а за счет фреймов уменьшается до 84. Если есть другое решение то подскажите.

Платформа Android У программы на главной форме установлен TabControl из двух табов и TGestureManager и TActionList. В один из табов загружаются разные Frames (фреймы) по ситуации у которых в свою очередь тоже есть TabControl из пяти табов. Фреймы видят первую форму, на которой установлен TGestureManager и TActionList их тоже видно. Все везде завязано и перевязано, но не работает жестs листание в право или в лево, когда происходит загрузка фреймов. В чем причина? Если делать без фреймов все работает. Ну фреймы мне очень нужны дабы облегчить вес программы. Я так понимаю почему то отключаются события в TActionList если выбрать путь в фрейму. test.zip

Всем спасибо. Не знаю в чем была причина но через неделю попробовал опять выложить всё получилось.

Да вот не получается выложить, просит что бы 64-x битное приложение было.

Всем привет. Хочу запустить программу в гугл маркет, а на последней стадии выдает вот такое. Что надо сделать, что бы убрать данное сообщение?

Я думаю примерно вот так будет. uses System.IOUtils; procedure TMyForm.sbPlayClick(Sender: TObject); begin MediaPlayer.FileName:= TPath.GetDocumentsPath + PathDelim +'grouse_boy.mp3'; MediaPlayer.Play; tbRjabhucMusicTrek.Max := MediaPlayer.Duration; end; procedure TMyForm.sbStopClick(Sender: TObject); begin MediaPlayer.Stop; MediaPlayer.CurrentTime := 0; end; procedure TMyForm.Timer1Timer(Sender: TObject); begin tbRjabhucMusicTrek.Value := MediaPlayer.CurrentTime; end;

Всем привет. Подскажите что делаю не так. Выходит ошибка Invalid class typecast. 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.Objects, FMX.Controls.Presentation, FMX.StdCtrls; type TForm1 = class(TForm) Switch: TSwitch; Rectangle: TRectangle; Selection: TSelection; procedure SwitchSwitch(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.SwitchSwitch(Sender: TObject); begin { (Sender as TSelection).HideSelection := not(Sender as TSelection).HideSelection; (Sender as TSelection).HitTest := not(Sender as TSelection).HitTest; (Sender as TRectangle).HitTest := not(Sender as TRectangle).HitTest; } if Switch.IsChecked = true then begin (Sender as TSelection).HideSelection := false; (Sender as TSelection).HitTest := true; (Sender as TRectangle).HitTest := false; end else begin (Sender as TSelection).HideSelection := true; (Sender as TSelection).HitTest := false; (Sender as TRectangle).HitTest := true; end; end; end. Новая папка.zip