1. Delphi K.Top 討論區
  2. Embarcadero 專區
  3. xe5 如何應用 android intent 的例子(轉貼國外網頁)
全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數：3296
推到 Plurk!
推到 Facebook!

xe5 如何應用 android intent 的例子(轉貼國外網頁)
 
fred
一般會員


發表：14
回覆：40
積分：10
註冊：2002-06-15

發送簡訊給我
#1 引用回覆 回覆 發表時間：2013-10-31 20:26:04 IP:118.171.xxx.xxx 訂閱
本文來自http://www.danieleteti.it/category/embarcadero/delphi-xe5/


The Intents demo appOpen browser with intent
procedure THeaderFooterForm.Button1Click(Sender: TObject);
  1. var
  2. Intent: JIntent;
  3. begin
  4. // JAVA SDK ANDROID HELP SAYS…
  5. // String url = "http://www.example.com";
  6. // Intent i = new Intent(Intent.ACTION_VIEW);
  7. // i.setData(Uri.parse(url));
  8. // startActivity(i);
  10. Intent := TJIntent.Create;
  11. Intent.setAction(TJIntent.JavaClass.ACTION_VIEW);
  12. Intent.setData(TJnet_Uri.JavaClass.parse
  13. (StringToJString('http://www.danieleteti.it')));
  14. MainActivity.startActivity(Intent);
  15. end;
Chose wich apps shoud be launched to handle the intent (and the text)
procedure THeaderFooterForm.Button2Click(Sender: TObject);
  1. var
  2. Intent: JIntent;
  3. begin
  4. // Intent intent = new Intent(Intent.ACTION_SEND);
  5. // intent.setType("text/plain");
  6. // intent.putExtra(android.content.Intent.EXTRA_TEXT, "Android Rocks!!!");
  7. // startActivity(intent);
  9. Intent := TJIntent.Create;
  10. Intent.setType(StringToJString('text/plain'));
  11. Intent.setAction(TJIntent.JavaClass.ACTION_SEND);
  12. Intent.putExtra(TJIntent.JavaClass.EXTRA_TEXT,
  13. StringToJString('Delphi Rocks!!!'));
  14. MainActivity.startActivity(Intent);
  15. end;
即懂 delphi 又會 android java 的人, 一看就懂的程式片斷, 簡直是如虎添翼
fred
一般會員


發表：14
回覆：40
積分：10
註冊：2002-06-15

發送簡訊給我
#2 引用回覆 回覆 發表時間：2013-10-31 21:04:05 IP:118.171.xxx.xxx 訂閱
這是另一個xe5 結合 android intent 完整的 電池耗電完整例子 
http://neftali.clubdelphi.com/?p=3157#more-3157
bigheadfjuee
一般會員


發表：0
回覆：2
積分：0
註冊：2008-08-23

發送簡訊給我
#3 引用回覆 回覆 發表時間：2014-12-17 16:33:23 IP:122.146.xxx.xxx 訂閱

若是只要分享給幾個特定 APP 呢？
像是 FB, Line, E-mail, Twitter

我有找到類似的資料，但它是用 Java 寫的，請高手協助改成 Delphi XE7
(我這二種語言都不太熟，我才剛從 BCB6 轉過來)

http://fecbob.pixnet.net/blog/post/38061071-android中「分享」功能的實現

Intent intent=new Intent(Intent.ACTION_SEND,null);
intent.setType("text/plain");

return pm.queryIntentActivities(intent,
}
系統時間：2024-04-17 0:26:31
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！
5151線上健康照護網 | 台灣西醫網 | 台灣中醫網 | 台灣牙科網 | 台灣照護網 | 趴趴狗旅遊網
大花蓮旅遊網 | 大花蓮民宿網 | 花蓮旅遊網 | 花蓮旅遊 | 花蓮旅遊 | 花蓮住宿
花蓮民宿網 | 花蓮旅遊 | 花蓮住宿 | 花蓮民宿 | 花蓮旅遊 | 花蓮民宿
花蓮住宿 | 大南投旅遊網 | 大南投民宿網 | 日月潭風景區 | 日月潭旅遊網 | 日月潭民宿網
日月潭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網
宜蘭住宿網 | 宜蘭旅遊網 | 宜蘭民宿網 | 宜蘭住宿網 | 台東旅遊網 | 台東民宿網
台東住宿網 | 台東旅遊網 | 台東民宿網 | 台東住宿網 | 台東旅遊 | 台東民宿
台東住宿 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 綠島旅遊網 | 綠島民宿網
綠島住宿網 | 綠島旅遊網 | 綠島民宿網 | 綠島住宿網 | 集集旅遊網 | 集集民宿網
集集住宿網 | 關子嶺旅遊網 | 關子嶺民宿網 | 白河旅遊網 | 白河民宿網 | 心脈大師
尊榮牙醫診所 |