Anonymous User
  Tuesday, 26 April 2022
  2 Replies
  488 Visits
  Subscribe
Hello,
I'm using the following code to send Notifications to the Apple-APNs-Server. That works as expacted. Unfortunately after quitting I get a memory leak (2 x TsgcTCPNotifyObject). Any Ideas how to solve this?



const
cURL = 'https://api.push.apple.com/3/device/';

function PushIt(const ADeviceToken: string; ABadge: Integer; const ATitle: string) : Boolean;
var
LHTTP : TsgcHTTP2Client;
LStream : TStringStream;
LPayLoad : string;
LTitle : string;
begin
Result := False;
LHTTP := TsgcHTTP2Client.Create(nil);
Try
LHTTP.TLSOptions.IOHandler := iohSChannel;
LHTTP.TLSOptions.CertFile := ExtractFilePath(ParamStr(0))+'Zertifikat.p12';
LHTTP.TLSOptions.Password := 'my_password';
LHTTP.TLSOptions.Version := tls1_2;

if ABadge < 0 then ABadge := 0;
if ABadge > 99 then ABadge := 99;
LTitle := ATitle;
if Trim(LTitle) = '' then LTitle := 'Info';
LPayLoad := Format('{ "aps" : { "alert" : { "title" : "%s" }, "badge" : %d } }',[ATitle, ABadge]);
LStream := TStringStream.Create(LPayLoad, TEncoding.UTF8);
Try
LHTTP.Request.CustomHeaders.Clear;
LHTTP.Request.CustomHeaders.Add('apns-topic: '+cAPNSTopic);
LHTTP.Post(cURL + ADeviceToken, LStream);
if LHTTP.Response.Status = 200 then begin
Result := True;
end;
Finally
LStream.Free;
End;
Finally
LHTTP.Free;
End;
end;



Best Regards