本文整理自网络,侵删。
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》频道 >>