├── Bin
    ├── libeay32.dll
    ├── nghttp2.dll
    └── ssleay32.dll
├── Example.Windows
    ├── DelphiRemotePushSender.dpr
    ├── DelphiRemotePushSender.dproj
    ├── DelphiRemotePushSender.res
    ├── FMain.dfm
    └── FMain.pas
├── License.txt
├── Nghttp2.pas
├── README.md
└── ReceivingPushNotifications.md


/Bin/libeay32.dll:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/grijjy/DelphiRemotePushSender/f85c96b4efb8d902658d441d80fbde45d14c7721/Bin/libeay32.dll


--------------------------------------------------------------------------------
/Bin/nghttp2.dll:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/grijjy/DelphiRemotePushSender/f85c96b4efb8d902658d441d80fbde45d14c7721/Bin/nghttp2.dll


--------------------------------------------------------------------------------
/Bin/ssleay32.dll:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/grijjy/DelphiRemotePushSender/f85c96b4efb8d902658d441d80fbde45d14c7721/Bin/ssleay32.dll


--------------------------------------------------------------------------------
/Example.Windows/DelphiRemotePushSender.dpr:
--------------------------------------------------------------------------------
 1 | program DelphiRemotePushSender;
 2 | 
 3 | uses
 4 |   Vcl.Forms,
 5 |   FMain in 'FMain.pas' {FormMain},
 6 |   Grijjy.RemotePush.Sender in '..\..\GrijjyFoundation\Grijjy.RemotePush.Sender.pas',
 7 |   Grijjy.Bson in '..\..\GrijjyFoundation\Grijjy.Bson.pas',
 8 |   Grijjy.Http in '..\..\GrijjyFoundation\Grijjy.Http.pas',
 9 |   Grijjy.SocketPool.Win in '..\..\GrijjyFoundation\Grijjy.SocketPool.Win.pas',
10 |   Grijjy.Uri in '..\..\GrijjyFoundation\Grijjy.Uri.pas',
11 |   Grijjy.Winsock2 in '..\..\GrijjyFoundation\Grijjy.Winsock2.pas',
12 |   Grijjy.OpenSSL in '..\..\GrijjyFoundation\Grijjy.OpenSSL.pas',
13 |   Grijjy.OpenSSL.API in '..\..\GrijjyFoundation\Grijjy.OpenSSL.API.pas',
14 |   Grijjy.MemoryPool in '..\..\GrijjyFoundation\Grijjy.MemoryPool.pas',
15 |   Grijjy.Collections in '..\..\GrijjyFoundation\Grijjy.Collections.pas',
16 |   Grijjy.BinaryCoding in '..\..\GrijjyFoundation\Grijjy.BinaryCoding.pas',
17 |   Nghttp2 in '..\Nghttp2.pas',
18 |   Grijjy.SysUtils in '..\..\GrijjyFoundation\Grijjy.SysUtils.pas',
19 |   Grijjy.DateUtils in '..\..\GrijjyFoundation\Grijjy.DateUtils.pas',
20 |   Grijjy.Bson.IO in '..\..\GrijjyFoundation\Grijjy.Bson.IO.pas';
21 | 
22 | {$R *.res}
23 | 
24 | begin
25 |   Application.Initialize;
26 |   Application.MainFormOnTaskbar := True;
27 |   Application.CreateForm(TFormMain, FormMain);
28 |   Application.Run;
29 | end.
30 | 


--------------------------------------------------------------------------------
/Example.Windows/DelphiRemotePushSender.dproj:
--------------------------------------------------------------------------------
  1 | <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  2 |     <PropertyGroup>
  3 |         <ProjectGuid>{DC769454-4F24-42BF-9554-DA0A49F5D879}</ProjectGuid>
  4 |         <ProjectVersion>18.2</ProjectVersion>
  5 |         <FrameworkType>VCL</FrameworkType>
  6 |         <MainSource>DelphiRemotePushSender.dpr</MainSource>
  7 |         <Base>True</Base>
  8 |         <Config Condition="'$(Config)'==''">Debug</Config>
  9 |         <Platform Condition="'$(Platform)'==''">Win32</Platform>
 10 |         <TargetedPlatforms>1</TargetedPlatforms>
 11 |         <AppType>Application</AppType>
 12 |     </PropertyGroup>
 13 |     <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
 14 |         <Base>true</Base>
 15 |     </PropertyGroup>
 16 |     <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
 17 |         <Base_Win32>true</Base_Win32>
 18 |         <CfgParent>Base</CfgParent>
 19 |         <Base>true</Base>
 20 |     </PropertyGroup>
 21 |     <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
 22 |         <Base_Win64>true</Base_Win64>
 23 |         <CfgParent>Base</CfgParent>
 24 |         <Base>true</Base>
 25 |     </PropertyGroup>
 26 |     <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
 27 |         <Cfg_1>true</Cfg_1>
 28 |         <CfgParent>Base</CfgParent>
 29 |         <Base>true</Base>
 30 |     </PropertyGroup>
 31 |     <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
 32 |         <Cfg_1_Win32>true</Cfg_1_Win32>
 33 |         <CfgParent>Cfg_1</CfgParent>
 34 |         <Cfg_1>true</Cfg_1>
 35 |         <Base>true</Base>
 36 |     </PropertyGroup>
 37 |     <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
 38 |         <Cfg_2>true</Cfg_2>
 39 |         <CfgParent>Base</CfgParent>
 40 |         <Base>true</Base>
 41 |     </PropertyGroup>
 42 |     <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
 43 |         <Cfg_2_Win32>true</Cfg_2_Win32>
 44 |         <CfgParent>Cfg_2</CfgParent>
 45 |         <Cfg_2>true</Cfg_2>
 46 |         <Base>true</Base>
 47 |     </PropertyGroup>
 48 |     <PropertyGroup Condition="'$(Base)'!=''">
 49 |         <SanitizedProjectName>DelphiRemotePushSender</SanitizedProjectName>
 50 |         <Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
 51 |         <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
 52 |         <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
 53 |         <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
 54 |         <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
 55 |         <VerInfo_Locale>1033</VerInfo_Locale>
 56 |         <DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
 57 |         <DCC_ExeOutput>..\Bin</DCC_ExeOutput>
 58 |         <DCC_E>false</DCC_E>
 59 |         <DCC_N>false</DCC_N>
 60 |         <DCC_S>false</DCC_S>
 61 |         <DCC_F>false</DCC_F>
 62 |         <DCC_K>false</DCC_K>
 63 |     </PropertyGroup>
 64 |     <PropertyGroup Condition="'$(Base_Win32)'!=''">
 65 |         <BT_BuildType>Debug</BT_BuildType>
 66 |         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
 67 |         <DCC_UsePackage>DBXSqliteDriver;RESTComponents;fmxase;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;emsclientfiredac;tethering;svnui;DataSnapFireDAC;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;svn;DBXOracleDriver;inetdb;emsedge;FireDACIBDriver;fmx;fmxdae;FireDACDBXDriver;dbexpress;IndyCore;vclx;dsnap;emsclient;DataSnapCommon;FireDACCommon;RESTBackendComponents;DataSnapConnectors;VCLRESTComponents;soapserver;vclie;bindengine;DBXMySQLDriver;CloudService;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;FireDACCommonDriver;DataSnapClient;inet;IndyIPCommon;bindcompdbx;vcl;IndyIPServer;DBXSybaseASEDriver;IndySystem;FireDACDb2Driver;dsnapcon;FireDACMSAccDriver;fmxFireDAC;FireDACInfxDriver;vclimg;FireDAC;emshosting;FireDACSqliteDriver;FireDACPgDriver;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;soaprtl;DbxCommonDriver;DataSnapServer;xmlrtl;soapmidas;DataSnapNativeClient;fmxobj;vclwinx;FireDACDSDriver;rtl;DbxClientDriver;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;dsnapxml;DataSnapProviderClient;dbrtl;IndyProtocols;inetdbxpress;FireDACMongoDBDriver;DataSnapServerMidas;$(DCC_UsePackage)</DCC_UsePackage>
 68 |         <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
 69 |         <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
 70 |         <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
 71 |         <VerInfo_Locale>1033</VerInfo_Locale>
 72 |     </PropertyGroup>
 73 |     <PropertyGroup Condition="'$(Base_Win64)'!=''">
 74 |         <DCC_UsePackage>DBXSqliteDriver;RESTComponents;fmxase;DBXDb2Driver;DBXInterBaseDriver;vclactnband;vclFireDAC;emsclientfiredac;tethering;DataSnapFireDAC;FireDACADSDriver;DBXMSSQLDriver;DatasnapConnectorsFreePascal;FireDACMSSQLDriver;vcltouch;vcldb;bindcompfmx;DBXOracleDriver;inetdb;emsedge;FireDACIBDriver;fmx;fmxdae;FireDACDBXDriver;dbexpress;IndyCore;vclx;dsnap;emsclient;DataSnapCommon;FireDACCommon;RESTBackendComponents;DataSnapConnectors;VCLRESTComponents;soapserver;vclie;bindengine;DBXMySQLDriver;CloudService;FireDACOracleDriver;FireDACMySQLDriver;DBXFirebirdDriver;FireDACCommonODBC;FireDACCommonDriver;DataSnapClient;inet;IndyIPCommon;bindcompdbx;vcl;IndyIPServer;DBXSybaseASEDriver;IndySystem;FireDACDb2Driver;dsnapcon;FireDACMSAccDriver;fmxFireDAC;FireDACInfxDriver;vclimg;FireDAC;emshosting;FireDACSqliteDriver;FireDACPgDriver;FireDACASADriver;DBXOdbcDriver;FireDACTDataDriver;soaprtl;DbxCommonDriver;DataSnapServer;xmlrtl;soapmidas;DataSnapNativeClient;fmxobj;vclwinx;FireDACDSDriver;rtl;DbxClientDriver;DBXSybaseASADriver;CustomIPTransport;vcldsnap;bindcomp;appanalytics;DBXInformixDriver;IndyIPClient;bindcompvcl;dbxcds;VclSmp;adortl;FireDACODBCDriver;DataSnapIndy10ServerTransport;dsnapxml;DataSnapProviderClient;dbrtl;IndyProtocols;inetdbxpress;FireDACMongoDBDriver;DataSnapServerMidas;$(DCC_UsePackage)</DCC_UsePackage>
 75 |     </PropertyGroup>
 76 |     <PropertyGroup Condition="'$(Cfg_1)'!=''">
 77 |         <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
 78 |         <DCC_DebugDCUs>true</DCC_DebugDCUs>
 79 |         <DCC_Optimize>false</DCC_Optimize>
 80 |         <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
 81 |         <DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
 82 |         <DCC_RemoteDebug>true</DCC_RemoteDebug>
 83 |     </PropertyGroup>
 84 |     <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
 85 |         <AppEnableHighDPI>true</AppEnableHighDPI>
 86 |         <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
 87 |         <VerInfo_Locale>1033</VerInfo_Locale>
 88 |         <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
 89 |         <DCC_RemoteDebug>false</DCC_RemoteDebug>
 90 |     </PropertyGroup>
 91 |     <PropertyGroup Condition="'$(Cfg_2)'!=''">
 92 |         <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
 93 |         <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
 94 |         <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
 95 |         <DCC_DebugInformation>0</DCC_DebugInformation>
 96 |     </PropertyGroup>
 97 |     <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
 98 |         <AppEnableHighDPI>true</AppEnableHighDPI>
 99 |         <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
100 |     </PropertyGroup>
101 |     <ItemGroup>
102 |         <DelphiCompile Include="$(MainSource)">
103 |             <MainSource>MainSource</MainSource>
104 |         </DelphiCompile>
105 |         <DCCReference Include="FMain.pas">
106 |             <Form>FormMain</Form>
107 |             <FormType>dfm</FormType>
108 |         </DCCReference>
109 |         <DCCReference Include="..\..\GrijjyFoundation\Grijjy.RemotePush.Sender.pas"/>
110 |         <DCCReference Include="..\..\GrijjyFoundation\Grijjy.Bson.pas"/>
111 |         <DCCReference Include="..\..\GrijjyFoundation\Grijjy.Http.pas"/>
112 |         <DCCReference Include="..\..\GrijjyFoundation\Grijjy.SocketPool.Win.pas"/>
113 |         <DCCReference Include="..\..\GrijjyFoundation\Grijjy.Uri.pas"/>
114 |         <DCCReference Include="..\..\GrijjyFoundation\Grijjy.Winsock2.pas"/>
115 |         <DCCReference Include="..\..\GrijjyFoundation\Grijjy.OpenSSL.pas"/>
116 |         <DCCReference Include="..\..\GrijjyFoundation\Grijjy.OpenSSL.API.pas"/>
117 |         <DCCReference Include="..\..\GrijjyFoundation\Grijjy.MemoryPool.pas"/>
118 |         <DCCReference Include="..\..\GrijjyFoundation\Grijjy.Collections.pas"/>
119 |         <DCCReference Include="..\..\GrijjyFoundation\Grijjy.BinaryCoding.pas"/>
120 |         <DCCReference Include="..\Nghttp2.pas"/>
121 |         <DCCReference Include="..\..\GrijjyFoundation\Grijjy.SysUtils.pas"/>
122 |         <DCCReference Include="..\..\GrijjyFoundation\Grijjy.DateUtils.pas"/>
123 |         <DCCReference Include="..\..\GrijjyFoundation\Grijjy.Bson.IO.pas"/>
124 |         <BuildConfiguration Include="Release">
125 |             <Key>Cfg_2</Key>
126 |             <CfgParent>Base</CfgParent>
127 |         </BuildConfiguration>
128 |         <BuildConfiguration Include="Base">
129 |             <Key>Base</Key>
130 |         </BuildConfiguration>
131 |         <BuildConfiguration Include="Debug">
132 |             <Key>Cfg_1</Key>
133 |             <CfgParent>Base</CfgParent>
134 |         </BuildConfiguration>
135 |     </ItemGroup>
136 |     <ProjectExtensions>
137 |         <Borland.Personality>Delphi.Personality.12</Borland.Personality>
138 |         <Borland.ProjectType>Application</Borland.ProjectType>
139 |         <BorlandProject>
140 |             <Delphi.Personality>
141 |                 <Source>
142 |                     <Source Name="MainSource">DelphiRemotePushSender.dpr</Source>
143 |                 </Source>
144 |                 <Excluded_Packages>
145 |                     <Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
146 |                     <Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
147 |                 </Excluded_Packages>
148 |             </Delphi.Personality>
149 |             <Deployment Version="3">
150 |                 <DeployFile LocalName="..\Bin\DelphiRemotePushSender.exe" Configuration="Debug" Class="ProjectOutput">
151 |                     <Platform Name="Win32">
152 |                         <RemoteName>DelphiRemotePushSender.exe</RemoteName>
153 |                         <Overwrite>true</Overwrite>
154 |                     </Platform>
155 |                 </DeployFile>
156 |                 <DeployClass Name="AdditionalDebugSymbols">
157 |                     <Platform Name="iOSSimulator">
158 |                         <Operation>1</Operation>
159 |                     </Platform>
160 |                     <Platform Name="OSX32">
161 |                         <RemoteDir>Contents\MacOS</RemoteDir>
162 |                         <Operation>1</Operation>
163 |                     </Platform>
164 |                     <Platform Name="Win32">
165 |                         <RemoteDir>Contents\MacOS</RemoteDir>
166 |                         <Operation>0</Operation>
167 |                     </Platform>
168 |                 </DeployClass>
169 |                 <DeployClass Name="AndroidClassesDexFile">
170 |                     <Platform Name="Android">
171 |                         <RemoteDir>classes</RemoteDir>
172 |                         <Operation>1</Operation>
173 |                     </Platform>
174 |                 </DeployClass>
175 |                 <DeployClass Name="AndroidGDBServer">
176 |                     <Platform Name="Android">
177 |                         <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
178 |                         <Operation>1</Operation>
179 |                     </Platform>
180 |                 </DeployClass>
181 |                 <DeployClass Name="AndroidLibnativeArmeabiFile">
182 |                     <Platform Name="Android">
183 |                         <RemoteDir>library\lib\armeabi</RemoteDir>
184 |                         <Operation>1</Operation>
185 |                     </Platform>
186 |                 </DeployClass>
187 |                 <DeployClass Name="AndroidLibnativeMipsFile">
188 |                     <Platform Name="Android">
189 |                         <RemoteDir>library\lib\mips</RemoteDir>
190 |                         <Operation>1</Operation>
191 |                     </Platform>
192 |                 </DeployClass>
193 |                 <DeployClass Name="AndroidServiceOutput">
194 |                     <Platform Name="Android">
195 |                         <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
196 |                         <Operation>1</Operation>
197 |                     </Platform>
198 |                 </DeployClass>
199 |                 <DeployClass Name="AndroidSplashImageDef">
200 |                     <Platform Name="Android">
201 |                         <RemoteDir>res\drawable</RemoteDir>
202 |                         <Operation>1</Operation>
203 |                     </Platform>
204 |                 </DeployClass>
205 |                 <DeployClass Name="AndroidSplashStyles">
206 |                     <Platform Name="Android">
207 |                         <RemoteDir>res\values</RemoteDir>
208 |                         <Operation>1</Operation>
209 |                     </Platform>
210 |                 </DeployClass>
211 |                 <DeployClass Name="Android_DefaultAppIcon">
212 |                     <Platform Name="Android">
213 |                         <RemoteDir>res\drawable</RemoteDir>
214 |                         <Operation>1</Operation>
215 |                     </Platform>
216 |                 </DeployClass>
217 |                 <DeployClass Name="Android_LauncherIcon144">
218 |                     <Platform Name="Android">
219 |                         <RemoteDir>res\drawable-xxhdpi</RemoteDir>
220 |                         <Operation>1</Operation>
221 |                     </Platform>
222 |                 </DeployClass>
223 |                 <DeployClass Name="Android_LauncherIcon36">
224 |                     <Platform Name="Android">
225 |                         <RemoteDir>res\drawable-ldpi</RemoteDir>
226 |                         <Operation>1</Operation>
227 |                     </Platform>
228 |                 </DeployClass>
229 |                 <DeployClass Name="Android_LauncherIcon48">
230 |                     <Platform Name="Android">
231 |                         <RemoteDir>res\drawable-mdpi</RemoteDir>
232 |                         <Operation>1</Operation>
233 |                     </Platform>
234 |                 </DeployClass>
235 |                 <DeployClass Name="Android_LauncherIcon72">
236 |                     <Platform Name="Android">
237 |                         <RemoteDir>res\drawable-hdpi</RemoteDir>
238 |                         <Operation>1</Operation>
239 |                     </Platform>
240 |                 </DeployClass>
241 |                 <DeployClass Name="Android_LauncherIcon96">
242 |                     <Platform Name="Android">
243 |                         <RemoteDir>res\drawable-xhdpi</RemoteDir>
244 |                         <Operation>1</Operation>
245 |                     </Platform>
246 |                 </DeployClass>
247 |                 <DeployClass Name="Android_SplashImage426">
248 |                     <Platform Name="Android">
249 |                         <RemoteDir>res\drawable-small</RemoteDir>
250 |                         <Operation>1</Operation>
251 |                     </Platform>
252 |                 </DeployClass>
253 |                 <DeployClass Name="Android_SplashImage470">
254 |                     <Platform Name="Android">
255 |                         <RemoteDir>res\drawable-normal</RemoteDir>
256 |                         <Operation>1</Operation>
257 |                     </Platform>
258 |                 </DeployClass>
259 |                 <DeployClass Name="Android_SplashImage640">
260 |                     <Platform Name="Android">
261 |                         <RemoteDir>res\drawable-large</RemoteDir>
262 |                         <Operation>1</Operation>
263 |                     </Platform>
264 |                 </DeployClass>
265 |                 <DeployClass Name="Android_SplashImage960">
266 |                     <Platform Name="Android">
267 |                         <RemoteDir>res\drawable-xlarge</RemoteDir>
268 |                         <Operation>1</Operation>
269 |                     </Platform>
270 |                 </DeployClass>
271 |                 <DeployClass Name="DebugSymbols">
272 |                     <Platform Name="iOSSimulator">
273 |                         <Operation>1</Operation>
274 |                     </Platform>
275 |                     <Platform Name="OSX32">
276 |                         <RemoteDir>Contents\MacOS</RemoteDir>
277 |                         <Operation>1</Operation>
278 |                     </Platform>
279 |                     <Platform Name="Win32">
280 |                         <Operation>0</Operation>
281 |                     </Platform>
282 |                 </DeployClass>
283 |                 <DeployClass Name="DependencyFramework">
284 |                     <Platform Name="OSX32">
285 |                         <RemoteDir>Contents\MacOS</RemoteDir>
286 |                         <Operation>1</Operation>
287 |                         <Extensions>.framework</Extensions>
288 |                     </Platform>
289 |                     <Platform Name="Win32">
290 |                         <Operation>0</Operation>
291 |                     </Platform>
292 |                 </DeployClass>
293 |                 <DeployClass Name="DependencyModule">
294 |                     <Platform Name="iOSDevice32">
295 |                         <Operation>1</Operation>
296 |                         <Extensions>.dylib</Extensions>
297 |                     </Platform>
298 |                     <Platform Name="iOSDevice64">
299 |                         <Operation>1</Operation>
300 |                         <Extensions>.dylib</Extensions>
301 |                     </Platform>
302 |                     <Platform Name="iOSSimulator">
303 |                         <Operation>1</Operation>
304 |                         <Extensions>.dylib</Extensions>
305 |                     </Platform>
306 |                     <Platform Name="OSX32">
307 |                         <RemoteDir>Contents\MacOS</RemoteDir>
308 |                         <Operation>1</Operation>
309 |                         <Extensions>.dylib</Extensions>
310 |                     </Platform>
311 |                     <Platform Name="Win32">
312 |                         <Operation>0</Operation>
313 |                         <Extensions>.dll;.bpl</Extensions>
314 |                     </Platform>
315 |                 </DeployClass>
316 |                 <DeployClass Required="true" Name="DependencyPackage">
317 |                     <Platform Name="iOSDevice32">
318 |                         <Operation>1</Operation>
319 |                         <Extensions>.dylib</Extensions>
320 |                     </Platform>
321 |                     <Platform Name="iOSDevice64">
322 |                         <Operation>1</Operation>
323 |                         <Extensions>.dylib</Extensions>
324 |                     </Platform>
325 |                     <Platform Name="iOSSimulator">
326 |                         <Operation>1</Operation>
327 |                         <Extensions>.dylib</Extensions>
328 |                     </Platform>
329 |                     <Platform Name="OSX32">
330 |                         <RemoteDir>Contents\MacOS</RemoteDir>
331 |                         <Operation>1</Operation>
332 |                         <Extensions>.dylib</Extensions>
333 |                     </Platform>
334 |                     <Platform Name="Win32">
335 |                         <Operation>0</Operation>
336 |                         <Extensions>.bpl</Extensions>
337 |                     </Platform>
338 |                 </DeployClass>
339 |                 <DeployClass Name="File">
340 |                     <Platform Name="Android">
341 |                         <Operation>0</Operation>
342 |                     </Platform>
343 |                     <Platform Name="iOSDevice32">
344 |                         <Operation>0</Operation>
345 |                     </Platform>
346 |                     <Platform Name="iOSDevice64">
347 |                         <Operation>0</Operation>
348 |                     </Platform>
349 |                     <Platform Name="iOSSimulator">
350 |                         <Operation>0</Operation>
351 |                     </Platform>
352 |                     <Platform Name="OSX32">
353 |                         <RemoteDir>Contents\Resources\StartUp\</RemoteDir>
354 |                         <Operation>0</Operation>
355 |                     </Platform>
356 |                     <Platform Name="Win32">
357 |                         <Operation>0</Operation>
358 |                     </Platform>
359 |                 </DeployClass>
360 |                 <DeployClass Name="iPad_Launch1024">
361 |                     <Platform Name="iOSDevice32">
362 |                         <Operation>1</Operation>
363 |                     </Platform>
364 |                     <Platform Name="iOSDevice64">
365 |                         <Operation>1</Operation>
366 |                     </Platform>
367 |                     <Platform Name="iOSSimulator">
368 |                         <Operation>1</Operation>
369 |                     </Platform>
370 |                 </DeployClass>
371 |                 <DeployClass Name="iPad_Launch1536">
372 |                     <Platform Name="iOSDevice32">
373 |                         <Operation>1</Operation>
374 |                     </Platform>
375 |                     <Platform Name="iOSDevice64">
376 |                         <Operation>1</Operation>
377 |                     </Platform>
378 |                     <Platform Name="iOSSimulator">
379 |                         <Operation>1</Operation>
380 |                     </Platform>
381 |                 </DeployClass>
382 |                 <DeployClass Name="iPad_Launch2048">
383 |                     <Platform Name="iOSDevice32">
384 |                         <Operation>1</Operation>
385 |                     </Platform>
386 |                     <Platform Name="iOSDevice64">
387 |                         <Operation>1</Operation>
388 |                     </Platform>
389 |                     <Platform Name="iOSSimulator">
390 |                         <Operation>1</Operation>
391 |                     </Platform>
392 |                 </DeployClass>
393 |                 <DeployClass Name="iPad_Launch768">
394 |                     <Platform Name="iOSDevice32">
395 |                         <Operation>1</Operation>
396 |                     </Platform>
397 |                     <Platform Name="iOSDevice64">
398 |                         <Operation>1</Operation>
399 |                     </Platform>
400 |                     <Platform Name="iOSSimulator">
401 |                         <Operation>1</Operation>
402 |                     </Platform>
403 |                 </DeployClass>
404 |                 <DeployClass Name="iPhone_Launch320">
405 |                     <Platform Name="iOSDevice32">
406 |                         <Operation>1</Operation>
407 |                     </Platform>
408 |                     <Platform Name="iOSDevice64">
409 |                         <Operation>1</Operation>
410 |                     </Platform>
411 |                     <Platform Name="iOSSimulator">
412 |                         <Operation>1</Operation>
413 |                     </Platform>
414 |                 </DeployClass>
415 |                 <DeployClass Name="iPhone_Launch640">
416 |                     <Platform Name="iOSDevice32">
417 |                         <Operation>1</Operation>
418 |                     </Platform>
419 |                     <Platform Name="iOSDevice64">
420 |                         <Operation>1</Operation>
421 |                     </Platform>
422 |                     <Platform Name="iOSSimulator">
423 |                         <Operation>1</Operation>
424 |                     </Platform>
425 |                 </DeployClass>
426 |                 <DeployClass Name="iPhone_Launch640x1136">
427 |                     <Platform Name="iOSDevice32">
428 |                         <Operation>1</Operation>
429 |                     </Platform>
430 |                     <Platform Name="iOSDevice64">
431 |                         <Operation>1</Operation>
432 |                     </Platform>
433 |                     <Platform Name="iOSSimulator">
434 |                         <Operation>1</Operation>
435 |                     </Platform>
436 |                 </DeployClass>
437 |                 <DeployClass Name="ProjectAndroidManifest">
438 |                     <Platform Name="Android">
439 |                         <Operation>1</Operation>
440 |                     </Platform>
441 |                 </DeployClass>
442 |                 <DeployClass Name="ProjectiOSDeviceDebug">
443 |                     <Platform Name="iOSDevice32">
444 |                         <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
445 |                         <Operation>1</Operation>
446 |                     </Platform>
447 |                     <Platform Name="iOSDevice64">
448 |                         <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
449 |                         <Operation>1</Operation>
450 |                     </Platform>
451 |                 </DeployClass>
452 |                 <DeployClass Name="ProjectiOSDeviceResourceRules">
453 |                     <Platform Name="iOSDevice32">
454 |                         <Operation>1</Operation>
455 |                     </Platform>
456 |                     <Platform Name="iOSDevice64">
457 |                         <Operation>1</Operation>
458 |                     </Platform>
459 |                 </DeployClass>
460 |                 <DeployClass Name="ProjectiOSEntitlements">
461 |                     <Platform Name="iOSDevice32">
462 |                         <RemoteDir>..\</RemoteDir>
463 |                         <Operation>1</Operation>
464 |                     </Platform>
465 |                     <Platform Name="iOSDevice64">
466 |                         <RemoteDir>..\</RemoteDir>
467 |                         <Operation>1</Operation>
468 |                     </Platform>
469 |                 </DeployClass>
470 |                 <DeployClass Name="ProjectiOSInfoPList">
471 |                     <Platform Name="iOSDevice32">
472 |                         <Operation>1</Operation>
473 |                     </Platform>
474 |                     <Platform Name="iOSDevice64">
475 |                         <Operation>1</Operation>
476 |                     </Platform>
477 |                     <Platform Name="iOSSimulator">
478 |                         <Operation>1</Operation>
479 |                     </Platform>
480 |                 </DeployClass>
481 |                 <DeployClass Name="ProjectiOSResource">
482 |                     <Platform Name="iOSDevice32">
483 |                         <Operation>1</Operation>
484 |                     </Platform>
485 |                     <Platform Name="iOSDevice64">
486 |                         <Operation>1</Operation>
487 |                     </Platform>
488 |                     <Platform Name="iOSSimulator">
489 |                         <Operation>1</Operation>
490 |                     </Platform>
491 |                 </DeployClass>
492 |                 <DeployClass Name="ProjectOSXEntitlements">
493 |                     <Platform Name="OSX32">
494 |                         <RemoteDir>..\</RemoteDir>
495 |                         <Operation>1</Operation>
496 |                     </Platform>
497 |                 </DeployClass>
498 |                 <DeployClass Name="ProjectOSXInfoPList">
499 |                     <Platform Name="OSX32">
500 |                         <RemoteDir>Contents</RemoteDir>
501 |                         <Operation>1</Operation>
502 |                     </Platform>
503 |                 </DeployClass>
504 |                 <DeployClass Name="ProjectOSXResource">
505 |                     <Platform Name="OSX32">
506 |                         <RemoteDir>Contents\Resources</RemoteDir>
507 |                         <Operation>1</Operation>
508 |                     </Platform>
509 |                 </DeployClass>
510 |                 <DeployClass Required="true" Name="ProjectOutput">
511 |                     <Platform Name="Android">
512 |                         <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
513 |                         <Operation>1</Operation>
514 |                     </Platform>
515 |                     <Platform Name="iOSDevice32">
516 |                         <Operation>1</Operation>
517 |                     </Platform>
518 |                     <Platform Name="iOSDevice64">
519 |                         <Operation>1</Operation>
520 |                     </Platform>
521 |                     <Platform Name="iOSSimulator">
522 |                         <Operation>1</Operation>
523 |                     </Platform>
524 |                     <Platform Name="Linux64">
525 |                         <Operation>1</Operation>
526 |                     </Platform>
527 |                     <Platform Name="OSX32">
528 |                         <RemoteDir>Contents\MacOS</RemoteDir>
529 |                         <Operation>1</Operation>
530 |                     </Platform>
531 |                     <Platform Name="Win32">
532 |                         <Operation>0</Operation>
533 |                     </Platform>
534 |                 </DeployClass>
535 |                 <DeployClass Name="ProjectUWPManifest">
536 |                     <Platform Name="Win32">
537 |                         <Operation>1</Operation>
538 |                     </Platform>
539 |                     <Platform Name="Win64">
540 |                         <Operation>1</Operation>
541 |                     </Platform>
542 |                 </DeployClass>
543 |                 <DeployClass Name="UWP_DelphiLogo150">
544 |                     <Platform Name="Win32">
545 |                         <RemoteDir>Assets</RemoteDir>
546 |                         <Operation>1</Operation>
547 |                     </Platform>
548 |                     <Platform Name="Win64">
549 |                         <RemoteDir>Assets</RemoteDir>
550 |                         <Operation>1</Operation>
551 |                     </Platform>
552 |                 </DeployClass>
553 |                 <DeployClass Name="UWP_DelphiLogo44">
554 |                     <Platform Name="Win32">
555 |                         <RemoteDir>Assets</RemoteDir>
556 |                         <Operation>1</Operation>
557 |                     </Platform>
558 |                     <Platform Name="Win64">
559 |                         <RemoteDir>Assets</RemoteDir>
560 |                         <Operation>1</Operation>
561 |                     </Platform>
562 |                 </DeployClass>
563 |                 <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
564 |                 <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
565 |                 <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
566 |                 <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
567 |                 <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
568 |                 <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
569 |                 <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
570 |                 <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
571 |             </Deployment>
572 |             <Platforms>
573 |                 <Platform value="Win32">True</Platform>
574 |                 <Platform value="Win64">False</Platform>
575 |             </Platforms>
576 |         </BorlandProject>
577 |         <ProjectFileVersion>12</ProjectFileVersion>
578 |     </ProjectExtensions>
579 |     <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
580 |     <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
581 |     <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
582 | </Project>
583 | 


--------------------------------------------------------------------------------
/Example.Windows/DelphiRemotePushSender.res:
--------------------------------------------------------------------------------
https://raw.githubusercontent.com/grijjy/DelphiRemotePushSender/f85c96b4efb8d902658d441d80fbde45d14c7721/Example.Windows/DelphiRemotePushSender.res


--------------------------------------------------------------------------------
/Example.Windows/FMain.dfm:
--------------------------------------------------------------------------------
  1 | object FormMain: TFormMain
  2 |   Left = 0
  3 |   Top = 0
  4 |   Caption = 'FormMain'
  5 |   ClientHeight = 339
  6 |   ClientWidth = 837
  7 |   Color = clBtnFace
  8 |   Font.Charset = DEFAULT_CHARSET
  9 |   Font.Color = clWindowText
 10 |   Font.Height = -11
 11 |   Font.Name = 'Tahoma'
 12 |   Font.Style = []
 13 |   OldCreateOrder = False
 14 |   OnShow = FormShow
 15 |   PixelsPerInch = 96
 16 |   TextHeight = 13
 17 |   object LabelDeviceToken: TLabel
 18 |     Left = 416
 19 |     Top = 19
 20 |     Width = 64
 21 |     Height = 13
 22 |     Caption = 'Device Token'
 23 |   end
 24 |   object LabelTitle: TLabel
 25 |     Left = 416
 26 |     Top = 75
 27 |     Width = 20
 28 |     Height = 13
 29 |     Caption = 'Title'
 30 |   end
 31 |   object LabelMessage: TLabel
 32 |     Left = 416
 33 |     Top = 131
 34 |     Width = 42
 35 |     Height = 13
 36 |     Caption = 'Message'
 37 |   end
 38 |   object ButtonSend: TButton
 39 |     Left = 750
 40 |     Top = 296
 41 |     Width = 75
 42 |     Height = 25
 43 |     Caption = 'Send'
 44 |     TabOrder = 4
 45 |     OnClick = ButtonSendClick
 46 |   end
 47 |   object GroupBoxPlatform: TGroupBox
 48 |     Left = 8
 49 |     Top = 8
 50 |     Width = 377
 51 |     Height = 305
 52 |     Caption = 'Platform'
 53 |     TabOrder = 0
 54 |     object LabelAndroidAPIKey: TLabel
 55 |       Left = 24
 56 |       Top = 224
 57 |       Width = 75
 58 |       Height = 13
 59 |       Caption = 'Android APIKey'
 60 |     end
 61 |     object LabelAPNSTopic: TLabel
 62 |       Left = 24
 63 |       Top = 48
 64 |       Width = 54
 65 |       Height = 13
 66 |       Caption = 'APNS Topic'
 67 |     end
 68 |     object LabelAPNSCertificate: TLabel
 69 |       Left = 24
 70 |       Top = 94
 71 |       Width = 79
 72 |       Height = 13
 73 |       Caption = 'APNS Certificate'
 74 |     end
 75 |     object LabelAPNSKey: TLabel
 76 |       Left = 24
 77 |       Top = 141
 78 |       Width = 47
 79 |       Height = 13
 80 |       Caption = 'APNS Key'
 81 |     end
 82 |     object RadioButtoniOS: TRadioButton
 83 |       Left = 8
 84 |       Top = 24
 85 |       Width = 113
 86 |       Height = 17
 87 |       Caption = 'iOS'
 88 |       Checked = True
 89 |       TabOrder = 0
 90 |       TabStop = True
 91 |       OnClick = RadioButtoniOSClick
 92 |     end
 93 |     object RadioButtonAndroid: TRadioButton
 94 |       Left = 8
 95 |       Top = 199
 96 |       Width = 113
 97 |       Height = 17
 98 |       Caption = 'Android'
 99 |       TabOrder = 7
100 |       OnClick = RadioButtonAndroidClick
101 |     end
102 |     object EditAndroidAPIKey: TEdit
103 |       Left = 24
104 |       Top = 243
105 |       Width = 322
106 |       Height = 21
107 |       TabOrder = 6
108 |     end
109 |     object EditAPNSTopic: TEdit
110 |       Left = 24
111 |       Top = 67
112 |       Width = 322
113 |       Height = 21
114 |       TabOrder = 1
115 |       Text = 'com.mycool.app'
116 |     end
117 |     object EditAPNSCertificate: TEdit
118 |       Left = 24
119 |       Top = 112
120 |       Width = 233
121 |       Height = 21
122 |       TabOrder = 2
123 |     end
124 |     object EditAPNSKey: TEdit
125 |       Left = 24
126 |       Top = 160
127 |       Width = 233
128 |       Height = 21
129 |       TabOrder = 4
130 |     end
131 |     object ButtonBrowseCertificate: TButton
132 |       Left = 271
133 |       Top = 110
134 |       Width = 75
135 |       Height = 25
136 |       Caption = 'Browse Cert'
137 |       TabOrder = 3
138 |       OnClick = ButtonBrowseCertificateClick
139 |     end
140 |     object ButtonBrowseKey: TButton
141 |       Left = 271
142 |       Top = 158
143 |       Width = 75
144 |       Height = 25
145 |       Caption = 'Browse Key'
146 |       TabOrder = 5
147 |       OnClick = ButtonBrowseKeyClick
148 |     end
149 |   end
150 |   object EditDeviceToken: TEdit
151 |     Left = 416
152 |     Top = 38
153 |     Width = 409
154 |     Height = 21
155 |     TabOrder = 1
156 |   end
157 |   object EditTitle: TEdit
158 |     Left = 416
159 |     Top = 94
160 |     Width = 409
161 |     Height = 21
162 |     TabOrder = 2
163 |     Text = 'My Title'
164 |   end
165 |   object MemoMessage: TMemo
166 |     Left = 416
167 |     Top = 150
168 |     Width = 409
169 |     Height = 130
170 |     Lines.Strings = (
171 |       'My Message')
172 |     TabOrder = 3
173 |   end
174 |   object OpenDialog1: TOpenDialog
175 |     Filter = '*.pem'
176 |     Left = 336
177 |     Top = 8
178 |   end
179 | end
180 | 


--------------------------------------------------------------------------------
/Example.Windows/FMain.pas:
--------------------------------------------------------------------------------
  1 | unit FMain;
  2 | 
  3 | interface
  4 | 
  5 | uses
  6 |   Winapi.Windows,
  7 |   Winapi.Messages,
  8 |   System.SysUtils,
  9 |   System.Variants,
 10 |   System.Classes,
 11 |   System.IOUtils,
 12 |   Vcl.Graphics,
 13 |   Vcl.Controls,
 14 |   Vcl.Forms,
 15 |   Vcl.Dialogs,
 16 |   Vcl.StdCtrls,
 17 |   Grijjy.RemotePush.Sender;
 18 | 
 19 | type
 20 |   TFormMain = class(TForm)
 21 |     ButtonSend: TButton;
 22 |     GroupBoxPlatform: TGroupBox;
 23 |     RadioButtoniOS: TRadioButton;
 24 |     RadioButtonAndroid: TRadioButton;
 25 |     EditDeviceToken: TEdit;
 26 |     LabelDeviceToken: TLabel;
 27 |     EditTitle: TEdit;
 28 |     LabelTitle: TLabel;
 29 |     LabelMessage: TLabel;
 30 |     MemoMessage: TMemo;
 31 |     EditAndroidAPIKey: TEdit;
 32 |     LabelAndroidAPIKey: TLabel;
 33 |     EditAPNSTopic: TEdit;
 34 |     LabelAPNSTopic: TLabel;
 35 |     EditAPNSCertificate: TEdit;
 36 |     LabelAPNSCertificate: TLabel;
 37 |     EditAPNSKey: TEdit;
 38 |     LabelAPNSKey: TLabel;
 39 |     ButtonBrowseCertificate: TButton;
 40 |     ButtonBrowseKey: TButton;
 41 |     OpenDialog1: TOpenDialog;
 42 |     procedure ButtonSendClick(Sender: TObject);
 43 |     procedure ButtonBrowseCertificateClick(Sender: TObject);
 44 |     procedure ButtonBrowseKeyClick(Sender: TObject);
 45 |     procedure RadioButtoniOSClick(Sender: TObject);
 46 |     procedure RadioButtonAndroidClick(Sender: TObject);
 47 |     procedure FormShow(Sender: TObject);
 48 |   private
 49 |     procedure UpdateControls;
 50 |     { Private declarations }
 51 |   public
 52 |     { Public declarations }
 53 |   end;
 54 | 
 55 | var
 56 |   FormMain: TFormMain;
 57 | 
 58 | implementation
 59 | 
 60 | {$R *.dfm}
 61 | 
 62 | procedure TFormMain.UpdateControls;
 63 | begin
 64 |   EditAPNSTopic.Enabled := RadioButtoniOS.Checked;
 65 |   EditAPNSCertificate.Enabled := RadioButtoniOS.Checked;
 66 |   EditAPNSKey.Enabled := RadioButtoniOS.Checked;
 67 |   ButtonBrowseCertificate.Enabled := RadioButtoniOS.Checked;
 68 |   ButtonBrowseKey.Enabled := RadioButtoniOS.Checked;
 69 |   EditAndroidAPIKey.Enabled := RadioButtonAndroid.Checked;
 70 | end;
 71 | 
 72 | procedure TFormMain.FormShow(Sender: TObject);
 73 | begin
 74 |   UpdateControls;
 75 | end;
 76 | 
 77 | procedure TFormMain.RadioButtonAndroidClick(Sender: TObject);
 78 | begin
 79 |   UpdateControls;
 80 | end;
 81 | 
 82 | procedure TFormMain.RadioButtoniOSClick(Sender: TObject);
 83 | begin
 84 |   UpdateControls;
 85 | end;
 86 | 
 87 | procedure TFormMain.ButtonBrowseCertificateClick(Sender: TObject);
 88 | begin
 89 |   if OpenDialog1.Execute then
 90 |     EditAPNSCertificate.Text := OpenDialog1.FileName;
 91 | end;
 92 | 
 93 | procedure TFormMain.ButtonBrowseKeyClick(Sender: TObject);
 94 | begin
 95 |   if OpenDialog1.Execute then
 96 |     EditAPNSKey.Text := OpenDialog1.FileName;
 97 | end;
 98 | 
 99 | procedure TFormMain.ButtonSendClick(Sender: TObject);
100 | var
101 |   RemotePushSender: TgoRemotePushSender;
102 |   APlatform: TOSVersion.TPlatform;
103 | begin
104 |   RemotePushSender := TgoRemotePushSender.Create;
105 |   try
106 |     if RadioButtoniOS.Checked then
107 |     begin
108 |       APlatform := TOSVersion.TPlatform.pfiOS;
109 |       RemotePushSender.APNSTopic := EditAPNSTopic.Text;
110 |       RemotePushSender.APNSCertificate := TFile.ReadAllBytes(EditAPNSCertificate.Text);
111 |       RemotePushSender.APNSKey := TFile.ReadAllBytes(EditAPNSKey.Text);
112 |     end
113 |     else
114 |     begin
115 |       APlatform := TOSVersion.TPlatform.pfAndroid;
116 |       RemotePushSender.AndroidAPIKey := EditAndroidAPIKey.Text;
117 |     end;
118 |     RemotePushSender.Send(
119 |       APlatform,
120 |       EditDeviceToken.Text,
121 |       EditTitle.Text,
122 |       MemoMessage.Text);
123 |   finally
124 |     RemotePushSender.Free;
125 |   end;
126 | end;
127 | 
128 | end.
129 | 


--------------------------------------------------------------------------------
/License.txt:
--------------------------------------------------------------------------------
 1 | TgoRemotePushSender and DelphiRemotePushSender are licensed under the Simplified BSD License.
 2 | 
 3 | -------------------------------------------------------------------------------
 4 | 
 5 | Copyright (c) 2017 by Grijjy, Inc.
 6 | All rights reserved.
 7 | 
 8 | Redistribution and use in source and binary forms, with or without
 9 | modification, are permitted provided that the following conditions are met:
10 | 
11 | 1. Redistributions of source code must retain the above copyright notice, this
12 |    list of conditions and the following disclaimer.
13 | 2. Redistributions in binary form must reproduce the above copyright notice,
14 |    this list of conditions and the following disclaimer in the documentation
15 |    and/or other materials provided with the distribution.
16 | 
17 | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
18 | ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
19 | WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
20 | DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
21 | ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
22 | (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
23 | LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
24 | ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25 | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
26 | SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.


--------------------------------------------------------------------------------
/Nghttp2.pas:
--------------------------------------------------------------------------------
  1 | unit Nghttp2;
  2 | 
  3 | { Header translation of ngHttp library for HTTP/2 protocol support, see https://nghttp2.org }
  4 | 
  5 | interface
  6 | 
  7 | const
  8 |   {$IF Defined(MSWINDOWS)}
  9 |   NGHTTP2_LIB = 'nghttp2.dll';
 10 |   {$ELSEIF Defined(LINUX)}
 11 |   NGHTTP2_LIB = 'libnghttp2.so';
 12 |   {$ENDIF}
 13 | 
 14 | const
 15 |   NGHTTP2_NO_ERROR = 0;
 16 | 
 17 |   NGHTTP2_ERR_CALLBACK_FAILURE = -902;
 18 | 
 19 |   NGHTTP2_DATA = 0;
 20 |   _NGHTTP2_HEADERS = 1;
 21 | 
 22 |   NGHTTP2_HCAT_REQUEST = 0;
 23 |   NGHTTP2_HCAT_RESPONSE = 1;
 24 | 
 25 |   NGHTTP2_NV_FLAG_NONE = 0;
 26 |   NGHTTP2_NV_FLAG_NO_INDEX = 1;
 27 |   NGHTTP2_NV_FLAG_NO_COPY_NAME = 2;
 28 |   NGHTTP2_NV_FLAG_NO_COPY_VALUE = 4;
 29 | 
 30 |   NGHTTP2_SETTINGS_MAX_CONCURRENT_STREAMS = 3;
 31 | 
 32 |   NGHTTP2_FLAG_NONE = 0;
 33 | 
 34 |   NGHTTP2_DATA_FLAG_NONE = 0;
 35 |   NGHTTP2_DATA_FLAG_EOF = 1;
 36 | 
 37 | type
 38 |   size_t = NativeUInt;
 39 |   ssize_t = NativeInt;
 40 |   puint8 = ^uint8;
 41 |   puint32 = ^uint32;
 42 | 
 43 | type
 44 | { The primary structure to hold the resources needed for a HTTP/2
 45 |   session.  The details of this structure are intentionally hidden
 46 |   from the public API. }
 47 |   pnghttp2_session = Pointer;
 48 | 
 49 | 
{ Callback functions for :type:`nghttp2_session`.  The details of
 50 | 
  this structure are intentionally hidden from the public API. }
 51 |   pnghttp2_session_callbacks = Pointer;
 52 | 
 53 | { The name/value pair, which mainly used to represent header fields. }
 54 |   nghttp2_nv = record
 55 |     name : MarshaledAString;
 56 |     value: MarshaledAString;
 57 |     namelen: size_t;
 58 |     valuelen: size_t;
 59 |     flags: uint8;
 60 |   end;
 61 |   pnghttp2_nv = ^nghttp2_nv;
 62 | 
 63 | { The stream ID of the stream to depend on.  Specifying 0 makes stream
 64 |   not depend any other stream. }
 65 |   nghttp2_priority_spec = record
 66 |     stream_id: int32;
 67 |     weight: int32;
 68 |     exclusive: uint8;
 69 |   end;
 70 |   pnghttp2_priority_spec = ^nghttp2_priority_spec;
 71 | 
 72 | { The SETTINGS ID/Value pair }
 73 |   nghttp2_settings_entry = record
 74 |     settings_id: int32;
 75 |     value: uint32;
 76 |   end;
 77 | 
  pnghttp2_settings_entry = ^nghttp2_settings_entry;
 78 | 
 79 | 
{ The frame header }
 80 | 
  nghttp2_frame_hd = record
 81 | 
    length: size_t;
 82 |     stream_id: int32;
 83 |     &type: uint8;
 84 |     flags: uint8;
 85 |     reserved: uint8;
 86 |   end;
 87 | 
 88 | { The HEADERS frame }
 89 |   nghttp2_headers = record
 90 |     hd: nghttp2_frame_hd;
 91 |     padlen: size_t;
 92 |     pri_spec: nghttp2_priority_spec;
 93 |     nva: pnghttp2_nv;
 94 |     nvlen: size_t;
 95 |     cat: Integer; { enum }
 96 |   end;
 97 | 
 98 | { This union includes all frames to pass them to various function
 99 | 
  calls as nghttp2_frame type. }
100 | 
  nghttp2_frame = record
101 | 
    case Integer of
102 |     0:(hd: nghttp2_frame_hd);
103 |     1:(headers: nghttp2_headers);
104 | //    nghttp2_frame_hd hd;
105 | //    nghttp2_data data;
106 | //    nghttp2_headers headers;
107 | //    nghttp2_priority priority;
108 | //    nghttp2_rst_stream rst_stream;
109 | //    nghttp2_settings settings;
110 | //    nghttp2_push_promise push_promise;
111 | //    nghttp2_ping ping;
112 | //    nghttp2_goaway goaway;
113 | //    nghttp2_window_update window_update;
114 | //    nghttp2_extension ext;
115 |   end;
116 |   pnghttp2_frame = ^nghttp2_frame;
117 | 
118 | 
type
119 | { nghttp2_data_source_read_callback }
120 | 
121 | { This union represents the some kind of data source passed to
122 |   :type:`nghttp2_data_source_read_callback` }
123 |   nghttp2_data_source = record
124 |     case Integer of
125 |     0:(fd: Integer);
126 |     1:(ptr: Pointer);
127 |   end;
128 |   pnghttp2_data_source = ^nghttp2_data_source;
129 | 
130 | { Callback function invoked when the library wants to read data from
131 |   the |source|.  The read data is sent in the stream |stream_id|.
132 |   The implementation of this function must read at most |length|
133 |   bytes of data from |source| (or possibly other places) and store
134 |   them in |buf| and return number of data stored in |buf|.  If EOF is
135 |   reached, set :enum:`NGHTTP2_DATA_FLAG_EOF` flag in |*data_flags|. }
136 |   nghttp2_data_source_read_callback = function(session: pnghttp2_session;
137 |     stream_id: int32; buf: puint8; length: size_t;
138 |     data_flags: puint32; source: pnghttp2_data_source; user_data: Pointer): ssize_t; cdecl;
139 | 
140 | { This struct represents the data source and the way to read a chunk
141 |   of data from it. }
142 |   nghttp2_data_provider = record
143 |     source: nghttp2_data_source;
144 |     read_callback: nghttp2_data_source_read_callback;
145 |   end;
146 |   pnghttp2_data_provider = ^nghttp2_data_provider;
147 | 
148 | type
149 | { nghttp2_on_header_callback }
150 | 
151 | { Callback function invoked when a header name/value pair is received
152 |  for the |frame|.  The |name| of length |namelen| is header name.
153 |  The |value| of length |valuelen| is header value.  The |flags| is
154 |  bitwise OR of one or more of :type:`nghttp2_nv_flag`. }
155 |   nghttp2_on_header_callback = function(session: pnghttp2_session; const frame: pnghttp2_frame;
156 |     const name: puint8; namelen: size_t; const value: puint8; valuelen: size_t;
157 |     flags: uint8; user_data: Pointer): Integer; cdecl;
158 | 
159 | type
160 | { nghttp2_on_frame_recv_callback }
161 | 
162 | { Callback function invoked by `nghttp2_session_recv()` and
163 |  `nghttp2_session_mem_recv()` when a frame is received.  The
164 |  |user_data| pointer is the third argument passed in to the call to
165 |  `nghttp2_session_client_new()` or `nghttp2_session_server_new()`. }
166 |   nghttp2_on_frame_recv_callback = function(session: pnghttp2_session;
167 |     const frame: pnghttp2_frame; user_data: Pointer): Integer; cdecl;
168 | 
169 | type
170 | { nghttp2_on_data_chunk_recv_callback }
171 | 
172 | { Callback function invoked when a chunk of data in DATA frame is
173 |   received.  The |stream_id| is the stream ID this DATA frame belongs to. }
174 |   nghttp2_on_data_chunk_recv_callback = function(session: pnghttp2_session;
175 |     flags: uint8; stream_id: int32; const data: puint8; len: size_t;
176 |     user_data: Pointer): Integer; cdecl;
177 | 
178 | type
179 | { nghttp2_on_stream_close_callback }
180 | 
181 | { Callback function invoked when the stream |stream_id| is closed.
182 |   The reason of closure is indicated by the |error_code| }
183 |   nghttp2_on_stream_close_callback = function(session: pnghttp2_session;
184 |     stream_id: int32; error_code: uint32; user_data: Pointer): Integer; cdecl;
185 | 
186 | var
187 | { Stores local settings and submits SETTINGS frame.  The |iv| is the
188 |   pointer to the array of :type:`nghttp2_settings_entry`.  The |niv|
189 |   indicates the number of :type:`nghttp2_settings_entry`. }
190 |   nghttp2_submit_settings: function(session: pnghttp2_session; flags: uint8;
191 |     const iv: pnghttp2_settings_entry; niv: size_t): Integer; cdecl = nil;
192 | 
193 | { Initializes |*session_ptr| for client use.  The all members of |callbacks|
194 |   are copied to |*session_ptr|.  Therefore |*session_ptr| does not store
195 |   |callbacks|.  The |user_data| is an arbitrary user supplied data, which
196 |   will be passed to the callback functions. }
197 |   nghttp2_session_client_new: function(var session_ptr: pnghttp2_session;
198 |     const callbacks: pnghttp2_session_callbacks; user_data: Pointer): Integer; cdecl = nil;
199 | 
200 | { Initializes |*callbacks_ptr| with NULL values. }
201 |   nghttp2_session_callbacks_new: function(out callbacks_ptr: pnghttp2_session_callbacks): Integer; cdecl = nil;
202 | 
203 | { Frees any resources allocated for |callbacks|.  If |callbacks| is ``NULL``, this
204 |   function does nothing. }
205 |   nghttp2_session_callbacks_del: procedure(callbacks: pnghttp2_session_callbacks); cdecl = nil;
206 | 
207 | { Sets callback function invoked when a header name/value pair is received. }
208 |   nghttp2_session_callbacks_set_on_header_callback: procedure(callbacks: pnghttp2_session_callbacks;
209 |     on_header_callback: nghttp2_on_header_callback); cdecl = nil;
210 | 
211 | { Sets callback function invoked by `nghttp2_session_recv()` and `nghttp2_session_mem_recv()`
212 |   when a frame is received. }
213 |   nghttp2_session_callbacks_set_on_frame_recv_callback: procedure(callbacks: pnghttp2_session_callbacks;
214 |     on_frame_recv_callback: nghttp2_on_frame_recv_callback); cdecl = nil;
215 | 
216 | { Sets callback function invoked when a chunk of data in DATA frame is received. }
217 |   nghttp2_session_callbacks_set_on_data_chunk_recv_callback: procedure(callbacks: pnghttp2_session_callbacks;
218 |     on_data_chunk_recv_callback: nghttp2_on_data_chunk_recv_callback); cdecl = nil;
219 | 
220 | { Sets callback function invoked when the stream is closed. }
221 |   nghttp2_session_callbacks_set_on_stream_close_callback: procedure(callbacks: pnghttp2_session_callbacks;
222 |     on_stream_close_callback: nghttp2_on_stream_close_callback); cdecl = nil;
223 | 
224 | { Signals the session so that the connection should be terminated. }
225 |   nghttp2_session_terminate_session: function(session: pnghttp2_session; error_code: uint32): Integer; cdecl = nil;
226 | 
227 | { Submits HEADERS frame and optionally one or more DATA frames. }
228 |   nghttp2_submit_request: function(session: pnghttp2_session; const pri_spec: pnghttp2_priority_spec;
229 |     const nva: pnghttp2_nv; nvlen: size_t; const data_prd: pnghttp2_data_provider; stream_user_data: Pointer): int32; cdecl = nil;
230 | 
231 | { Returns stream_user_data for the stream |stream_id|. }
232 |   nghttp2_session_get_stream_user_data: function(session: pnghttp2_session;
233 |     stream_id: int32): Pointer; cdecl = nil;
234 | 
235 | { Processes data |in| as an input from the remote endpoint.  The
236 |   |inlen| indicates the number of bytes in the |in|. }
237 |   nghttp2_session_mem_recv: function(session: pnghttp2_session; const &in: Pointer; const inlen: size_t): Integer; cdecl = nil;
238 | 
239 | { Returns the serialized data to send. }
240 |   nghttp2_session_mem_send: function(session: pnghttp2_session; out data_ptr: Pointer): Integer; cdecl = nil;
241 | 
242 | { Returns nonzero value if |session| wants to receive data from the
243 |   remote peer.  If both `nghttp2_session_want_read()` and `nghttp2_session_want_write()`
244 |   return 0, the application should drop the connection. }
245 |   nghttp2_session_want_read: function(session: pnghttp2_session): Integer; cdecl = nil;
246 | 
247 | { Returns nonzero value if |session| wants to send data to the remote
248 |   peer. If both `nghttp2_session_want_read()` and * `nghttp2_session_want_write()`
249 |   return 0, the application should drop the connection. }
250 |   nghttp2_session_want_write: function(session: pnghttp2_session): Integer; cdecl = nil;
251 | 
252 | //function MAKE_NV2(name, value: MarshaledAString): nghttp2_nv;
253 | //function MAKE_NV(name, value: MarshaledAString; valuelen: uint8): nghttp2_nv;
254 | 
255 | implementation
256 | 
257 | uses
258 |   Classes,
259 |   {$IFDEF MSWINDOWS}
260 |   Windows,
261 |   {$ENDIF}
262 |   SyncObjs,
263 |   SysUtils;
264 | 
265 | var
266 |   NGHTTP2Handle: HMODULE;
267 | 
268 | { Helpers }
269 | 
270 | //function MAKE_NV2(name, value: MarshaledAString): nghttp2_nv;
271 | //begin
272 | //  Result.name := name;
273 | //  Result.value := value;
274 | //  Result.namelen := StrLen(name);
275 | //  Result.valuelen := StrLen(value);
276 | //  Result.flags := NGHTTP2_NV_FLAG_NONE;
277 | //end;
278 | //
279 | //function MAKE_NV(name, value: MarshaledAString; valuelen: uint8): nghttp2_nv;
280 | //begin
281 | //  Result.name := name;
282 | //  Result.value := value;
283 | //  Result.namelen := StrLen(name);
284 | //  Result.valuelen := valuelen;
285 | //  Result.flags := NGHTTP2_NV_FLAG_NONE;
286 | //end;
287 | 
288 | { Library }
289 | 
290 | function LoadLib(const ALibFile: String): HMODULE;
291 | begin
292 |   Result := LoadLibrary(PChar(ALibFile));
293 |   if (Result = 0) then
294 |     raise Exception.CreateFmt('load %s failed', [ALibFile]);
295 | end;
296 | 
297 | function FreeLib(ALibModule: HMODULE): Boolean;
298 | begin
299 |   Result := FreeLibrary(ALibModule);
300 | end;
301 | 
302 | function GetProc(AModule: HMODULE; const AProcName: String): Pointer;
303 | begin
304 |   Result := GetProcAddress(AModule, PChar(AProcName));
305 |   if (Result = nil) then
306 |     raise Exception.CreateFmt('%s is not found', [AProcName]);
307 | end;
308 | 
309 | procedure LoadNGHTTP2;
310 | begin
311 |   if (NGHTTP2Handle <> 0) then Exit;
312 |   NGHTTP2Handle := LoadLib(NGHTTP2_LIB);
313 |   if (NGHTTP2Handle = 0) then
314 |   begin
315 |     raise Exception.CreateFmt('Load %s failed', [NGHTTP2_LIB]);
316 |     Exit;
317 |   end;
318 | 
319 |   nghttp2_submit_settings := GetProc(NGHTTP2Handle, 'nghttp2_submit_settings');
320 |   nghttp2_session_client_new := GetProc(NGHTTP2Handle, 'nghttp2_session_client_new');
321 |   nghttp2_session_callbacks_new := GetProc(NGHTTP2Handle, 'nghttp2_session_callbacks_new');
322 |   nghttp2_session_callbacks_del := GetProc(NGHTTP2Handle, 'nghttp2_session_callbacks_del');
323 |   nghttp2_session_callbacks_set_on_header_callback := GetProc(NGHTTP2Handle, 'nghttp2_session_callbacks_set_on_header_callback');
324 |   nghttp2_session_callbacks_set_on_frame_recv_callback := GetProc(NGHTTP2Handle, 'nghttp2_session_callbacks_set_on_frame_recv_callback');
325 |   nghttp2_session_callbacks_set_on_data_chunk_recv_callback := GetProc(NGHTTP2Handle, 'nghttp2_session_callbacks_set_on_data_chunk_recv_callback');
326 |   nghttp2_session_callbacks_set_on_stream_close_callback := GetProc(NGHTTP2Handle, 'nghttp2_session_callbacks_set_on_stream_close_callback');
327 |   nghttp2_session_terminate_session := GetProc(NGHTTP2Handle, 'nghttp2_session_terminate_session');
328 | 
329 |   nghttp2_submit_request := GetProc(NGHTTP2Handle, 'nghttp2_submit_request');
330 | 
  nghttp2_session_get_stream_user_data := GetProc(NGHTTP2Handle, 'nghttp2_session_get_stream_user_data');
331 | 
332 | 
  nghttp2_session_mem_recv := GetProc(NGHTTP2Handle, 'nghttp2_session_mem_recv');
333 |   nghttp2_session_mem_send := GetProc(NGHTTP2Handle, 'nghttp2_session_mem_send');
334 |   nghttp2_session_want_read := GetProc(NGHTTP2Handle, 'nghttp2_session_want_read');
335 |   nghttp2_session_want_write := GetProc(NGHTTP2Handle, 'nghttp2_session_want_write');
336 | end;
337 | 
338 | procedure UnloadNGHTTP2;
339 | begin
340 |   if (NGHTTP2Handle = 0) then Exit;
341 |   FreeLib(NGHTTP2Handle);
342 |   NGHTTP2Handle := 0;
343 | end;
344 | 
345 | initialization
346 |   LoadNGHTTP2;
347 | 
348 | finalization
349 |   UnloadNGHTTP2;
350 | 
351 | end.
352 | 


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
  1 | # Sending iOS (and Android) remote push notifications from your Delphi service with the HTTP/2 protocol
  2 | 
  3 | In this article we are going to discuss how to make a base unifying class for sending remote push notifications from your service to both the iOS (Apple Push Notification Service) and Android (Firebase Cloud Messaging) as well as covering how to use the newer Apple HTTP/2 protocol interface for sending push notifications from Delphi.
  4 | 
  5 | # Introduction
  6 | 
  7 | If you are authoring a Delphi service for the cloud, you may have the need to send push notifications from your service to your client application.  There are various ways to accomplish this including using third-party BAAS providers or rolling your own interface with some of the established libraries.
  8 | 
  9 | In the past Apple used a custom TCP binary protocol to send messages to the APNS.  This was cumbersome and inflexible and had numerous pitfalls in determining whether your message was actually accepted by the interface.   Apple recently released a newer interface that uses HTTP/2.  The nice thing about this interface is, just like FCM it utilizes JSON for the payload of the protocol.  However, the protocol uses the newer HTTP/2 protocol and ALPN (Application-Layer Protocol Negotiation Extension, defined in RFC 7301) which is required in your SSL handshake.
 10 | 
 11 | One other advantage, Apple also increased the maximium size of the payload from 2K to 4K with the new HTTP/2 interface as of iOS 9 devices. 
 12 | 
 13 | We will show how to combine the [Grijjy scalable client socket library](https://blog.grijjy.com/2017/01/09/scalable-https-and-tcp-client-sockets-for-the-cloud) with the excellent [nghttp2](http://nghttp2.org) to solve both of these issues and transparently send push notifications to either Apple's APNS or Google's FCM from your Delphi service.
 14 | 
 15 | For more information about us, our support and services visit the [Grijjy homepage](http://www.grijjy.com) or the [Grijjy developers blog](http://blog.grijjy.com).
 16 | 
 17 | The example contained here depends upon part of our [Grijjy Foundation library](https://github.com/grijjy/GrijjyFoundation).
 18 | 
 19 | The source code and related example repository is hosted on GitHub at [https://github.com/grijjy/DelphiRemotePushSender](https://github.com/grijjy/DelphiRemotePushSender).
 20 | 
 21 | # nghttp2
 22 | 
 23 | [Nghttp2 is a fairly established library](http://nghttp2.org) for implementing the HTTP/2 protocol.  It handles all the compression and bitstreaming for implementing HTTP/2.
 24 | 
 25 | The [HTTP/2 protocol](https://http2.github.io/) and its header compression are rather complex and evolving so it is probably best not to try and implement this ourselves.
 26 | 
 27 | One of the great things about nghttp2 is you can utilize it entirely with memory buffers so it is a good match for our own [scalable client socket classes](https://github.com/grijjy/DelphiScalableClientSockets) for Windows and Linux.  This way we get the benefit of HTTP/2 but we don't have to rely on another implementation of sockets for scaling up our service. 
 28 | 
 29 | ## Building nghttp2
 30 | 
 31 | If you want to build the nghttp2 library for Windows to use in your Delphi application you will need to download the [latest source](https://github.com/nghttp2/nghttp2).  To build you can use Visual Studio or just [download the Visual Studio Build Tools](http://landinghub.visualstudio.com/visual-cpp-build-tools).  You will also need to download and install [CMAKE](https://cmake.org/).
 32 | 
 33 |   1.  Download the latest nghttp2 source from https://github.com/nghttp2/nghttp2
 34 |   2.  Install CMAKE and the Build Tools for Visual Studio.
 35 |   3.  Run CMAKE followed by a period
 36 | 	  `cmake .`
 37 |   4.  Run CMAKE to build the release version 
 38 |   	  `cmake --build . --config RELEASE`
 39 | 
 40 | ## Delphi header translation
 41 | Once completed you will have a nghttp2.dll.  We will need our [conversion for the header file for Delphi](https://github.com/grijjy/DelphiRemotePushSender/blob/master/Nghttp2.pas) so we can use the nghttp2 methods directly.
 42 | 
 43 | ## Apple APNS & iOS Prerequisites
 44 | To use the `TgoRemotePushSender` class with Apple's Push Notification Service, we need to create a certificate and convert that certificate into 2 PEM files, one for the certificate and one the private key.  
 45 |  
 46 | There are quite a few primers on the Internet about how to create APNS certificates, so we will be brief here as it applies to our `TgoRemotePushSender` class.  
 47 | 
 48 | 1. On iOS you must create a production certificate that is universal by selecting the option "Apple Push Notification service SSL (Sandbox & Production)" under Certificates in the developer portal. This certificate must be matched with the proper AppId.
 49 | 
 50 | 2. You need to download and install the certificate into the Mac OSX Keychain.
 51 | 
 52 | 3. You need to export the Apple Push Notification service certificate and private key as 2 separate files (cert.p12 and key.p12) from the Keychain application on OSX.  These can only be exported as .p12 files from the Keychain application.
 53 | 
 54 | To create PEM files we recommend using the OpenSSL binaries to convert as follows:
 55 | ```shell
 56 | openssl pkcs12 -clcerts -nokeys -out APNS-cert.pem -in cert.p12
 57 | ```
 58 | ```shell
 59 | openssl pkcs12 -nocerts -out APNS-key-password.pem -in key.p12
 60 | ```
 61 | To remove the password from the APNS-key-password.pem file:
 62 | ```shell
 63 | openssl rsa -in APNS-key-password.pem -out APNS-key.pem
 64 | ```
 65 | To test the certificate against the APNS interface to see if it works:
 66 | ```shell
 67 | openssl s_client -connect gateway.push.apple.com:2195 -cert APNS-cert.pem -key APNS-key.pem
 68 | ```
 69 | # TgoRemotePushSender
 70 | 
 71 | To use the `TgoRemotePushSender` class we need to know the Device Token for the target user's device.  You pass this value to the `TgoRemotePushSender.Send` method when sending your remote push notification.  This is true of both iOS and Android targets.
 72 | 
 73 | For Android you also need to specify the `TgoRemotePushSender.AndroidAPIKey`.  You can obtain an API Key by setting up cloud messaging on [Google's developer site](https://developers.google.com/cloud-messaging/).  This is also called the Server API Key under Firebase Cloud Messaging.
 74 | 
 75 | For iOS you need to specify the `TgoRemotePushSender.APNSKey` which is essentially your Bundle Identifier (ex: com.mycool.app).  You also need to apply the APNS certificate and private key .PEM files you previously created.
 76 | ```Delphi
 77 | TgoRemotePushSender.APNSKey := 'com.mycool.app';
 78 | TgoRemotePushSender.APNSCertificate := TFile.ReadAllBytes(PathToCertificate.PEM);
 79 | TgoRemotePushSender.APNSKey := TFile.ReadAllBytes(PathToKey.PEM);
 80 | ```
 81 |   
 82 | The structure of the class is fairly straightforward.  To send a remote push notification, call the `Send` method and provide the `DeviceToken` and also the `Title` and `Message` body for the payload.
 83 | 
 84 | ```Delphi
 85 |   TgoRemotePushSender = class(TObject)
 86 |   public
 87 |     constructor Create;
 88 |     destructor Destroy; override;
 89 |   public
 90 |     { Send push notification }
 91 |     function Send(const APlatform: TOSVersion.TPlatform; const ADeviceToken: String;
 92 |       const ATitle, AMessage: String): Boolean;
 93 |   public
 94 |     { Android API Key for your app }
 95 |     property AndroidAPIKey: String read FAndroidAPIKey write FAndroidAPIKey;
 96 | 
 97 |     { iOS Certificate }
 98 |     property APNSCertificate: TBytes read FAPNSCertificate write FAPNSCertificate;
 99 | 
100 |     { iOS Key }
101 |     property APNSKey: TBytes read FAPNSKey write FAPNSKey;
102 | 
103 |     { iOS Topic }
104 |     property APNSTopic: String read FAPNSTopic write FAPNSTopic;
105 |   end;
106 | ```
107 | 
108 | > Note: You should create and reuse an instance of this class to avoid creating multiple connections to the push notification host.  One model would be to perform notifications in batches based upon time.  Apple warns about creating too many connections as a reason for blocking your service.
109 | 
110 | [An example application](https://github.com/grijjy/DelphiRemotePushSender) demonstrating how to use this class is available within our repository on GitHub.
111 | 
112 | # Sending custom user data
113 | 
114 | Now that both Apple and Google use JSON as their payload format, you can easily add your own custom JSON fields to the payload that are consistent with both platforms.  While we don't expose this directly in our class you can add additional content by simply expanding the JSON with your extra custom data.
115 | 
116 | # License
117 | 
118 | TgoRemotePushSender and DelphiRemotePushSender are licensed under the Simplified BSD License. See License.txt for details.


--------------------------------------------------------------------------------
/ReceivingPushNotifications.md:
--------------------------------------------------------------------------------
  1 | # Receiving push notifications from Apple's Push Notification and Google's Firebase Cloud Messaging services
  2 | 
  3 | In the [previous article](https://blog.grijjy.com/2017/01/18/sending-ios-and-android-remote-push-notifications-from-your-delphi-service-with-the-http2-protocol/) we demonstrated how to roll your own Google Firebase Cloud Messaging and Apple APNS push notifications from Delphi apps in a unified manner.  This article continues the conversation about how to easily receive and consume them in your Delphi mobile app.
  4 | 
  5 | # Introduction
  6 | If you are authoring a Delphi service for the cloud, you may have the need to send and receive push notifications from your service to your mobile client application.  You could use an existing BAAS provider to accomplish this, but why pay for this when you can roll your own so easily with Delphi?
  7 | 
  8 | Delphi provides a base set of classes in the units `FMX.PushNotification.Android` and `FMX.PushNotification.iOS` that do most of the heavy lifting and allow you to easily consume remote push notifications.  In this conversation we will be demonstrating a helper class that unifies the approach for both platforms, uses TMessage callbacks for notifications and device token changes and adds some new missing features.
  9 | 
 10 | For more information about us, our support and services visit the [Grijjy homepage](http://www.grijjy.com) or the [Grijjy developers blog](http://blog.grijjy.com).
 11 | 
 12 | The example contained here depends upon part of our [Grijjy Foundation library](https://github.com/grijjy/GrijjyFoundation).
 13 | 
 14 | # Getting started on iOS
 15 | To receive push notifications on iOS you must:
 16 | 
 17 | 1. Already have created an [Apple Push Services certificate in the Apple Developer website](https://developer.apple.com/account/ios/certificate/) for use in sending remote push notifications.
 18 | 
 19 | 2. Create an App ID on the Apple Developer website for your project.
 20 | 
 21 | 3. Enable Push Notifications for your App ID on the Apple Developer website for your project.
 22 |  
 23 | 4. A Provisioning Profile must exist on the Apple website that matches the identifier.
 24 | 
 25 | Then in your Delphi Project Options you must set your CFBundleIdentifier for iOS build configurations to the matching name of the ID in Apple Developer website. (ex: com.some.app)  This is the only thing your app will need to identify itself for Apple Push Notifications.  
 26 | 
 27 | # Getting started on Android
 28 | To receive push notifications on Android you must:
 29 | 
 30 | 1. Obtain a Firebase Cloud Messaging API Key by setting up cloud messaging on [Google's developer site](https://developers.google.com/cloud-messaging/).  This is also called the Server API Key under Firebase Cloud Messaging.
 31 | 
 32 | 2. Modify your AndroidManifest.xml to register an Intent and add the following receiver:
 33 | 
 34 | ```xml
 35 |   <receiver
 36 |   android:name="com.embarcadero.gcm.notifications.GCMNotification" android:exported="true"
 37 |   android:permission="com.google.android.c2dm.permission.SEND" >
 38 |   <intent-filter>
 39 |     <action android:name="com.google.android.c2dm.intent.RECEIVE" />
 40 |     <category android:name="%package%" />
 41 |   </intent-filter>
 42 |   </receiver>
 43 |   <service android:name="com.embarcadero.gcm.notifications.GCMIntentService" />
 44 |   <%receivers%>
 45 | ```
 46 | For Android, we only need the Firebase Cloud Messaging API Key for our Delphi app. 
 47 | 
 48 | # TgoRemotePushReceiver class
 49 | The [TgoRemotePushReceiver class](https://github.com/grijjy/GrijjyFoundation/blob/master/Grijjy.RemotePush.Receiver.pas) unifies the receiving of remote push notifications from both APNS and Firebase Cloud Messaging into a common class model.
 50 | ```Delphi
 51 |   TgoRemotePushReceiver = class(TObject)
 52 |   public
 53 |     constructor Create(const AGCMAppId: UnicodeString);
 54 |     destructor Destroy; override;
 55 |   public
 56 |     property DeviceToken: String read FDeviceToken;
 57 |     property Number: Integer read GetNumber write SetNumber;
 58 |   end;
 59 | ```
 60 | 
 61 | When you receive a remote push notification message from Android or iOS, the following TMessage is fired:
 62 | ```Delphi
 63 |   TgoRemoteNotificationMessage = class(TMessage)
 64 |   public
 65 |     constructor Create(const ADataKey, AJson: String; const AActivated: Boolean);
 66 |     property DataKey: String read FDataKey;
 67 |     property Json: String read FJson;
 68 | 
 69 |     { Whether message is activated by the user (tapping in it) }
 70 |     property Activated: Boolean read FActivated;
 71 |   end;
 72 | ```
 73 | Since we are receiving a JSON payload for both Android and iOS we can examine the content here.  This is useful is we want to include our own custom content in the payload that is app specific.  See our [article on sending remote push notifications](https://blog.grijjy.com/2017/01/18/sending-ios-and-android-remote-push-notifications-from-your-delphi-service-with-the-http2-protocol/) for a discussion about customizing the payload.
 74 | 
 75 | If your device token changes on Android or iOS, the following TMessage is fired:
 76 | ```Delphi
 77 |   { Device token change message }
 78 |   TgoDeviceTokenChangeMessage = class(TMessage)
 79 |   private
 80 |     FDeviceToken: String;
 81 |   public
 82 |     constructor Create(const ADeviceToken: String);
 83 |     property DeviceToken: String read FDeviceToken;
 84 |   end;
 85 | ```
 86 | The above message is fired initially when you device token is assigned after app startup.  Due to the variances in the way device tokens are handled on iOS and Android this event could be immediate or delayed by the operating system.  
 87 | 
 88 | As a developer you should also be prepared that the device token could change if your application is reinstalled, the operating system is updated as well as dynamically while your app is active. 
 89 | 
 90 | # Apple APNS quirks
 91 | On iOS Remote Push notification events are received only when your application is in the foreground or background.  If your application is "force quit" also known as "terminated" then you cannot receive remote push notification events into your app.  Instead when the push notification arrives on screen and is pressed your app is launched but without receiving a notification event.
 92 | 
 93 | > Note: You only receive a single remote notification event at a time, meaning that if there are several events queued, the only one you receive is the one that the user clicked on in the iOS user interface.
 94 | 
 95 | iOS 8.x introduces a new approach called the PushKit which has the ability to silently launch your app into the background state.  We will explore this in a future article.
 96 | 
 97 | # Hello World for push notifications
 98 | To get started using the helper class, you will need your Android API Key for Firebase Cloud Messaging.
 99 | 
100 | ```Delphi
101 | RemotePushReceiver := TgrRemotePushReceiver.Create(MyAndroidApiKey);
102 | ```
103 | To subscribe to remote push notifications:
104 | ```Delphi
105 | TMessageManager.DefaultManager.SubscribeToMessage(TgoRemoteNotificationMessage, RemoteNotificationHandler);
106 | ```
107 | 
108 | ```Delphi
109 | procedure TMyClass.RemoteNotificationHandler(const Sender: TObject;
110 |   const Msg: TMessage);
111 | var
112 |   RemoteNotificationMessage: TgrRemoteNotificationMessage;
113 |   Doc: TgoBsonDocument;
114 | begin
115 |   Assert(Assigned(Msg));
116 |   Assert(Msg is TgoRemoteNotificationMessage);
117 |   RemoteNotificationMessage := Msg as TgoRemoteNotificationMessage;
118 |   { The user tapped this push notification, which resulted in the bringing the app to the
119 | 	foreground? }
120 |   if (RemoteNotificationMessage.Activated) then
121 |     Doc := TgrBsonDocument.Parse(RemoteNotificationMessage.Json);
122 | end;
123 | ```
124 | You will receive an Activated set to True if the notification is the likely result of a end-user actually pressing the notification.
125 | 
126 | To subscribe to device token changes:
127 | ```Delphi
128 | TMessageManager.DefaultManager.SubscribeToMessage(TgoDeviceTokenChangeMessage, DeviceTokenChangeListener);
129 | ```
130 | 
131 | ```Delphi
132 | procedure TMyClass.DeviceTokenChangeListener(const Sender: TObject;
133 |   const M: TMessage);
134 | var
135 |   DeviceTokenChangeMessage: TgoDeviceTokenChangeMessage;
136 | begin
137 |   DeviceTokenChangeMessage := M as TgoDeviceTokenChangeMessage;
138 |   Writeln('Device Token is ' + DeviceTokenChangeMessage.DeviceToken);
139 | end;
140 | ```
141 | 
142 | > Make sure you unsubscribe all the various TMessage listeners when you are completed. 
143 | 
144 | # Conclusion
145 | Receiving remote push notifications in Delphi apps for Android and iOS is relatively straightforward with this helper class.  In the end, all you need to know is the device token in order to send a message to a device.
146 | 
147 | # License
148 | 
149 | TgoRemotePushReceiver is licensed under the Simplified BSD License. See License.txt for details.


--------------------------------------------------------------------------------