-
Постов
216 -
Зарегистрирован
-
Посещение
-
Победитель дней
6
Активность репутации
-
master webs получил реакцию от Дилшоджон в заполнение окна формы 2-3 или колонки в зависимости от ориентации экрана
спасибо оперативную помощь я только начал изучать среду разработки ))
-
master webs отреагировална Евгений Корепов в GCM исчез, теперь Firebase Cloud Messaging, но как?
Спасибо огромное! Опять начал это делать, все забыл, каждый раз как заново ) Начал гуглить и тут раз - и моя же тебя с вашим ответом! Все помогло!
-
master webs получил реакцию от Евгений Корепов в GCM исчез, теперь Firebase Cloud Messaging, но как?
-
master webs получил реакцию от Евгений Корепов в GCM исчез, теперь Firebase Cloud Messaging, но как?
Нужно указывать api key а не цифровой id
-
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;
-
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;
-
master webs получил реакцию от Kitty в TNotificationCenter
myNotification->FireDate = Now(); Вы создаете уведомления сразу попробуйте отложить на минуту и свернуть приложение
-
-
master webs отреагировална Brovin Yaroslav в Благодраность
Пока есть такие благодарные и вежливые люди, то помогать всегда в радость :-)
-
master webs отреагировална Kitty в Благодраность
Большое спасибо Ярославу, что находит время и фиксит проблемы, которые мы тут поднимаем. И курсы его великолепные!
Спасибо профессионалам, таким как ZuBy, который терпит наши глупые вопросы и помогает.
СПАСИБО!!!
-
-
-
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;
-
master webs получил реакцию от Равиль Зарипов (ZuBy) в [iOS] [iOS10] Приложение падает при использовании камеры в iOS 10 64 bit
попробуйте удалить sdk 8.4 и загрузить 10
-
master webs получил реакцию от Kitty в [iOS] [iOS10] Приложение падает при использовании камеры в iOS 10 64 bit
попробуйте удалить sdk 8.4 и загрузить 10
-
master webs получил реакцию от Kitty в TNotificationCenter
вариант №1 организовать свою шторку в открытом приложении по типу listview и там хранить уведомления
2 ставить в очередь уведомления после закрытия первого отображать второе
3 хранить в json и создать отдельную вкладку для отображения списка всех уведомлений
вариантов очень много
-
master webs получил реакцию от Brovin Yaroslav в TNotificationCenter
ios не отображает уведомление если приложение запущено
-
master webs получил реакцию от Kitty в TNotificationCenter
ios не отображает уведомление если приложение запущено
-
master webs получил реакцию от Равиль Зарипов (ZuBy) в TNotificationCenter
ios не отображает уведомление если приложение запущено
-
master webs получил реакцию от Pax Beach в TNotificationCenter
ios не отображает уведомление если приложение запущено
-
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; -
master webs отреагировална krapotkin в С днем рождения!
Поздравляем Ярослава с Днем рождения!
Благодарим за титанические усилия, которые он по собственной инициативе, не "благодаря", а скорее "вопреки", прилагает для развития нашего сообщества.
Желаем не только профессионального благополучия, но и личного счастья!
Ура, товарищи!
-
master webs получил реакцию от Kitty в Подарили C++Builder Starter
можете зарегистрироватся на свой емейл на сайте ембаркодеро и получить ключ на форуме есть темы обсуждения
-
master webs получил реакцию от #WAMACO в GCMIntentService или Multiline Push and Local Notification
для обезьян только бесплатно сам активно на фрилансе строчу приложения на делфях чтоб у нас работа была ))) чтоб если нужны будут доработки искали имено делфиста обезьянщика )
-
master webs получил реакцию от rareMax в GCMIntentService или Multiline Push and Local Notification
для обезьян только бесплатно сам активно на фрилансе строчу приложения на делфях чтоб у нас работа была ))) чтоб если нужны будут доработки искали имено делфиста обезьянщика )