afors

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

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

  • Посещение

Информация о afors

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

Информация

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

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

280 просмотров профиля
  1. Вызов TPopup ломает поведение TWebBrowser

    @Вадим Смоленский Думаю пример kami решит проблему. Если интересно, то вот еще ссылка...
  2. @wamaco Попробовал TMS FMX WebGMaps, очень удобно. Но он тоже перекрывает контролы. Может это надстройка над WebBrowser? И если кидаю его на TabControl, приложение Windows и Android зависает, а без TabControl никак (ну или платный из TMS вроде есть что-то). Собираюсь написать в поддержку. Если кто сталкивался с подобным отпишитесь...
  3. Может и банально, но соответствует критериям... Официальное название: whatsapp Официальный сайт: https://www.whatsapp.com/ Платформы: Android, iPhone, Компьютеры Mac или Windows, Windows Phone
  4. Эксперементировал на разных формах, кидал WebBrowser в дизайнере на форму, создавал динамически, загружал страницы в потоке... пока не удалось победить. Зависания могли быть и при вызове календаря, интентах. НО после использования браузера.
  5. @Владимир У меня было похожее поведение, при получении уведомлений программа могла зависнуть (не всегда). Долго пытался найти причину, оказалось, что зависало после использования TWebBrowser.
  6. @dnekrasov Так просто? Какие модули используют ShowWindow, ApplicationHWND и SW_HIDE? (SW_HIDE нашел в модуле Uses Windows)
  7. Спасибо, буду знакомиться с TNetHTTPClient и TNetHTTPRequest. А пока изменил HTTPS на HTTP: fMain.IdHTTP1.Post('http://android.googleapis.com/gcm/send', AData, AResponseContent); На Android 6 заработало. Только не знаю чем это грозит...
  8. Всем привет! Пытаюсь отправлять 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)
  9. Можно без показа экрана набора номера: 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;
  10. @hippocamus Как получить картинку содержимого рабочей области WebBrowser? Ты об этом? WebBrowser1.MakeScreenshot
  11. @krapotkin у меня по второму варианту нет необычного эффекта, экран гасится. Но во всех случаях мне пришлось добавить модуль Androidapi.Helpers. Без него не запустилось.
  12. Ребят, не так давно была тема о том, как не дать устройству уснуть (или выключить) экран. Не могу найти, может поделится кто ссылкой? (возможно неверно указал категорию темы, но "экран" в категориях не нашел)
  13. Равиль, твой последний вариант работает, спасибо!
  14. Rusland: "Можно наверное через css выравнивать... Но я бы посоветовал воспользоваться готовой библиотекой leaflet" Нравится Можно подробнее о библиотеке leaflet, источник, мануал. В интернете много "leaflet" не в тему. Пока пользуюсь "топором": загружаю готовые PNG-маркеры с надписью с сайта: ... ' icon: '+ Chr(39)+'мой сайт/car-01.png'+Chr(39)+','+ ... Но это плохой стиль. Вопрос еще актуален, прошу помощи...