Перейти к содержанию
Fire Monkey от А до Я

#WAMACO

Пользователи
  • Постов

    776
  • Зарегистрирован

  • Посещение

  • Победитель дней

    27

Сообщения, опубликованные #WAMACO

  1. 8 минут назад, Maka сказал:

    так и делаю, и вопрос в том и заключается, как ее правильно заранее подготовить

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

  2. CRC32B получаю так (использую indy)

    на форме edit1 (исходная строка), edit2 (результат - crc32b хэш)

    uses
      ...
      IdGlobal,
      IdHash, IdHashCRC, IdHashMessageDigest,
      ...
      ;
    
    type
      TForm1 = class(TForm)
        Edit1: TEdit;
        Edit2: TEdit;
        Button2: TButton;
        procedure Button2Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.fmx}
    
    procedure TForm1.Button2Click(Sender: TObject);
    var
      IdHash: TIdHashCRC32;
    begin
      IdHash := TIdHashCRC32.Create;
      Edit2.Text := IdGlobal.IndyLowerCase(IdHash.HashStringAsHex(Edit1.Text));
    end;

    Вопрос: 

    1. Как получить CRC32 (сейчас только CRC32B)

    2. Как сгенерировать CRC32 и CRC32B не используя Indy?

    ВАЖНО! Решение должно быть кросс-платформа. 

  3. 18 часов назад, Yuriy2606 сказал:

    Добрый день. Та же проблема. Бьюсь уже 3 дня. Уже думаю уходить на Android Studio ? Смогли решить? Или может кто-то подскажет...

    Сходите на Android Studio! После мытарств там, ждем обратно! ?

    По-делу.... что конкретно не получается?

  4. Уххх...  да...

    Рекомендация. 

    1. Уберите "вырви глаз" синий цвет шрифта.

    2. Не используйте  Windows иконки. Смотрятся убого.

    Это для начала...

    Почитайте про Material Design. В сети информации полно.

  5. 2 часа назад, Юрий Гусач сказал:

    Sorry! Когда я задавал вопрос по поводу проблем с  ошибками 'Could not load SSL', у меня была такая ситуация. Есть смартфон, работающий  как система сбора экспериментальных данных от некоторых блютусных датчиков.  Данные собираются, визуализируются и пишутся в виде двоичных файлов в память смартфона  вполне успешно.  В принципе все  хорошо, но хочется оперативно отсылать данные таким образом, чтобы у пользователя был минимум манипуляций, у него бывают руки заняты.  Программа поначалу просто отправляла файлы как вложения e-mail. Но на первом же смартфоне с седьмым андроидом отказалась загружать SSL. Я и обратился сюда, взывая о помощи,как можно относительно быстро и  просто решить эту проблему.  Я не адепт Indy и не обязательно использовать именно его. Сайта компании нет и сервера компании тоже нет, так как нет никакой компании, есть отдельные пользователи и их смартфоны. Программа помогает людям в их жизни, пишется на общественных началах.  Лично мне это не представляется в принципе глупым. То что написал Zuby понятно и спасибо за это. Но не понятно, что делать с этим мне в конкретной ситуации.  Кстати мне не удалось перейти по ссылке от @Energy, чтобы посмотреть на его пример,так как ссылка не открылась. У меня появилась легкая печаль... 

    .

     

    НЕ отчаивайтесь, Вам просто надо найти нужную версию SSL файла. Тут была ссылка на файловый архив разработчиков Indy, качаете оттуда и все работает как часы.  Проверено.

    Дать ссылку не могу, т.к. пишу в "полевых" условиях. Ничего под руками нет. Поищите тут на форуме по слову Indy.

  6. 10 часов назад, ENERGY сказал:

    Смысл от такого функционала, если через неделю он не будет работать, причем разработчик об этом не будет знать, т.к. письма не будут доходить. А так, да, заказчик должен арендовать хостинг, 2-3$ в месяц не такая большая цена, где все есть "в пакете" и уже готово к работе. Причем на хостинге обычно и база находится и\или вебсайт.

    Слишком много ЕСЛИ.... 

    Задачи разные бывают и приложения тоже. Мы говорим про конкретную задачу отправки письма из приложения. Способов несколько, использование Indy позволяет это сделать без стороннего хостинга.

    А через неделю и Ваш хостинг может загнуться, ввиду не оплаты, форс мажора и т.д.

  7. 2 минуты назад, ENERGY сказал:

    Посмотрите на пример Indy наверху. Там написано: 

      SMTP.Host := 'smtp.yandex.ru';
    Вот про него я и говорю, что бесплатный SMTP сервер это очень нестабильная вещь, и забанить там могут в любое время, по любой причине. Кстати, smtp.yandex.ru в Украине не будет работать.

    Это просто Вам, как пример! Еще раз... отправить письмо надо! Сервера нет! (нет денег содержать, нет возможностей и т.д.)

    Вы сделали приложение, передали заказчику, там функционал отправки письма! Кто оплачивает сей фуршет по отправке? ?

    Вы держите сервер и всех там обслуживаете?

  8. 23 минуты назад, ENERGY сказал:

    Ну как это напрямую, на деревню дедушке что-ли? На SMTP сервер же. А где вы его берете? Не бесплатными же пользоваться, которые могут забанить в любое время, по любым причинам, с лимитированным кол. писем.

    Я из программы вызываю https://mysite.com/sendemail.php  с post параметрами. Все шифруется с https. И дальше уже заботы PHP скрипта и сервера.

     

     

    По-моему, Вы не знаете, как работает Indy. Используя эти компоненты, можно послать письмо, минуя свой сервер, вы сразу настраиваете параметры отсылки, аналогично, любому почтовому клиенту и отсылаете письмо! 

    например, я не знаю и знать не хочу PHP и сервера у меня нет! как мне отослать письмо с приложения? INDY спешит на помощь!

    Вот пример:

    var
      SMTP    : TIdSMTP;
      msg     : TIdMessage;
      SSLOpen : TIdSSLIOHandlerSocketOpenSSL;
    begin
      SMTP := TIdSMTP.Create(Application);
      SMTP.Host := 'smtp.mail.ru';
      SMTP.Port := 465;
      SMTP.AuthType := satDefault;
      SMTP.Username := 'моя почта@mail.ru';
      SMTP.Password := 'пароль от моей почты ';
     
      //это необходимо использовать для SSL
      SSLOpen := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
      SSLOpen.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);
      SSLOpen.Host := SMTP.Host;
      SSLOpen.Port := SMTP.Port;
      SSLOpen.DefaultPort := 0;
      SSLOpen.SSLOptions.Method := sslvSSLv23;
      SSLOpen.SSLOptions.Mode := sslmUnassigned;
     
      SMTP.IOHandler := SSLOpen;
      SMTP.UseTLS := utUseImplicitTLS;
     
      msg := TIdMessage.Create(Application);
      msg.Subject := 'Проверка почты';
      msg.From.Address := 'моя почта@mail.ru';
      msg.From.Name := 'AlexF';
      msg.Recipients.EMailAddresses := 'почта получателя@yandex.ru';
     
      SMTP.Connect;
      if SMTP.Connected then
        begin
          SMTP.Send(msg);
          ShowMessage ('Сообщение отправлено');
        end else
          ShowMessage ('Не удалось отправить сообщение');
      SMTP.Disconnect();
      SMTP.Free;
      msg.Free;
    end;
  9. 2 минуты назад, ENERGY сказал:

    В смысле сервера нет? А через какой SMTP тогда почта отправляется? Через сервер хостинг провайдера.

    На деле это проще реализуется, чем кажется.

    Почта отправляется напрямую, без php скриптов и вашего сервера! и не надо никаких скриптов!

    Вы же имеете ввиду, что вы запускаете скрипт PHP на своем сервере и шлете почту! так?

  10. 33 минуты назад, ENERGY сказал:

    Я отправляю через PHP скрипт, а скрипт отправляет через SMTP хостинг сервера, который в данный момент работает. Т.е. отправляю письмо через POST запрос. Так можно и лог вести на сервере.

    Ну вот... вопрос? а если сервера нет.... и задача этого не требует... приплыли?

    через post запрос любой сможет! ?

    Как обойти, я написал выше! Скачать валидный SSL

  11. 1 час назад, Barbanel сказал:

    Я впечатлен!
    Действительно очень бодро, хотя очень похоже что сервак с картинками стоит в соседней комнате)))
    Очень интересно посмотреть как оно устроено изнутри.

    Сервак, кстати, тоже на Delphi написан! Там в конце видео есть упоминание об этом...

  12. 5 часов назад, Alisson R Oliveira сказал:

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

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

    Не используйте LiveBinds , это лютая злобная недоработанная вещь! 

  13. 13 часов назад, unlimuser сказал:

    У меня подобная ошибка при запуске на любом ПК, куда скопирована скомпилированная программа, на ПК, где установлена среда Delphi 10.2 без проблем запускается.

    Как победить эту ошибку на других ПК, куда копируется программа?

    в папку с exe положи sqlite3.dll

    скачать последнюю версию можно с sqlite.org

×
×
  • Создать...