자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------

안녕하세요 

 

안드로이드 앱개발 새내기 입니다.

 

다름이 아니라 이번에 개발하는 어플에 한가지 문제점이 있어 문의 드립니다.

 

델파이 10.2 도쿄버전으로 개발중입니다.

서버와 스마트폰어플로 TCP/IP 통신을 하는게 주된 어플리케이션입니다.

근데 안드로이드5 이상 버전에서는 스마트폰의 홈버튼으로 어플을 감춰놓으면 3~4분후에 종료됩니다.

종료와 동시에 TCP/IP 커넥션이 끊기게 되어 개발된 앱을 사용할수가 없는 상황입니다.

 

구글검색으로 한가지 방법을 찾아 StartForegroundService라는 안드로이드 서비스를 찾아냈지만,

델파이로 사용된 정확한 예시소스를 찾을수 없어 계속 실패하고 있습니다.

 

혹시 자바가 아닌 델파이로 구현된 StartForeground 기능을 알고계시다면 도움을 주시길 부탁드립니다.

 

구글검색으로 찾았던 소스도 같이 올려드립니다.

 

type
  TGeneratorUniqueID = class
  const
    SETTINGS_NOTIFICATION_UNIQUE_ID = 'SETTINGS_NOTIFICATION_UNIQUE_ID2';
  strict private
    class var FNextUniqueID: Int64;
  public
    class constructor Create;
    class function GenerateID: Integer;
  end;

const
  FMX_NOTIFICATION_CENTER = 'FMX_NOTIFICATION_CENTER2';

class constructor TGeneratorUniqueID.Create;
var
  Preference: JSharedPreferences;
begin
  Preference := SharedActivity.getSharedPreferences(StringToJString(FMX_NOTIFICATION_CENTER), TJContext.JavaClass.MODE_PRIVATE);
  FNextUniqueID := Preference.getInt(StringToJString(SETTINGS_NOTIFICATION_UNIQUE_ID), 0);
end;

class function TGeneratorUniqueID.GenerateID: Integer;
var
  PreferenceEditor: JSharedPreferences_Editor;
  Preference: JSharedPreferences;
begin
  Preference := SharedActivity.getPreferences(TJContext.JavaClass.MODE_PRIVATE);
  PreferenceEditor := Preference.edit;
  try
    PreferenceEditor.putInt(StringToJString(SETTINGS_NOTIFICATION_UNIQUE_ID), FNextUniqueID);
  finally
    PreferenceEditor.commit;
  end;
  Result := FNextUniqueID;
  Inc(FNextUniqueID);
end;

//* My code
procedure TFormMain.SetForeground;
var
    Service: JService;
    notification: JNotification;
    NotificationCompat_Builder: JNotificationCompat_Builder;
    Intent: JIntent;
begin
    NotificationCompat_Builder := TJNotificationCompat_Builder.Create;
    NotificationCompat_Builder := NotificationCompat_Builder.setSmallIcon(SharedActivityContext.getApplicationInfo.icon);
    NotificationCompat_Builder := NotificationCompat_Builder.setContentTitle(StrToJCharSequence(GetApplicationTitle));
    NotificationCompat_Builder := NotificationCompat_Builder.setContentText(StrToJCharSequence('Body'));

    notification := NotificationCompat_Builder.build;

    Intent := TJIntent.Create;
    Intent.setClass(SharedActivityContext, SharedActivityContext.getClass);
    Intent.setFlags(TJIntent.JavaClass.FLAG_ACTIVITY_SINGLE_TOP or TJIntent.JavaClass.FLAG_ACTIVITY_CLEAR_TOP);
    Intent.setAction(TJFMXNotificationAlarm.JavaClass.ACTION_FMX_NOTIFICATION);

    notification.setLatestEventInfo(MainActivity.getApplicationContext, StrToJCharSequence('Title'), StrToJCharSequence('Text'), TJPendingIntent.JavaClass.getActivity(SharedActivityContext, TGeneratorUniqueID.GenerateID, Intent, 0));

    Service.startForeground(1, notification);
end;

출처 : http://codeverge.com/embarcadero.delphi.firemonkey/help-with-android-firemonkey-st/1058681

 

노란색으로 표시한 부분에 [TJFMXNotificationAlarm]  은 어떤 라이브러리를 Uses 해야되는지 찾지못해 

주석처리하고 사용해보았지만 실패했습니다.

 

참고될만한 조언 부탁드립니다.

감사합니다.

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15767
공지 유용한 관련 사이트 관리자2 2014.03.20 54581
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97992
3119 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 12 - Exercise 6 [1] 관리자 2016.05.10 104
3118 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 15 - Exercise 4 [1] 관리자 2016.05.27 104
3117 [10.2 도쿄 출시세미나] 리눅스용 소프트웨어 개발이 가능한가요? 그리고 리눅스용 소프트 웨어 개발이 가능하다면 GUI환경만 지원하나요? 아니면 터미널에서도 사용가능한가요? 험프리 2017.04.06 104
3116 Delphi Tokyo RTL 소스는 어디에서 받을 수 있는건지요? [1] 우정 2017.07.27 104
3115 델파이소스 빌더 변환 문의 [1] 누리 2019.12.04 104
3114 RADSTUDIO 10(Seattle) 의 dbGo 팔레트에서 ADOStoredProc 관련 소스코드를 찾습니다. 한태수 2019.12.05 104
3113 DataSnap 연결 에러 질문드립니다. file syc 2016.11.01 105
3112 Delphi 10.1 Berlin Enterprise update1 to update2 후 문제 [1] jang 2016.12.07 105
3111 베를린 update2 후 SqlConnect 컴포넌트가 없어요(DBexpress) 모나도 2017.01.14 105
3110 Shape 컨트롤 의 Stroke문제 100jk 2019.03.18 105
3109 비콘 pky4437 2019.12.16 105
3108 XE3 / 프로젝트 옵션에서 Version Info가 이상해졌습니다. 해결방법 좀 알려주세요... file 마일드몽키 2017.05.23 105
3107 XE10 Seattle에서 VIEW 범위 질문 [1] 당신이먼저 2017.03.04 106
3106 [베를린 웨비나] 예제 샘플들이 다양했으면 좋겠습니다. 험프리 2016.05.04 106
3105 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 12 - Exercise 9 [1] 관리자 2016.05.10 106
3104 Seattle에서 / IOS Simulator 컴파일 에러 질문 [1] syc 2016.09.24 106
3103 10.3 Starter Edition 관련 Overload 문제건 [2] 한태수 2019.09.30 106
3102 데이터스냅 사용자 인증 devdev 2019.11.29 106
3101 [베를린 10.1] 안드로이드앱에 Webbrowser 넣고 스트리밍 재생시.. 현동노 2019.12.15 106
3100 빨간 주석 줄이 위에 나타납니다... file 거북선생 2020.03.04 106