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;

В 24/05/2018 в 21:13, Alex Bozhko сказал:

Encontrei a resposta. Desculpe

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

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

благодарность

В 30/10/2018 в 04:20, Равиль Зарипов (ZuBy) сказал:

Нужно положить файлы которые просит компилятор в папку где лежит ModernLV.

 

ModernLV не тестировался с LiveBindings и често не уверен что вообще будет работать

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

38 минут назад, Barbanel сказал:

 

1) Попробуйте найти версию ModernListView для Berlin
2) Обратитесь к автору
3) Удалите несуществующие функции сами

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

12 минут назад, Barbanel сказал:

O FMX.ListView também é apenas um?
Tem certeza?
Verifique, procure os dois arquivos em todos os caminhos disponíveis para o Delphi.

Talvez você tenha várias versões do Delphi instaladas. Verifique o caminho neste caso.

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

4 часа назад, Barbanel сказал:

Данная ошибка не означает что Live Bindings глючная.

Возможны два варианта.

1) Вы используете локализацию.
Такое сообщение означает, что локализованная версия одного из pas-файлов отличается от основной версии.
К сожалению, встречается ситуация, когда Embacadero модифицирует основную ветку кода, добавляет новые константы, а в локализованной ветке эти константы добавить забывает.
Вам нужно найти эти файлы и привести к единому виду.

2) Вы сами (либо люди, которые работали над проектом до вас) модифицировали эти файлы. Решение проблемы - аналогично пункту 1.

Удачи!

PS. настоятельно рекомендуется после исправления сделать очистку проекта от временных dcu файлов.
В дереве проектов выбрать главный .dpr -> клик правой кнопкой мышки -> Clear

 

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

2 часа назад, wamaco сказал:

Não use LiveBinds, isso é uma coisa feroz, maligna e inacabada! 

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

В 26/03/2017 в 07:42, Равиль Зарипов (ZuBy) сказал:

Existe um pequeno projeto com um modo horizontal no artigo, se você não conseguir implementá-lo, então eu vou ajudar

http://blog.rzaripov.kz/2016/11/1-modernlistview.html

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

Это использование версии версии 10.2 в Берлине 2, должно решить такую вещь

 

18 часов назад, GASCHE сказал:

А чем второй способ отличается от первого если после 

все выполняется в основном потоке?

Да, все работает на основном потоке.

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

благодарный

1 час назад, Tumaso сказал:

Eu não testei aplicativos no Android 9, por isso não estou pronto para informá-lo

Я изменил 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;

27 минут назад, Tumaso сказал:

O Android / iOS não permitirá que você execute 2 ou mais caixas de diálogo de seleção de imagens da biblioteca ao mesmo tempo. Portanto, a tarefa é trivial - antes de chamar TakeImageFromLibrary, lembre-se de TImage (de qualquer forma), em que você precisará colocar a imagem. E em ApplyImage no valor salvo você determina em qual TImage para entrar.

 Ao receber a imagem da câmera - aqui você precisa usar o TCameraComponent (ele funciona de forma estável).

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

4 часа назад, Tumaso сказал:

Пример моего кода:

interface 

type
  TMyForm = class(TForm)
    { ... }
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    {$IFDEF ANDROID}
    procedure ImageFileMessageListener(const Sender: TObject; const M: TMessage);
    {$ENDIF}
    {$IFDEF IOS}
    procedure ImageFileFinish(Image: TBitmap);
    {$ENDIF}
    procedure ImageFromLibraryClick(Sender: TObject);
    { ... }
  private
    { ... }
    procedure ApplyImage(Image: TBitmap);
    { ... }
  end;

implementation

procedure TMyForm.FormCreate(Sender: TObject);
begin
{$IF DEFINED(ANDROID)}
  TMessageManager.DefaultManager.SubscribeToMessage(TMessageDidFinishTakingImageFromLibrary, ImageFileMessageListener);
{$ENDIF} 
end;

procedure TMyForm.FormDestroy(Sender: TObject);
begin
{$IF DEFINED(ANDROID)}
  TMessageManager.DefaultManager.Unsubscribe(TMessageDidFinishTakingImageFromLibrary, ImageFileMessageListener, True);
{$ENDIF} 
end;

{$IFDEF ANDROID}

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;

{$ENDIF}

{$IFDEF IOS}

procedure TMyForm.ImageFileFinish(Image: TBitmap);
begin
  try
    ApplyImage(Image);
  except
    { code for exception handle }
  end;
end;

{$ENDIF}

procedure TMyForm.ImageFromLibraryClick(Sender: TObject);
{$IF DEFINED(ANDROID) OR DEFINED(IOS)}
var
  LImageService: IFMXTakenImageService;
  LImageParams: TParamsPhotoQuery;
{$ENDIF}
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXTakenImageService, IInterface(LImageService)) then
  begin
    LImageParams.RequiredResolution := TSize.Create(1024, 1024);
    LImageParams.Editable := False;
    LImageParams.NeedSaveToAlbum := False;
    // под Android обработчик OnDidFinishTaking указывать нельзя, т.к. это может привести к рестарту программы
    // см. http://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.MediaLibrary.TMessageDidFinishTakingImageFromLibrary
    LImageParams.OnDidFinishTaking := {$IFDEF IOS}ImageFileFinish{$ELSE}nil{$ENDIF};
    LImageParams.OnDidCancelTaking := nil;
    LImageService.TakeImageFromLibrary({$IFDEF IOS}ImageFile{$ELSE}nil{$ENDIF}, LImageParams);
  end
  else
    raise Exception.Create('No image library access');
end;

procedure TMyForm.ApplyImage(Image: TBitmap);
begin
  { code for received 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;

В 15/08/2018 в 05:01, Tumaso сказал:

O wiki do Embarcadero: http://docwiki.embarcadero.com/Libraries/Berlin/en/FMX.MediaLibrary.TMessageDidFinishTakingImageFromLibrary

 

Извините, документация 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

В 24/05/2017 в 23:28, Равиль Зарипов (ZuBy) сказал:

Ao abrir / rolar no aplicativo, limpe o buffer

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

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