Slym
-
Постов
180 -
Зарегистрирован
-
Посещение
-
Победитель дней
39
Активность репутации
-
Slym получил реакцию от Ingalime в Intent Delphi->1C
Не пробовал... может так?
вместо form1.close пишем
TAndroidHelper.Activity.setResult(RESULT_OK, Intent);
TAndroidHelper.Activity.Finish;
-
-
Slym получил реакцию от Ingalime в TWebBrowser грузит старую страницу
Так себе, отключать кеш... можно разово при запуске
{$IFDEF ANDROID} var NativeBrowser:JWebBrowser; if Supports(WebBrowser,JWebBrowser,NativeBrowser) then NativeBrowser.clearCache(true); {$ENDIF ANDROID}
-
-
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;
-
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;
-
Slym получил реакцию от Android в Delphi 10.4.1 и Андроид 11
Забаньте Maka - рекламирует платные ресурсы.
-
Slym получил реакцию от Ingalime в [Android] Воспроизводить аудио
А при том что надо разделять транспорт, кодек и hal...
я без проблем сделаю TCP/HTTP запрос, до что делать с данными? а может там udp? нужен декодер, и управлялка потоком
декодер может и найду, но что делать с PCM данными... нужен компонент вывода звука
вывод может найду...
а если хотите кинуть батон и в продакшон... ищите сами
-
Slym получил реакцию от Сергей Сергеев в Открытие PDF
Content-Disposition: inline?
или тогда может в сторону js копать https://ru.stackoverflow.com/questions/439058/Открыть-pdf-в-окне-браузера-ajax
-
Slym получил реакцию от dnekrasov в Расположение нажатого элемента управления по отношению к экрану
Доступ ко многим protected методам можно получить через интерфейсы:
ClientToScreen доступен через IControl, т.е. любой контрол (Ctrl as IControl).ClientToScreen
про поиск TCommonCustomForm - у всех контролов есть Root - TCommonCustomForm(Ctrl.Root.GetObject) (незабываем проверять nil :) )
еще есть Scene...
-
Slym получил реакцию от Олег Киреев в отследить изменение файла
https://yandex.ru/search/?text=findfirstchangenotification delphi&lr=237
https://yandex.ru/search/?text=ReadDirectoryChanges delphi
-
-
-
-
Slym получил реакцию от Ingalime в THTTPClient - непонятная ошибка при POST-е json на сервер
и ручками править хрупкую структуру - нунах...
там у тебя json, проверяй валидность json
json:=TJSONObject.ParseJSONValue(Bytes, 0);
-
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
-
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
-
Slym получил реакцию от Ingalime в VertScrollBox под IOS - баг с прокруткой
procedure TForm1.CalcContentBounds(Sender: TObject; var ContentBounds: TRectF); begin TCustomScrollBox(Sender).AniCalculations.BoundsAnimation:=(TCustomScrollBox(Sender).Size.Height<ContentBounds.Height); end;
-
Slym получил реакцию от gonzales в DisposeOf не вызывает деструктор (сам нашел причину, но решил написать)
вызывается виртуальный метод TObject.Destroy; виртуальный здесь ключевое! виртуальные методы хранятся в спецтабличке
Вы же разместили свой деструктор вне этой таблицы сделав его статичным.
статичным он стал потому что нет правильного модификатора, по факту Вы написали destructor Destroy;пусто;
модификатор overload - это из оперы несколько методов с одним названием.
Destroy вызывается у всех типов в цепочке наследования кроме вашего типа, для вашего типа виртуальный Destroy не определен
-
Slym получил реакцию от Ingalime в Ошибка при создании формы
Мы пользуем 1 форму. А сверху натягиваем различные TFrame
TFrame - как форма, нормально визуально правится
-
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); не тестил
-
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); не тестил
-
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;
-
-
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']