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. Без него не запустилось.

Спасибо!

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

(возможно неверно указал категорию темы, но "экран" в категориях не нашел)

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

Только что, Rusland сказал:

Странно, в jsfiddle.net Label ложиться прямо на маркер.

Можно наверное через css выравнивать... Но я бы посоветовал воспользоваться готовой библиотекой leaflet

Да, я забыл об этом написать...

Тогда вопрос с Label  остается открытым

6 минут назад, Rusland сказал:

У меня и карта не открывается, пишет "C:\Ruslan\Test\Android\AWSome\AddMarker".

Почему не используете компонент MapView?

API прописали?

Может я ошибаюсь, но был уверен, что MapView не для Windows-платформ. По крайней мере так было раньше. И все-таки, MapView работает на Windows?

Использую JS в проекте, создаю карту, добавляю маркер, указываю Label, Title маркера. Все отображается, но Label маркера смещен влево. Я не особый знаток JavaScript. Видимо что-то упускаю. Подскажите что я не так сделал?

Код проекта прилагаю.

Delphi 10.1 Berlin (Upd 2), OS: Windows 7x64

AddMarker.rar

Только что, kami сказал:

просто закомментировать пересоздание нативного браузера - не самая хорошая идея. Иногда оно действительно необходимо.

Тестирую на разных машинах, пока все ок!

В другом проекте браузер не отображает ни одну страницу. По твоему примеру закомментировал только одну строчку. Пока вроде все хорошо и раскрытие списка не перезагружает браузер.

procedure TCustomWebBrowser.FormHandleCreated(const Sender: TObject; const Msg: TMessage);
var
  WBService : IFMXWBService;
begin
  if not (csDesigning in ComponentState) and TPlatformServices.Current.SupportsPlatformService(IFMXWBService, WBService) then
  begin
    FWeb := WBService.CreateWebBrowser;
    FWeb.SetWebBrowserControl(Self);
//    FWeb.UpdateContentFromControl;
    FWeb.URL := FURL;
    FWeb.Navigate;
  end;
end;

Спасибо Равиль, теперь все работает!

Вот что пишет:

2 часа назад, Равиль Зарипов (ZuBy) сказал:

на винде только такое поведение?

попробуй так

WB_CB_Err.rar

На Android нет проблем.

У меня нет доступа к странице по ссылке)