Перейти к содержанию
Fire Monkey от А до Я

master webs

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

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

  • Посещение

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

    6

Активность репутации

  1. Thanks
    master webs получил реакцию от Дилшоджон в заполнение окна формы 2-3 или колонки в зависимости от ориентации экрана   
    спасибо оперативную помощь я только начал изучать среду разработки )) 
  2. Like
    master webs отреагировална Евгений Корепов в GCM исчез, теперь Firebase Cloud Messaging, но как?   
    Спасибо огромное! Опять начал это делать, все забыл, каждый раз как заново ) Начал гуглить и тут раз  - и моя же тебя с вашим ответом! Все помогло!
  3. Like
  4. Like
    master webs получил реакцию от Евгений Корепов в GCM исчез, теперь Firebase Cloud Messaging, но как?   
    Нужно указывать api key а не цифровой id
  5. Like
    master webs получил реакцию от Евгений Корепов в NetHTTPClient1 87 ошибка на простом запросе post   
    так вы   вместо post отправляете get только через post запрос или компонент сам все конвертирует в post ?
    вот как-то так я отправляю post запросы (с другой оперы но всеже)
    procedure TForm1.httppost(url: string; json: TStringList); var Return: IHTTPResponse; aHeader: TURIParameters; begin with TNetHTTPClient.Create(nil) do begin try SetLength(aHeader, 1); aHeader[0] := System.Net.URLClient.TNameValuePair.Create('Authorization:key', Api_key); UserAgent := 'Mozilla/5.0 (X11; Linux x86_64; rv:45.0) Gecko/20100101 Firefox/45.0'; ContentType := 'application/json'; Return := Post(url, json,nil,nil, aHeader); memo1.Lines.Add(Return.ContentAsString()); except on E: Exception do begin end; end; Free; end; end; procedure TForm1.sendpush(title, text, id, dev: string); var ADatas: TStringList; s: string; begin if dev = 'android' then s := 'data'; if dev = 'ios' then s := 'notification'; try ADatas := TStringList.Create; ADatas.Add('{"reistration_ids":[' + id + '],"priority":"high","' + s + '":"{"message":'+text+'","title":"'+title+'","vibrate":"1","sound":"1"}"}'); httppost('https://fcm.googleapis.com/fcm/send', ADatas); finally ADatas.Free; end; end;  
  6. Like
    master webs получил реакцию от Kitty в NetHTTPClient1 87 ошибка на простом запросе post   
    так вы   вместо post отправляете get только через post запрос или компонент сам все конвертирует в post ?
    вот как-то так я отправляю post запросы (с другой оперы но всеже)
    procedure TForm1.httppost(url: string; json: TStringList); var Return: IHTTPResponse; aHeader: TURIParameters; begin with TNetHTTPClient.Create(nil) do begin try SetLength(aHeader, 1); aHeader[0] := System.Net.URLClient.TNameValuePair.Create('Authorization:key', Api_key); UserAgent := 'Mozilla/5.0 (X11; Linux x86_64; rv:45.0) Gecko/20100101 Firefox/45.0'; ContentType := 'application/json'; Return := Post(url, json,nil,nil, aHeader); memo1.Lines.Add(Return.ContentAsString()); except on E: Exception do begin end; end; Free; end; end; procedure TForm1.sendpush(title, text, id, dev: string); var ADatas: TStringList; s: string; begin if dev = 'android' then s := 'data'; if dev = 'ios' then s := 'notification'; try ADatas := TStringList.Create; ADatas.Add('{"reistration_ids":[' + id + '],"priority":"high","' + s + '":"{"message":'+text+'","title":"'+title+'","vibrate":"1","sound":"1"}"}'); httppost('https://fcm.googleapis.com/fcm/send', ADatas); finally ADatas.Free; end; end;  
  7. Like
    master webs получил реакцию от Kitty в TNotificationCenter   
    myNotification->FireDate = Now(); Вы создаете уведомления сразу попробуйте отложить на минуту и свернуть приложение
  8. Like
    master webs получил реакцию от sviat9440 в Белый splash   
  9. Like
    master webs отреагировална Brovin Yaroslav в Благодраность   
    Пока есть такие благодарные и вежливые люди, то помогать всегда в радость :-)
  10. Like
    master webs отреагировална Kitty в Благодраность   
    Большое спасибо Ярославу, что находит время и фиксит проблемы, которые мы тут поднимаем. И курсы его великолепные!
    Спасибо профессионалам, таким как ZuBy, который терпит наши глупые вопросы и помогает.
    СПАСИБО!!!
  11. Like
    master webs получил реакцию от Pax Beach в Белый splash   
    http://g.zeos.in/?q=9.png delphi
  12. Like
    master webs отреагировална sviat9440 в Белый splash   
    хи хи хи
    смешно пошутил
  13. Like
    master webs отреагировална Евгений Корепов в [Статья][AdMob] Добавляем рекламный блок в приложение   
    Это межстраничная (Interstitial) реклама. Родного компонента нет, но отлично работает модуль от турецкого коллеги http://ersanyakit.com/blog/admob-interstitials-snippet-code-using-the-android-jni-in-delphi-xe7-firemonkey.html . Написан для XE7, но отлично работает и в XE8. В Берлине еще не проверял.
    Использовать примерно так:
    procedure onAdClosedEvent(pszData:String); begin FormMain.Log('onAdClosed'); end; procedure onAdFailedToLoadEvent(pszData:String); begin FormMain.Log('onAdFailedToLoad'); end; procedure onAdLeftApplicationEvent(pszData:String); begin FormMain.Log('onAdLeftApplication'); end; procedure onAdOpenedEvent(pszData:String); begin FormMain.Log('onAdOpened'); end; procedure onAdLoadedEvent(pszData:String); begin FormMain.Log('onAdLoaded'); end; procedure TFormMain.ShowAdvertisment; begin IAdvertisment := TInterstitialAdvertisment.Create; IAdvertisment.SetOnCloseEvent(onAdClosedEvent); IAdvertisment.SetOnAdFailedToLoad(onAdFailedToLoadEvent); IAdvertisment.SetOnAdLeftApplication(onAdLeftApplicationEvent); IAdvertisment.SetOnAdOpened(onAdOpenedEvent); IAdvertisment.SetOnAdLoaded(onAdLoadedEvent); {$IFDEF DEBUG} IAdvertisment.TestMode := True; {$ENDIF DEBUG} {$IFDEF RELEASE} IAdvertisment.TestMode := False; {$ENDIF RELEASE} IAdvertisment.SetAdUnitID('ca-app-pub-***************/****************'); IAdvertisment.InitAdvertisment; end;  
  14. Like
    master webs получил реакцию от Равиль Зарипов (ZuBy) в [iOS] [iOS10] Приложение падает при использовании камеры в iOS 10 64 bit   
    попробуйте удалить sdk 8.4 и загрузить 10 
  15. Like
    master webs получил реакцию от Kitty в [iOS] [iOS10] Приложение падает при использовании камеры в iOS 10 64 bit   
    попробуйте удалить sdk 8.4 и загрузить 10 
  16. Like
    master webs получил реакцию от Kitty в TNotificationCenter   
    вариант №1 организовать свою шторку в открытом приложении по типу listview и там хранить уведомления
    2 ставить в очередь уведомления после закрытия  первого  отображать второе 
    3 хранить в json и создать отдельную вкладку для отображения списка всех уведомлений 
    вариантов очень много
  17. Like
    master webs получил реакцию от Brovin Yaroslav в TNotificationCenter   
    ios не отображает уведомление если приложение запущено 
  18. Like
    master webs получил реакцию от Kitty в TNotificationCenter   
    ios не отображает уведомление если приложение запущено 
  19. Like
    master webs получил реакцию от Равиль Зарипов (ZuBy) в TNotificationCenter   
    ios не отображает уведомление если приложение запущено 
  20. Like
    master webs получил реакцию от Pax Beach в TNotificationCenter   
    ios не отображает уведомление если приложение запущено 
  21. Like
    master webs получил реакцию от Rusland в Событие InputBox при клике ListBoxItem   
    разобрался может кому  будет нужно procedure TForm1.shopcartItemClick(const Sender: TCustomListBox;   const Item: TListBoxItem);   var edit: TListBoxItem; begin if shopcart.Selected <> nil then  begin edit:=shopcart.Selected; InputBox('Изменить количество', '', edit.StylesData['textstyle'].ToString,     procedure(const AResult: TModalResult; const AValue: string)     begin     edit.StylesData['textstyle']:= AValue;     end); end;
  22. Like
    master webs отреагировална krapotkin в С днем рождения!   
    Поздравляем Ярослава с Днем рождения!
    Благодарим за титанические усилия, которые он по собственной инициативе, не "благодаря", а скорее "вопреки", прилагает для развития нашего сообщества.
    Желаем не только профессионального благополучия, но и личного счастья!
    Ура, товарищи!

  23. Like
    master webs получил реакцию от Kitty в Подарили C++Builder Starter   
    можете зарегистрироватся  на свой емейл  на сайте ембаркодеро  и получить ключ на форуме есть темы обсуждения 
  24. Like
    master webs получил реакцию от #WAMACO в GCMIntentService или Multiline Push and Local Notification   
    для обезьян только бесплатно  сам активно на фрилансе строчу приложения  на делфях чтоб у нас работа была ))) чтоб если нужны будут доработки  искали имено делфиста обезьянщика )
  25. Like
    master webs получил реакцию от rareMax в GCMIntentService или Multiline Push and Local Notification   
    для обезьян только бесплатно  сам активно на фрилансе строчу приложения  на делфях чтоб у нас работа была ))) чтоб если нужны будут доработки  искали имено делфиста обезьянщика )
×
×
  • Создать...