Slym

Таймер не?

if not TCLLocationManager.OCClass.locationServicesEnabled then abort; AuthorizationStatus:=TCLLocationManager.OCClass.authorizationStatus; if AuthorizationStatus in [kCLAuthorizationStatusDenied, kCLAuthorizationStatusRestricted] then abort; if AuthorizationStatus in [kCLAuthorizationStatusAuthorizedWhenInUse, kCLAuthorizationStatusAuthorized] then abort; FLocater := TCLLocationManager.Create; try FLocater.retain; FLocater.requestWhenInUseAuthorization; finally FLocater.release; FLocater:=nil; end;

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;

Забаньте Maka - рекламирует платные ресурсы.

я обычно с гуя:

http://www.ohandroid.com/pdf-x.html пробовали ?

там еще дефайны стоят #if defined(WINDOWS) && !defined(WINDOWLESS) т.к. нельзя пропускать функции в структуре - надо точно знать с какими дефайнами длл сбилдена. если лень описывать ненужную функцию делай заглушкой SciterGetPPI: pointer; - повторюсь пропускать нельзя

а где тут stdcall? type PSciterAPI = ^ISciterAPI; ISciterAPI = packed record version: UINT; SciterClassName: function(): LPCWSTR;stdcall; SciterVersion: function(major: BOOL): UINT;stdcall; end;

макросы разворачиваем в уме: sciter-x-api.h UINT SCFN( SciterVersion )(BOOL major); sciter-x-types.h #define SCFN(name) (__stdcall *name) итог: SciterVersion: function(major: bool) UINT; stdcall; и всетаки попробуй bool оставить

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;