Перейти к содержанию

Slym

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

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

  • Посещение

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

    24

Активность репутации

  1. Like
    Slym получил репутацию от destroyer86 в Serial port   
    я обычно с гуя:

  2. Like
    Slym получил репутацию от Edward Tarasov в Статус доступа к push   
    https://stackoverflow.com/questions/46457733/how-to-get-notification-authorization-status-in-swift-3
    т.е. както так- писал в блокноте
    procedure TForm1.FormCreate(Sender: TObject); begin   TUNUserNotificationCenter.OCClass.currentNotificationCenter.getNotificationSettingsWithCompletionHandler(OnNotificationSettings); end; procedure TForm1.OnNotificationSettings(NotificationSettings: UNNotificationSettings); begin   NotificationSettings.authorizationStatus; end;  
  3. Like
    Slym получил репутацию от Edward Tarasov в Статус доступа к микрофону   
    1. Патчить
     
    2. Не хочется генофонд трогать
    Можно скопипастить к себе TAVAudioSession и патчить у себя...

    а потом
    AudioSession := TAVAudioSession.Wrap(TAVAudioSession.OCClass.sharedInstance); if AudioSession.recordPermission=AVAudioSessionRecordPermissionDenied then AudioSession.requestRecordPermission(TPermissionBlock.Proc); type   TPermissionBlock=class   public     class procedure Proc(Granted: Boolean);   end; class procedure TPermissionBlock.Proc(Granted: Boolean); begin   if Granted then end;
     
  4. Haha
    Slym получил репутацию от Android в Delphi 10.4.1 и Андроид 11   
    Забаньте Maka - рекламирует платные ресурсы.
  5. Like
    Slym получил репутацию от Ingalime в [Android] Воспроизводить аудио   
    А при том что надо разделять транспорт, кодек и hal...
    я без проблем сделаю TCP/HTTP запрос, до что делать с данными? а может там udp? нужен декодер, и управлялка потоком
    декодер может и найду, но что делать с PCM данными... нужен компонент вывода звука
    вывод может найду...
    а если хотите кинуть батон и в продакшон... ищите сами

     
  6. Like
    Slym получил репутацию от Сергей Сергеев в Открытие PDF   
    Content-Disposition: inline?
    или тогда может в сторону js копать https://ru.stackoverflow.com/questions/439058/Открыть-pdf-в-окне-браузера-ajax
  7. Like
    Slym получил репутацию от dnekrasov в Расположение нажатого элемента управления по отношению к экрану   
    Доступ ко многим protected методам можно получить через интерфейсы:
    ClientToScreen доступен через IControl, т.е. любой контрол (Ctrl as IControl).ClientToScreen
     
    про поиск TCommonCustomForm - у всех контролов есть Root - TCommonCustomForm(Ctrl.Root.GetObject) (незабываем проверять nil :) )
    еще есть Scene...
     
  8. Thanks
    Slym получил репутацию от Олег Киреев в отследить изменение файла   
    https://yandex.ru/search/?text=findfirstchangenotification delphi&lr=237
    https://yandex.ru/search/?text=ReadDirectoryChanges delphi
  9. Like
    Slym получил репутацию от david_yusupov в Видимость объекта   
    Rectangle.ClipChildren   :=true
  10. Like
    Slym получил репутацию от Ingalime в Сим карта   
    обычный TCP...
    Sock:=TSocket.Create(TSocketType.TCP, TEncoding.GetEncoding(1251));
    Sock.Connect('',FAddress,'',FPort);
    Sock.Send('cmd')
    result:=Sock.ReceiveString();
     
     
  11. Thanks
    Slym получил репутацию от zekelive в Артефакты вокруг TLabel   
  12. Like
    Slym получил репутацию от Ingalime в THTTPClient - непонятная ошибка при POST-е json на сервер   
    и ручками править хрупкую структуру - нунах...
    там у тебя json, проверяй валидность json
    json:=TJSONObject.ParseJSONValue(Bytes, 0);
     
  13. Thanks
    Slym получил репутацию от Bob32 в THTTPClient - непонятная ошибка при POST-е json на сервер   
    Bytes:=TEncoding.UTF8.GetBytes(Memo1.Lines.Text);
    BytesStream:=TBytesStream.Create(Bytes);
    try
    HTTPResponse:=FHTTPClient.Post('https://securepay.tinkoff.ru/v2/Init', ByteStream);
    .....
    finally
      BytesStream.Free;
    end
  14. Like
    Slym получил репутацию от Ingalime в THTTPClient - непонятная ошибка при POST-е json на сервер   
    Bytes:=TEncoding.UTF8.GetBytes(Memo1.Lines.Text);
    BytesStream:=TBytesStream.Create(Bytes);
    try
    HTTPResponse:=FHTTPClient.Post('https://securepay.tinkoff.ru/v2/Init', ByteStream);
    .....
    finally
      BytesStream.Free;
    end
  15. Like
    Slym получил репутацию от Ingalime в VertScrollBox под IOS - баг с прокруткой   
    procedure TForm1.CalcContentBounds(Sender: TObject; var ContentBounds: TRectF); begin TCustomScrollBox(Sender).AniCalculations.BoundsAnimation:=(TCustomScrollBox(Sender).Size.Height<ContentBounds.Height); end;  
  16. Like
    Slym получил репутацию от gonzales в DisposeOf не вызывает деструктор (сам нашел причину, но решил написать)   
    вызывается виртуальный метод TObject.Destroy; виртуальный здесь ключевое! виртуальные методы хранятся в спецтабличке 
    Вы же разместили свой деструктор вне этой таблицы сделав его статичным.
    статичным он стал потому что нет правильного модификатора, по факту Вы написали destructor Destroy;пусто;
    модификатор overload - это из оперы несколько методов с одним названием.
    Destroy вызывается у всех типов в цепочке наследования кроме вашего типа, для вашего типа виртуальный Destroy не определен
  17. Like
    Slym получил репутацию от Ingalime в Ошибка при создании формы   
    Мы пользуем 1 форму. А сверху натягиваем различные TFrame
    TFrame - как форма, нормально визуально правится
  18. Like
    Slym получил репутацию от Yarpda в Чтение QR кода, нужен компонент или тулза   
    hints: TDictionary<TDecodeHintType, TObject>;   l: TList<TBarcodeFormat>; begin     if not Assigned(FScanManager) then     begin       hints := TDictionary<TDecodeHintType, TObject>.Create();       l:=TList<TBarcodeFormat>.Create;       l.Add(TBarcodeFormat.QR_CODE);       hints.Add(ZXing.DecodeHintType.POSSIBLE_FORMATS, l);       FScanManager := TScanManager.Create(TBarcodeFormat.QR_CODE, hints); не тестил
  19. Like
    Slym получил репутацию от Ingalime в Чтение QR кода, нужен компонент или тулза   
    hints: TDictionary<TDecodeHintType, TObject>;   l: TList<TBarcodeFormat>; begin     if not Assigned(FScanManager) then     begin       hints := TDictionary<TDecodeHintType, TObject>.Create();       l:=TList<TBarcodeFormat>.Create;       l.Add(TBarcodeFormat.QR_CODE);       hints.Add(ZXing.DecodeHintType.POSSIBLE_FORMATS, l);       FScanManager := TScanManager.Create(TBarcodeFormat.QR_CODE, hints); не тестил
  20. Thanks
    Slym получил репутацию от gonzales в multicast udp   
    А в инде все готово...
    procedure TForm1.FormCreate(Sender: TObject); begin   IdUDPServer1.ReuseSocket:=TIdReuseSocket.rsTrue;   IdUDPServer1.DefaultPort:=9898;   IdUDPServer1.Active:=true; end; procedure TForm1.IdUDPServer1AfterBind(Sender: TObject); begin   IdUDPServer1.Bindings[0].AddMulticastMembership('224.0.0.50'); end;  
  21. Like
    Slym получил репутацию от Ingalime в TSpinBox   
    Никак. Читайте что такое числа с плавающей точкой.
    1 правило работы с плавающей точкой: Нельзя проверять 2 числа на равенство оператором =
    нельзя:
    const dx:double=143.201; const sx:single=143.201; begin assert(dx=sx); end;  
  22. Like
    Slym получил репутацию от Ingalime в Свойства стиля у TSwitch   
    Мда...
    На такой случай мы патчим FMX.Controls.pas
    procedure TStyledControl.StyleDataChanged(const Index: string; const Value: TValue); var Obj: TObject; InstanceName, PropertyName: string; PropertyValue: TValue; begin PropertyName := Index; InstanceName := GetToken(PropertyName, '.'); if SameText(InstanceName,'self') then Obj:=FResourceLink else Obj := FindStyleResource(InstanceName); if Obj <> nil then и тогда ReleSwitch.StylesData['self.Fill.Color']
  23. Like
    Slym получил репутацию от Ingalime в Свойства стиля у TSwitch   
    ReleSwitch.StylesData['АГДЕКОМУ?.Fill.Color']
    обязательно должен быть АГДЕКОМУ
    если этот АГДЕКОМУ это кореть стиля - то поместит стиль в TLayout, а этот самый АГДЕКОМУ дать имя
  24. Haha
    Slym получил репутацию от #WAMACO в Как масштабировать Bitmap на смартфоне?   
    За такое

    надо яички в тисочки...
  25. Like
    Slym получил репутацию от mazayhin в Требуется приложение на на все смартфоны   
    1. Говорят - сначала сделай "какнибудь" - оптимизацию оставь на потом
    2. А книжку почитай... ООП там всякие... инкапсуляция там, переиспользование кода...

    по вашему списку
    1. Список счетов (желательно с оповещением статусов, типа как на СМС на ватсапе приходят)
    Кто их делать будет? Бекенд? На чем написан? или его нет?
    2. Онлайн каталог номенклатуры (калькулятор с разными расчетами, примерно как в Apk, думаю надо будет подробно объяснять как и что)
    Онлайн каталог ты получил выше...
    3. Раскрой листа (алгоритм я же сделал, просто внедрить): ввод списка с числами (габаритY, габаритX, кол-во) , показать изображение работы алгоритма:
    Прежде чем внедрять нужно понять к чему? Нафега клиенту твой алгоритм? Он не тебе материал экономит, а себе деньги... Сущьность какая? Заказ? список деталей? детали круглые/квадратные/в форме котиков?
    Кто раскрой делать будет? Клиент - ему это нафиг ненадо, хоть 1 деталь на лист. Бекенд? Админский фронтэнд? На чем написан? или его нет?
    4. Контакты (просто текстовая информация с ссылками)
    Тупо вывести на экран как Hello world...
    5. Отзыв (отправка текста мне на почту)
    Кто почту отправлять будет? Бекенд? На чем написан? или его нет?
    6. Загрузка файлы xls (прайс)
    Кто и главное куда (база) парсить будет? Бекенд? На чем написан? или его нет?

    Рано тебе клиентское приложение делать - я тебя бекенда нет по 1,3,5,6 пунктам...
    и того 2 или даже 3 программы: бекенд, клиентская часть, и одминка для приемщика заказа
    причем править имеющийся бекенд сайта тебе править низя  иначе ты бы послушался и не парсил html а запилил нормальный JSON в нужном формате
     
×
×
  • Создать...