線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:846
推到 Plurk!
推到 Facebook!

XE10 在 Android backgroud Services 服務重啟後的動作詢問

缺席
kuraki5336
初階會員


發表:13
回覆:35
積分:34
註冊:2010-06-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2015-10-22 13:00:40 IP:114.46.xxx.xxx 訂閱
我有2個問題,關於XE10 在 Android backgroud Services 

1. 我將服務建置好之後。雖將系統將他移除後能重新啟動。
但是我的實作區程式並不會繼續工作。工作內容 對 WEB Services 持續送字串。

2. 因此我將實作區程式編寫到服務端。依舊沒有回應。


[code delphi]
//服務端程式碼
TAndroidServiceDM = class(TAndroidService)
AutoScan: TTimer;
function AndroidServiceStartCommand(const Sender: TObject;
const Intent: JIntent; Flags, StartId: Integer): Integer;
procedure AndroidServiceCreate(Sender: TObject);
procedure AndroidServiceDestroy(Sender: TObject);
procedure AutoScanTimer(Sender: TObject);
private
ServerConnectionTH: TServerConnectionTH;
function ManagerConnected:Boolean;
function GetServiceImageIndex(const AServiceUUID: TGUID): Integer;
procedure SendData(xStr:String);
{ Private declarations }
public
ItemIndex: Integer;
FBluetoothManager: TBluetoothManager;
FDiscoverDevices: TBluetoothDeviceList;
FPairedDevices: TBluetoothDeviceList;
FAdapter: TBluetoothAdapter;
FSocket: TBluetoothSocket;
FiniFile:String;
FSoapUrl:String;
FBluetoothAdr:string;
FServiceName,FServiceGUI:String;
Procedure Readini;
Procedure Writeini;
function BlueToothStart:Boolean;
Procedure BlueToothEnd;
{ Public declarations }
end;
[/code]

測試上是利用 AutoScan: TTimer; 約十秒送一次。

不知道是要怎麼用才能讓服務將程式啟動後繼續執行我想要的動作。


系統時間:2024-03-28 20:21:00
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!