자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi 재질문 Push 알림 한글깨짐 문의
2015.09.25 20:22
질문 관련 다시 문의 드립니다.
이벤트를 System.PushNotification 부분에서 받아 오는 것 같습니다.
즉, System.PushNotification 에서 이벤트를 받기전 디코딩 해주면 문제가 해결 될것 같은데
도무지 어디를 수정해야 할지 몰라서 이렇게 다시 문의 드립니다.
아니면 push 들어오기전 이벤트를 받아서 디코딩 후 다시 전달 할수 있는 방법이
있는지 궁금합니다.
두서없이 이렇게 올립니다. 부탁드립니다.
소스 내용
=> 토큰 받은곳
procedure TForm1.btn_DeviceTokenClick(Sender: TObject);
var
ADeviceID, ADeviceToken : String;
begin
{$ifdef ANDROID}
APushService := TPushServiceManager.Instance.GetServiceByName( TPushService.TServiceNames.GCM );
APushService.AppProps[ TPushService.TAppPropNames.GCMAppID ] := '00000000000'; // Your GCM App ID
{$else}
APushService := TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.APS);
{$endif}
AServiceConnection := TPushServiceConnection.Create( APushService );
AServiceConnection.Active := True;
AServiceConnection.OnChange := OnServiceConnectionChange;
AServiceConnection.OnReceiveNotification := OnReceiveNotificationEvent;
ADeviceID := APushService.DeviceIDValue[ TPushService.TDeviceIDNames.DeviceID ];
ADeviceToken := APushService.DeviceTokenValue[ TPushService.TDeviceTokenNames.DeviceToken ];
Memo1.Lines.Add('ADeviceID:' + ADeviceID);
Memo1.Lines.Add('ADeviceToken:' + ADeviceToken);
sDeviceToken := ADeviceToken;
end;
->알림 전송 시 다음과 같이 utf-8로 설정후 보냅니다.
IdHTTP1.Request.CharSet :='UTF-8';
Delphi 재질문 Push 알림 한글깨짐 문의
2015.09.25 20:22
질문 관련 다시 문의 드립니다.
이벤트를 System.PushNotification 부분에서 받아 오는 것 같습니다.
즉, System.PushNotification 에서 이벤트를 받기전 디코딩 해주면 문제가 해결 될것 같은데
도무지 어디를 수정해야 할지 몰라서 이렇게 다시 문의 드립니다.
아니면 push 들어오기전 이벤트를 받아서 디코딩 후 다시 전달 할수 있는 방법이
있는지 궁금합니다.
두서없이 이렇게 올립니다. 부탁드립니다.
소스 내용
=> 토큰 받은곳
procedure TForm1.btn_DeviceTokenClick(Sender: TObject);
var
ADeviceID, ADeviceToken : String;
begin
{$ifdef ANDROID}
APushService := TPushServiceManager.Instance.GetServiceByName( TPushService.TServiceNames.GCM );
APushService.AppProps[ TPushService.TAppPropNames.GCMAppID ] := '00000000000'; // Your GCM App ID
{$else}
APushService := TPushServiceManager.Instance.GetServiceByName(TPushService.TServiceNames.APS);
{$endif}
AServiceConnection := TPushServiceConnection.Create( APushService );
AServiceConnection.Active := True;
AServiceConnection.OnChange := OnServiceConnectionChange;
AServiceConnection.OnReceiveNotification := OnReceiveNotificationEvent;
ADeviceID := APushService.DeviceIDValue[ TPushService.TDeviceIDNames.DeviceID ];
ADeviceToken := APushService.DeviceTokenValue[ TPushService.TDeviceTokenNames.DeviceToken ];
Memo1.Lines.Add('ADeviceID:' + ADeviceID);
Memo1.Lines.Add('ADeviceToken:' + ADeviceToken);
sDeviceToken := ADeviceToken;
end;
->알림 전송 시 다음과 같이 utf-8로 설정후 보냅니다.
IdHTTP1.Request.CharSet :='UTF-8';
저는 BaaS를 이용한 푸쉬 기능을 이용해 직접 구현하는 내용에 대해 잘 알지 못해 답변이 어렵습니다.
혹시 직접 구현해 보신분들이 있다면 답변 부탁드립니다.
혹시 BaaS를 이용하신다면 다음 글을 참고해 보세요.(쭉 따라해보시면 어렵지 않게 구현할 수 있습니다.)
http://docwiki.embarcadero.com/RADStudio/Seattle/en/Mobile_Tutorial:_Using_Remote_Notifications_(iOS_and_Android)