Slym

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;

через ? передаются GET параметры а ты Post Post параметры через stringlist

показывай info.plist.TemplateiOS.xml

А при том что надо разделять транспорт, кодек и hal... я без проблем сделаю TCP/HTTP запрос, до что делать с данными? а может там udp? нужен декодер, и управлялка потоком декодер может и найду, но что делать с PCM данными... нужен компонент вывода звука вывод может найду... а если хотите кинуть батон и в продакшон... ищите сами

Нет. я свой статический адрес и порт прикрыл фаирволом и другим советую

Content-Disposition: inline? или тогда может в сторону js копать https://ru.stackoverflow.com/questions/439058/Открыть-pdf-в-окне-браузера-ajax

заголовки смотрел? может там честное Content-Disposition: attachment...

https://yandex.ru/search/?text=findfirstchangenotification delphi&lr=237 https://yandex.ru/search/?text=ReadDirectoryChanges delphi

Доступ ко многим protected методам можно получить через интерфейсы: ClientToScreen доступен через IControl, т.е. любой контрол (Ctrl as IControl).ClientToScreen про поиск TCommonCustomForm - у всех контролов есть Root - TCommonCustomForm(Ctrl.Root.GetObject) (незабываем проверять nil :) ) еще есть Scene...

Rectangle.ClipChildren :=true

обычный TCP... Sock:=TSocket.Create(TSocketType.TCP, TEncoding.GetEncoding(1251)); Sock.Connect('',FAddress,'',FPort); Sock.Send('cmd') result:=Sock.ReceiveString();

Сделайте бекенд/RestAPI и отвяжетесь от СУБД

и ручками править хрупкую структуру - нунах... там у тебя json, проверяй валидность json json:=TJSONObject.ParseJSONValue(Bytes, 0);

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

procedure TForm1.CalcContentBounds(Sender: TObject; var ContentBounds: TRectF); begin TCustomScrollBox(Sender).AniCalculations.BoundsAnimation:=(TCustomScrollBox(Sender).Size.Height<ContentBounds.Height); end;

Давайте определим а точно это "палец" был, а не хм... ченить другое? левый верхний угол пальца - маинкрафтер? по делу - откалибруйте сенсор...

вызывается виртуальный метод TObject.Destroy; виртуальный здесь ключевое! виртуальные методы хранятся в спецтабличке Вы же разместили свой деструктор вне этой таблицы сделав его статичным. статичным он стал потому что нет правильного модификатора, по факту Вы написали destructor Destroy;пусто; модификатор overload - это из оперы несколько методов с одним названием. Destroy вызывается у всех типов в цепочке наследования кроме вашего типа, для вашего типа виртуальный Destroy не определен

Кстати подобная ошибка у меня иногда выходит при повороте окна со сложным интерфейсом...

Мы пользуем 1 форму. А сверху натягиваем различные TFrame TFrame - как форма, нормально визуально правится

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.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']

т.е. не получится что-то изменить через StylesData поля корневого элемента стиля... все что хочется изменить должно быть ниже корневого элемента