Slym
-
Постов
180 -
Зарегистрирован
-
Посещение
-
Победитель дней
39
Сообщения, опубликованные Slym
-
-
через ? передаются GET параметры а ты Post
Post параметры через stringlist -
показывай info.plist.TemplateiOS.xml
-
1 час назад, Tumaso сказал:
А причем тут твой фаервол? Вопрос совсем о другом, о принципиальной возможности воспроизведения аудиопотока с указаного адреса/порта в FMX
А при том что надо разделять транспорт, кодек и hal...
я без проблем сделаю TCP/HTTP запрос, до что делать с данными? а может там udp? нужен декодер, и управлялка потоком
декодер может и найду, но что делать с PCM данными... нужен компонент вывода звука
вывод может найду...а если хотите кинуть батон и в продакшон... ищите сами
-
Нет. я свой статический адрес и порт прикрыл фаирволом и другим советую
-
Content-Disposition: inline?
или тогда может в сторону js копать https://ru.stackoverflow.com/questions/439058/Открыть-pdf-в-окне-браузера-ajax -
заголовки смотрел? может там честное Content-Disposition: attachment...
-
-
Доступ ко многим protected методам можно получить через интерфейсы:
ClientToScreen доступен через IControl, т.е. любой контрол (Ctrl as IControl).ClientToScreen
про поиск TCommonCustomForm - у всех контролов есть Root - TCommonCustomForm(Ctrl.Root.GetObject) (незабываем проверять nil :) )
еще есть Scene... -
Rectangle.ClipChildren :=true
-
-
-
Сделайте бекенд/RestAPI и отвяжетесь от СУБД
-
-
-
-
Давайте определим а точно это "палец" был, а не хм... ченить другое?
левый верхний угол пальца - маинкрафтер?
по делу - откалибруйте сенсор... -
вызывается виртуальный метод TObject.Destroy; виртуальный здесь ключевое! виртуальные методы хранятся в спецтабличке
Вы же разместили свой деструктор вне этой таблицы сделав его статичным.
статичным он стал потому что нет правильного модификатора, по факту Вы написали destructor Destroy;пусто;
модификатор overload - это из оперы несколько методов с одним названием.
Destroy вызывается у всех типов в цепочке наследования кроме вашего типа, для вашего типа виртуальный Destroy не определен -
Кстати подобная ошибка у меня иногда выходит при повороте окна со сложным интерфейсом...
-
-
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);
не тестил
-
Не ну черным по белому FMX.Controls.pas - один файл...
и сначала попробуй FMX.Types.FindStyleResource(StyleName); как выше... может будет достаточно -
значит патченый FMX.Controls.pas не компилирует... полож его в папку проекта и явно добавь в проект
кстати сам стиль надо искать так
Style:=FMX.Types.FindStyleResource(StyleName);
а далее
TSwitchObject(Style).Fill.... -
Мда...
На такой случай мы патчим FMX.Controls.pasprocedure 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']
-
т.е. не получится что-то изменить через StylesData поля корневого элемента стиля...
все что хочется изменить должно быть ниже корневого элемента
NetHTTPClient1.Get(URL, FS) - получить имя загружаемого файла
в Прочие вопросы
Опубликовано
type TOpenURLResponse=class(TURLResponse); procedure TForm3.FormCreate(Sender: TObject); var HTTPClient:THTTPClient; Response: IHTTPResponse; begin HTTPClient:=THTTPClient.Create; try Response:=HTTPClient.Get('https://telegram.org/dl/desktop/win'); if (Response is TURLResponse) then Caption:=TOpenURLResponse(Response as TURLResponse).FRequest.URL.ToString; finally HTTPClient.Free; end; end;