在delphi XE10.2.3 用 Anrdoid 的 JView |
尚未結案
|
litter_tien
一般會員 發表:1 回覆:0 積分:0 註冊:2016-06-10 發送簡訊給我 |
SOS SOS 請各位大俠相救. 小弟第一次用 請幫忙......... (JView) .....................
[code delphi] //==================================================== unit Androidapi.JNI.Q; interface ............ type // ===== Forward declarations ===== .............................................. JProcessImgResults = interface; JProcessImgResultsClass = interface(JViewClass) ['{EA32FEEC-7CE2-4E02-95DF-0215B29CABD4}'] { static Property Methods } { static Methods } {class} function init(context: JContext): JProcessImgResults ; cdecl; //(Landroid/content/Context;)V { static Property } end; [JavaSignature('com/Q/ProcessImgResults ')] JProcessImgResults = interface(JView) ['{BBCA8362-3B15-4C29-814B-BB6BFEF5D91B}'] { Property Methods } function _GetmTker: JHTracker; { methods } function onTouchEvent(event: JMotionEvent): Boolean; cdecl; { Property } property mTracker: JHTker read _GetmTker write _SetmTker; end; TJProcessImgResults s = class(TJavaGenericImport implementation procedure RegisterTypes; begin ................................................. TRegTypes.RegisterType('Androidapi.JNI.Mars_Q.JProcessImgResults', TypeInfo(Androidapi.JNI.Q.JProcessImgResults)); end; initialization RegisterTypes; end. //------------------------------------------------------------------------------------------------- 請問各位大大小弟如何在程式中中啟動 感恩! 感恩! procedure TForm_Mars_eCard.Image2Click(Sender: TObject); var FProcessImage : JProcessImgResults; begin try FProcessImage := TJProcessImgResults.JavaClass.init(TAndroidHelper.Context); showmessage('OOOOOOOOOOOOOOOOOOO.....'); finally showmessage('OOOOOOOXXXXXXXXXXXXX.....'); end; 一直有錯.........急急......... 請私 Mail :ht.litter@gmail.com 可付費 [/code] |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |