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

Slym

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

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

  • Посещение

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

    24

Весь контент Slym

  1. 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;
  2. 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;
  3. 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. Забаньте Maka - рекламирует платные ресурсы.
  5. Slym

    Serial port

    я обычно с гуя:
  6. http://www.ohandroid.com/pdf-x.html пробовали ?
  7. там еще дефайны стоят #if defined(WINDOWS) && !defined(WINDOWLESS) т.к. нельзя пропускать функции в структуре - надо точно знать с какими дефайнами длл сбилдена. если лень описывать ненужную функцию делай заглушкой SciterGetPPI: pointer; - повторюсь пропускать нельзя
  8. а где тут stdcall? type PSciterAPI = ^ISciterAPI; ISciterAPI = packed record version: UINT; SciterClassName: function(): LPCWSTR;stdcall; SciterVersion: function(major: BOOL): UINT;stdcall; end;
  9. макросы разворачиваем в уме: 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 оставить
  10. 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;
  11. через ? передаются GET параметры а ты Post Post параметры через stringlist
  12. показывай info.plist.TemplateiOS.xml
  13. А при том что надо разделять транспорт, кодек и hal... я без проблем сделаю TCP/HTTP запрос, до что делать с данными? а может там udp? нужен декодер, и управлялка потоком декодер может и найду, но что делать с PCM данными... нужен компонент вывода звука вывод может найду... а если хотите кинуть батон и в продакшон... ищите сами
  14. Нет. я свой статический адрес и порт прикрыл фаирволом и другим советую
  15. Content-Disposition: inline? или тогда может в сторону js копать https://ru.stackoverflow.com/questions/439058/Открыть-pdf-в-окне-браузера-ajax
  16. заголовки смотрел? может там честное Content-Disposition: attachment...
  17. https://yandex.ru/search/?text=findfirstchangenotification delphi&lr=237 https://yandex.ru/search/?text=ReadDirectoryChanges delphi
  18. Доступ ко многим protected методам можно получить через интерфейсы: ClientToScreen доступен через IControl, т.е. любой контрол (Ctrl as IControl).ClientToScreen про поиск TCommonCustomForm - у всех контролов есть Root - TCommonCustomForm(Ctrl.Root.GetObject) (незабываем проверять nil :) ) еще есть Scene...
  19. Slym

    Сим карта

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

    FireDAC или UniDAC

    Сделайте бекенд/RestAPI и отвяжетесь от СУБД
  21. и ручками править хрупкую структуру - нунах... там у тебя json, проверяй валидность json json:=TJSONObject.ParseJSONValue(Bytes, 0);
  22. 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
×
×
  • Создать...