afors

Пользователи
  • Публикации

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

  • Посещение

О afors

  • Звание
    Продвинутый пользователь
  • День рождения 21.08.1981

Информация

  • Пол
    Мужчина
  • Город
    Новопавловск

Посетители профиля

204 просмотра профиля
  1. delphi fmx

    @dnekrasov Так просто? Какие модули используют ShowWindow, ApplicationHWND и SW_HIDE? (SW_HIDE нашел в модуле Uses Windows)
  2. Спасибо, буду знакомиться с TNetHTTPClient и TNetHTTPRequest. А пока изменил HTTPS на HTTP: fMain.IdHTTP1.Post('http://android.googleapis.com/gcm/send', AData, AResponseContent); На Android 6 заработало. Только не знаю чем это грозит...
  3. Всем привет! Пытаюсь отправлять PUSH через компонент IdHTTP //... //Var ID: Integer; //... Procedure SentPush (ServerKey, DeviceToken: String); // Uses System.JSON var AJson: TJSONObject; AJsonData: TJSONObject; ARegisterIds:TJSONArray; AData, AResponseContent:TSTringStream; Begin ARegisterIds := TJSONArray.Create; AJson := TJSONObject.Create; try ARegisterIds.Add(DeviceToken); AJsonData := TJSONObject.Create; AJsonData.AddPair('id', ID.ToString()); ID := ID + 1; AJsonData.AddPair('message', 'Привет'); AJson.AddPair('registration_ids', ARegisterIds); AJson.AddPair('data', AJsonData); fMain.IdHTTP1.Request.ContentType := 'application/json'; fMain.IdHTTP1.Request.CustomHeaders.AddValue('Authorization', 'key=' + ServerKey); AData := TStringStream.Create(AJson.ToString, TEncoding.UTF8); AData.Position := 0; AResponseContent := TStringStream.Create('', TEncoding.UTF8); fMain.IdHTTP1.Post('https://android.googleapis.com/gcm/send', AData, AResponseContent); AResponseContent.Position := 0; fMain.Memo1.Lines.Add('https://android.googleapis.com/gcm/send' + AJson.ToString); fMain.Memo1.Lines.Add(AResponseContent.DataString); finally end; End; Пример взят с На Windows работает, Push отправляются и приходят. Тот же самый код на Android не работает, выдает ошибку: Could not load SSL library. На форумах советуют обновить Indy, подсунуть недостающую библиотеку... Кто подскажет чем это лечится? (Delphi 10.1 Berlin Upd2. Android 6)
  4. Можно без показа экрана набора номера: procedure TForm1.Button1Click(Sender: TObject); // Uses FMX.Dialogs, FMX.PhoneDialer, FMX.Platform var PhoneDialerService: IFMXPhoneDialerService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXPhoneDialerService, IInterface(PhoneDialerService)) then PhoneDialerService.Call('+71234567890') Else ShowMessage ('Вызовы не поддерживаются'); end;
  5. @hippocamus Как получить картинку содержимого рабочей области WebBrowser? Ты об этом? WebBrowser1.MakeScreenshot
  6. @krapotkin у меня по второму варианту нет необычного эффекта, экран гасится. Но во всех случаях мне пришлось добавить модуль Androidapi.Helpers. Без него не запустилось.
  7. Ребят, не так давно была тема о том, как не дать устройству уснуть (или выключить) экран. Не могу найти, может поделится кто ссылкой? (возможно неверно указал категорию темы, но "экран" в категориях не нашел)
  8. Равиль, твой последний вариант работает, спасибо!
  9. Rusland: "Можно наверное через css выравнивать... Но я бы посоветовал воспользоваться готовой библиотекой leaflet" Нравится Можно подробнее о библиотеке leaflet, источник, мануал. В интернете много "leaflet" не в тему. Пока пользуюсь "топором": загружаю готовые PNG-маркеры с надписью с сайта: ... ' icon: '+ Chr(39)+'мой сайт/car-01.png'+Chr(39)+','+ ... Но это плохой стиль. Вопрос еще актуален, прошу помощи...
  10. Да, я забыл об этом написать...
  11. Тогда вопрос с Label остается открытым
  12. API прописали? Может я ошибаюсь, но был уверен, что MapView не для Windows-платформ. По крайней мере так было раньше. И все-таки, MapView работает на Windows?
  13. Использую JS в проекте, создаю карту, добавляю маркер, указываю Label, Title маркера. Все отображается, но Label маркера смещен влево. Я не особый знаток JavaScript. Видимо что-то упускаю. Подскажите что я не так сделал? Код проекта прилагаю. Delphi 10.1 Berlin (Upd 2), OS: Windows 7x64 AddMarker.rar
  14. Тестирую на разных машинах, пока все ок!