Alisson R Oliveira

Да, все работает на основном потоке. Теперь возникает ошибка нарушения памяти после того, как вы начали использовать этот способ Splash, и следующее у меня есть функции, которые находятся в разделе «Public» моего frmPrincipal, который я назвал другой формой ... теперь, когда я вызываю их ошибку доступ к памяти, может кто-нибудь мне помочь ??? Я действительно не знаю, почему эти ошибки, так как во время выполнения я меняю MainForm приложения Application.MainForm: = FrmPrincipal;

Форма Splash с потоком, без потери заголовка? Добрый день, извините, если я публикую неправильный тропик, но я не думаю, что это большое дело для моих сомнений. Я изменяю способ отображения всплеска моего приложения, теперь у меня есть форма всплеска («frmSplash»), которая выполняет всю загрузку. procedure TfrmSplash.FormActivate(Sender: TObject); begin Application.CreateForm(TdmRestClient, dmRestClient); Application.CreateForm(TdmDadosLocais, dmDadosLocais); Application.CreateForm(TdmListaImagens, dmListaImagens); Application.CreateForm(TdmControllerPromocoes, dmControllerPromocoes); Application.CreateForm(TdmControllerOfertas, dmControllerOfertas); Application.CreateForm(TdmControllerEmpresas, dmControllerEmpresas); Application.CreateForm(TdmControllerUsuario, dmControllerUsuario); Application.CreateForm(TfrmPrincipal, frmPrincipal); frmPrincipal.Show; Application.MainForm := frmPrincipal; frmPrincipal.FullScreen := True; Close; end; Поэтому у меня странная ситуация ... так что она отображается только после выполнения всего процесса ... то есть, на экране уходит мало времени, и если я использую Thread, он теряет свойство «Нет TitleBar» ... procedure TfrmSplash.FormActivate(Sender: TObject); begin TTask.Run( procedure() begin TThread.Synchronize(nil, procedure begin Application.CreateForm(TdmRestClient, dmRestClient); Application.CreateForm(TdmDadosLocais, dmDadosLocais); Application.CreateForm(TdmListaImagens, dmListaImagens); Application.CreateForm(TdmControllerPromocoes, dmControllerPromocoes); Application.CreateForm(TdmControllerOfertas, dmControllerOfertas); Application.CreateForm(TdmControllerEmpresas, dmControllerEmpresas); Application.CreateForm(TdmControllerUsuario, dmControllerUsuario); Application.CreateForm(TfrmPrincipal, frmPrincipal); frmPrincipal.Show; Application.MainForm := frmPrincipal; frmPrincipal.FullScreen := True; Close; end); end); конец; Кто-нибудь знает, как использовать Thread, не теряя тему «No TitleBar». благодарный

Я изменил sdk на используемую вами версию. Я сделал изменения, и ошибка все еще осталась, и довольно разочаровывающе. Документация Embarcadero в примере, даже событие «OnDidFinishTaking» прошло, но в вашем и «ноль», по документации и тем, что я прочитал, и правильно, но я все еще получаю ошибку. procedure TForm1.SpeedButton2Click(Sender: TObject); var ImageService: IFMXTakenImageService; Params: TParamsPhotoQuery; begin if TPlatformServices.Current.SupportsPlatformService(IFMXTakenImageService, IInterface(ImageService)) then begin Params.RequiredResolution := TSize.Create(640, 640); Params.OnDidFinishTaking := DoDidFinish; ImageService.TakeImageFromLibrary(SpeedButton2, Params); end; end;

Считаете ли вы, что версия SDK вызывает эту проблему? Потому что это лучшее. Android 9

Все разрешения в порядке ... Какова ваша среда разработки? Я говорю Android SDK и мобильный? Я использую SDK уровня 28 Устройство Asus ZenPone 3

Я заметил, что, позволяя редактировать изображение, проблема становится еще хуже. LImageParams.Editable := True;

Я получаю ошибку при выборе образа библиотеки. Я отправлю свой код Uses //Imagens FMX.MediaLibrary, FMX.platform, System.Messaging; type TfrmUsuario = class(TForm) {...} procedure DoMessageListener(const Sender: TObject; const M: TMessage); private procedure AplicarFoto(Image: TBitmap); procedure TfrmUsuario.FormCreate(Sender: TObject); var dmControllerUsuario: TdmControllerUsuario; begin if not Assigned(dmControllerUsuario) then dmControllerUsuario := TdmControllerUsuario.Create(nil); TMessageManager.DefaultManager.SubscribeToMessage(TMessageDidFinishTakingImageFromLibrary, DoMessageListener); end; procedure TfrmUsuario.FormDestroy(Sender: TObject); begin TMessageManager.DefaultManager.Unsubscribe(TMessageDidFinishTakingImageFromLibrary, DoMessageListener, True); end; procedure TfrmUsuario.actGaleriaRunExecute(Sender: TObject); var LImageService: IFMXTakenImageService; LImageParams: TParamsPhotoQuery; begin if TPlatformServices.Current.SupportsPlatformService(IFMXTakenImageService, IInterface(LImageService)) then begin LImageParams.RequiredResolution := TSize.Create(1024, 1024); LImageParams.Editable := False; LImageParams.NeedSaveToAlbum := False; LImageParams.OnDidFinishTaking := nil; LImageParams.OnDidCancelTaking := nil; LImageService.TakeImageFromLibrary(nil, LImageParams); end else ShowMessage('This device does not support the camera service'); end; procedure TfrmUsuario.DoMessageListener(const Sender: TObject; const M: TMessage); begin try if M is TMessageDidFinishTakingImageFromLibrary then AplicarFoto(TMessageDidFinishTakingImageFromLibrary(M).Value); except end; end; procedure TfrmUsuario.AplicarFoto(Image: TBitmap); begin circleFoto.Fill.Bitmap.Bitmap.Assign(Image); end;

Может быть, это будет немного более конкретным? Я все еще получаю сообщение об ошибке, и приложение перезапустилось

Большое спасибо ... Это очень помогло! Вскоре после прочтения вашего поста я углубился в документацию Embarcadero и нашел этот пример http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Taking_Pictures_Using_FireMonkey_Interfaces (если кому захочется). Посмотрите, можете ли вы мне помочь. Представьте, что в Tform у меня есть 5 разных TImage, где он получает разные изображения, поступающие из библиотек, как работать, поскольку он ссылается только на один объект, чтобы получить TImage procedure TMyForm.ImageFileMessageListener(const Sender: TObject; const M: TMessage); begin try if M is TMessageDidFinishTakingImageFromLibrary then ApplyImage(TMessageDidFinishTakingImageFromLibrary(M).Value); except { code for exception handle } end; end;

Извините, документация Embarcadero для меня немного запутанна. Если я правильно понимаю, предлагает ли я создать ПРОЦЕДУРУ и назначить ее во время выполнения?

привет привет у кого-то были проблемы с «TTakePhotoFromCameraAction» и «TTakePhotoFromLibraryAction» TActions, они используют их как источник входных данных для изображений в приложении. он обычно загружается вскоре после того, как пользователь подтвердит изображение, приложение и перезапустится. Думаю, он думает до или после входа в мероприятие «OnDidFinishTaking». Кто-нибудь знает, как это исправить? Я использую Берлин. благодарный Hello, someone has had problems with the "TTakePhotoFromCameraAction" and "TTakePhotoFromLibraryAction" TActions, they use them as an input source for images in the app. it usually loads soon after the user confirms the image, the app and restarted I believe he thinks before or upon entering the event "OnDidFinishTaking". Does anyone know how to fix it? I'm using Berlin. thankful

Как я могу это сделать? благодарный

Hello, I would like your help. I'm writing an app that has to grab the two predominant pixels of the image and mount a gradient on a Rectangle (as Instagram does in the stories). Anyone know how I can do this? Thank you Привет, я хотел бы помочь. Я пишу приложение, которое должно захватить два преобладающих пикселя изображения и установить градиент на прямоугольник (как показывает Instagram в рассказах). Кто-нибудь знает, как я могу это сделать? спасибо

If I understand you, do you just compare two strings? And does sqlite give you the correct result? It's not making much sense to me ... Here we store only the timeless date ('2018-03-06'). Если я понимаю вас, вы просто сравниваете две строки? И делает ли sqlite правильный результат? Это не имеет большого смысла для меня ... Здесь мы сохраняем только вечную дату ('2018-03-06').

У меня есть таблица с датами (даты в sqlite имеют тип varchar), которые могут помочь мне в том, как мне фильтровать по дате поля с текущей системной даты. Я пробовал во многих отношениях без успеха. спасибо I have a table with dates (dates in sqlite are of type varchar), which can help me in how do I filter by date fields from the current system date. I have tried in many ways without success. Thank you