Delphi xe5调用外部扫描程序——谷歌 zxing

1. unit uZXing;
2. interface
3. uses
4. System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
5. FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
6. FMX.Layouts,
7. System.Rtti,
8. {$IF DEFINED(ANDROID)}
9. FMX.Helpers.Android,
10. Androidapi.JNI.Net,
11. Androidapi.JNI.GraphicsContentViewText,
12. Androidapi.JNI.JavaTypes,
13. FMX.Platform.Android,
14. {$ENDIF}
15. FMX.platform;
16. const
17. C_CodeModes: array[0..2] of string = ('PRODUCT_MODE', 'QR_CODE_MODE', 'SCAN_MODE');
18. type
19. TCodeMode =(PRODUCT_MODE,QR_CODE_MODE,SCAN_MODE);
20. TOnScanFinished =procedure(sData:string)of object;
21. TZXingCall = class(TObject)
22. private
23. FClipboardService: IFMXClipboardService;
24. FClipboardValue: TValue;
25. FZXingCalled: Boolean;
26. FZXingApkOpened: Boolean;
27. FOnScanFinished:TOnScanFinished;
28. FCanUse:Boolean;
29. FOnInstallFinished:TNotifyEvent;
30. procedure ClipboardSave;
31. procedure ClipboardBack;
32. {$IF DEFINED(ANDROID)}
33. function GetZXingIntent: JIntent;
34. function HandleAppEvent(AAppEvent: TApplicationEvent; AContext: TObject): Boolean;
35. function IsIntentCallable(const AIntent: JIntent): Boolean;
36. {$ENDIF}
37. public
38. FAAppEvent: TApplicationEvent;
39. constructor Create(Sender:TObject);
40. destructor Destroy; override;
41. procedure CallZXing( CodeMode:TCodeMode=SCAN_MODE);
42. {$IF DEFINED(ANDROID)}
43. function CheckEnvironment(var ErrorID:Integer):Boolean;
44. {$ENDIF}
45. procedure OpenURL(const AURL: string);
46. procedure openFile(const sPath: string);
47. property OnScanFinished:TOnScanFinished read FOnScanFinished write FOnScanFinished;
48. property OnInstallFinished:TNotifyEvent read FOnInstallFinished write  FOnInstallFinished;
49. end;
50. implementation
51. { TZXingCall }
52. procedure TZXingCall.CallZXing(CodeMode:TCodeMode);
53. {$IF DEFINED(ANDROID)}
54. var
55. LIntent: JIntent;
56. {$ENDIF}
57. begin
58. FZXingApkOpened := false;
59. if not FCanUse then Exit;
60. ClipboardSave;
61. FClipboardService.SetClipboard('');
62. {$IF DEFINED(ANDROID)}
63. LIntent := GetZXingIntent();
64. LIntent.putExtra(StringToJString('SCAN_MODE'), StringToJString(C_CodeModes[ord(CodeMode)]));
65. SharedActivity.startActivityForResult(LIntent, 0);
66. {$ENDIF}
67. FZXingCalled := True;
68. end;
69. {$IF DEFINED(ANDROID)}
70. function TZXingCall.CheckEnvironment(var ErrorID:Integer): Boolean;
71. var
72. LFMXApplicationEventService: IFMXApplicationEventService;
73. LIsZXingCallable: Boolean;
74. LStr: string;
75. begin
76. Result := False;
77. if TPlatformServices.Current.SupportsPlatformService(IFMXApplicationEventService,
78. IInterface(LFMXApplicationEventService)) then begin
79. LFMXApplicationEventService.SetApplicationEventHandler(HandleAppEvent)
80. end else begin
81. ErrorID :=-1;
82. end;
83. if not TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,
84. IInterface(FClipboardService)) then begin
85. ErrorID :=-2;
86. end;
87. LIsZXingCallable := IsIntentCallable(GetZXingIntent);
88. if not LIsZXingCallable then
89. begin
90. ErrorID :=-3;
91. end ;
92. result := Assigned(LFMXApplicationEventService) and
93. Assigned(FClipboardService) and LIsZXingCallable;
94. FCanUse := result;
95. end;
96. function TZXingCall.IsIntentCallable(const AIntent: JIntent): Boolean;
97. var
98. LJPackageManager: JPackageManager;
99. begin
100. Result := False;
101. if Assigned(AIntent) then
102. begin
103. LJPackageManager := SharedActivityContext.getPackageManager;
104. Result := LJPackageManager.queryIntentActivities(AIntent,
105. TJPackageManager.JavaClass.MATCH_DEFAULT_ONLY).size <> 0;
106. end;
107. end;
108. function TZXingCall.HandleAppEvent(AAppEvent: TApplicationEvent;
109. AContext: TObject): Boolean;
110. var
111. LResult: string;
112. ErrorID:Integer;
113. begin
114. if FZXingCalled and (AAppEvent = TApplicationEvent.aeBecameActive) then
115. begin
116. LResult := FClipboardService.GetClipboard.ToString;
117. FClipboardService.SetClipboard('');
118. if Assigned(FOnScanFinished) then begin
119. FOnScanFinished(LResult);
120. end;
121. ClipboardBack;
122. FZXingCalled := False;
123. end;
124. if FZXingApkOpened and (AAppEvent = TApplicationEvent.aeBecameActive)  then
125. begin
126. //--
127. if Assigned(FOnInstallFinished) then begin
128. FAAppEvent := AAppEvent;
129. FOnInstallFinished(self);
130. end;
131. if self.CheckEnvironment(ErrorID) then begin
132. FZXingApkOpened := False;
133. self.CallZXing(QR_CODE_MODE);
134. end;
135. end;
136. Result := True;
137. end;
138. function TZXingCall.GetZXingIntent: JIntent;
139. const
140. GOOGLE_ZXING = 'com.google.zxing.client.android.SCAN';
141. GOOGLE_ZXING_PACKAGE = 'com.google.zxing.client.android';
142. begin
143. Result := TJIntent.JavaClass.init(StringToJString(GOOGLE_ZXING));
144. Result.setPackage(StringToJString(GOOGLE_ZXING_PACKAGE));
145. end;
146. {$ENDIF}
147. procedure TZXingCall.ClipboardBack;
148. begin
149. FClipboardService.SetClipboard(FClipboardValue);
150. end;
151. procedure TZXingCall.ClipboardSave;
152. begin
153. FClipboardValue := FClipboardService.GetClipboard;
154. end;
155. constructor TZXingCall.Create(Sender: TObject);
156. begin
157. //--
158. FCanUse := False;
159. FZXingApkOpened := False;
160. end;
161. procedure TZXingCall.OpenURL(const AURL: string);
162. {$IF DEFINED(ANDROID)}
163. var
164. LIntent: JIntent;
165. {$ENDIF}
166. begin
167. {$IF DEFINED(ANDROID)}
168. LIntent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW,
169. TJnet_Uri.JavaClass.parse(StringToJString(AURL)));
170. SharedActivity.startActivity(LIntent);
171. {$ENDIF}
172. end;
173. procedure TZXingCall.openFile(const sPath: string);
174. {$IF DEFINED(ANDROID)}
175. var
176. LIntent: JIntent;
177. barfile:JFile;
178. {$ENDIF}
179. begin
180. {$IF DEFINED(ANDROID)}
181. LIntent := TJIntent.JavaClass.init();
182. LIntent.addFlags(TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
183. LIntent.setAction(TJIntent.JavaClass.ACTION_VIEW);
184. barfile := TJFile.JavaClass.init(StringToJString(sPath));
185. barfile.setReadable(True,False);  //--这几句很重要，不然调不出来安装包
186. barfile.setWritable(True,False);
187. LIntent.setDataAndType(TJnet_Uri.JavaClass.fromFile(barfile),
188. StringToJString('application/vnd.android.package-archive'));
189. //--SharedActivity.startActivity(LIntent);
190. SharedActivity.startActivityForResult(LIntent, 0);
191. FZXingApkOpened := True;
192. {$ENDIF}
193. end;
194. destructor TZXingCall.Destroy;
195. begin
196. inherited;
197. end;
198. end.

 

 

http://blog.csdn.net/syndicater/article/details/18708323