Alisson R Oliveira

good morning, guys i have the following problem, i have a twebbrowser loading pages of reports, however i need to export and save the contents of the page to pdf, can someone help me? thankful Доброе утро, ребята, у меня следующая проблема, у меня есть twebbrowser, загружающий страницы отчетов, однако мне нужно экспортировать и сохранить содержимое страницы в pdf, кто-то может мне помочь? благодарный

Сначала извините за создание этого поста здесь, так как я не нашел форум для TLayout Мои сомнения и следующие у меня есть TVertScrollBox, где я добавляю карты (TRectangle) и некоторые макеты (TLayout) во время выполнения. У меня проблемы с удалением макетов, которые они выдают из-за приложения. DisposeOf просто не работает First sorry for creating this post here as I didn't find a forum for TLayout My doubt and the following I have a TVertScrollBox where I add cards (TRectangle) and some layouts (TLayout) at runtime. i'm having trouble destroying the layouts they app gives me an error DisposeOf just doesn't work procedure TForm1.Button1Click(Sender: TObject); var I, II: Integer; begin for I := VertScrollBox1.ControlsCount - 1 downto 0 do begin if VertScrollBox1.Controls.ClassType = TScrollContent then begin for II := VertScrollBox1.Controls.ControlsCount - 1 downto 0 do begin if VertScrollBox1.Controls.Controls[II].ClassType = TRectangle then begin VertScrollBox1.Controls.Controls[II].DisposeOf; end; if VertScrollBox1.Controls.Controls[II].ClassType = TLayout then begin // VertScrollBox1.Controls.Controls[II].DisposeOf; end; if VertScrollBox1.Controls.Controls[II].ClassType = TCalloutRectangle then begin VertScrollBox1.Controls.Controls[II].Parent := nil; end; end; end; end; end;

можете ли вы опубликовать решение? благодарный

Доброе утро, извините, если этот тропик уже существует, но я его не нашел. Моя проблема в следующем. У меня есть приложение, написанное в Берлине, и оно вызывает другое приложение для «попытки» до нормальной проблемы, и когда оно снова фокусируется на приложении и снова открывается, как будто оно еще не загружено, вся информация, сделанная до сих пор и потерянная. Может ли кто-нибудь помочь мне решить эту проблему? благодарность

Большое спасибо, что, копируя файл, delphi перестала жаловаться. Поздравляем за работу.

Вот почему я разместил здесь. Автор и http://fire-monkey.ru/profile/59-равиль-зарипов-zuby/

У меня есть только одна версия Delphi (Берлин). Единственное, что было добавлено, это библиотека ModernListView, не так ли, если вы это знаете? Больше и только 1 .pas файлы в дополнение к оригиналу. только это

Существует только один файл «Fmx.Bind.Editors». Когда я добавляю FML.ListView.pas из ModernListView, который представляется мне, тогда файл ModernListView pas использует функции, которых он не имеет в версии Fmx.Bind.Editors в Берлине...

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

Привет, я начал вчера изучать ModernListView для использования в проекте, мне это действительно нравится. Но со мной происходит следующее, когда я использую LiveBinds на некоторых элементах управления, он возвращает мне сообщение [ dcc32 Fatal Error] xx.pas (16): F2051 Блок Fmx.Bind.Editors был скомпилирован с другой версией FMX.ListView.TCustomListView Это использование версии версии 10.2 в Берлине 2, должно решить такую вещь

Да, все работает на основном потоке. Теперь возникает ошибка нарушения памяти после того, как вы начали использовать этот способ 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