afors

Может до запрета запуска второй копии как-то передать "сообщение" ( ParamStr(1) ) уже запущенной копии?

@Вадим Смоленский Думаю пример kami решит проблему. Если интересно, то вот еще ссылка...

@wamaco Попробовал TMS FMX WebGMaps, очень удобно. Но он тоже перекрывает контролы. Может это надстройка над WebBrowser? И если кидаю его на TabControl, приложение Windows и Android зависает, а без TabControl никак (ну или платный из TMS вроде есть что-то). Собираюсь написать в поддержку. Если кто сталкивался с подобным отпишитесь...

Может и банально, но соответствует критериям... Официальное название: whatsapp Официальный сайт: https://www.whatsapp.com/ Платформы: Android, iPhone, Компьютеры Mac или Windows, Windows Phone

Эксперементировал на разных формах, кидал WebBrowser в дизайнере на форму, создавал динамически, загружал страницы в потоке... пока не удалось победить. Зависания могли быть и при вызове календаря, интентах. НО после использования браузера.

@Владимир У меня было похожее поведение, при получении уведомлений программа могла зависнуть (не всегда). Долго пытался найти причину, оказалось, что зависало после использования TWebBrowser.

@dnekrasov Так просто? Какие модули используют ShowWindow, ApplicationHWND и SW_HIDE? (SW_HIDE нашел в модуле Uses Windows)

Спасибо, буду знакомиться с TNetHTTPClient и TNetHTTPRequest. А пока изменил HTTPS на HTTP: fMain.IdHTTP1.Post('http://android.googleapis.com/gcm/send', AData, AResponseContent); На Android 6 заработало. Только не знаю чем это грозит...

Всем привет! Пытаюсь отправлять 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)

Можно без показа экрана набора номера: 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;

@hippocamus Как получить картинку содержимого рабочей области WebBrowser? Ты об этом? WebBrowser1.MakeScreenshot

@krapotkin у меня по второму варианту нет необычного эффекта, экран гасится. Но во всех случаях мне пришлось добавить модуль Androidapi.Helpers. Без него не запустилось.

Спасибо!

Ребят, не так давно была тема о том, как не дать устройству уснуть (или выключить) экран. Не могу найти, может поделится кто ссылкой? (возможно неверно указал категорию темы, но "экран" в категориях не нашел)

Равиль, твой последний вариант работает, спасибо!