本文整理自网络,侵删。
procedure TINVMCForm.btnSCANClick(Sender: TObject);
var
uri: Jnet_Uri; //引用Androidapi.JNI.Net
Intent: JIntent; //引用Androidapi.JNI.GraphicsContentViewText
jstr:JString;
begin
inherited;
uri := StrToJURI('com.google.zxing.client.android.SCAN'); //引用FMX.Helpers.Android
//Intent := TJIntent.JavaClass.init(jstring(('com.google.zxing.client.android.SCAN');
Intent := TJIntent.JavaClass.init(StringToJString('com.google.zxing.client.android.SCAN'));
SharedActivityContext.startActivity(Intent);
end;
调用条码扫描的
相关阅读 >>
Delphi 系统对话框(如浏览目录)被隐藏到主窗体后面造成程序无法操作的临时处理方式
Delphi application.processmessages的作用
Delphi getwebbrowserhtml 获取网页源代码
更多相关阅读请进入《Delphi》频道 >>