1 unit Unit1;
  2 
  3 interface
  4 
  5 uses
  6   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  7   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  8   FMX.Edit, FMX.Controls.Presentation,
  9   System.Messaging,//需要引入
 10   System.Rtti,//需要引入
 11   System.Actions,//需要引入
 12   Androidapi.JNI.Net,//需要引入
 13   Androidapi.JNI.GraphicsContentViewText,//需要引入
 14   Androidapi.JNI.JavaTypes,//需要引入
 15   Androidapi.Helpers,//需要引入
 16   Androidapi.JNI.App,//需要引入
 17   FMX.Objects,//需要引入
 18   FMX.ActnList,//需要引入
 19   FMX.StdActns,//需要引入
 20   FMX.Platform.Android,//需要引入
 21   FMX.MediaLibrary.Actions,//需要引入
 22   xZXIngQRCode;//需要引入
 23 
 24 type
 25   TForm1 = class(TForm)
 26     Button1: TButton;
 27     Button2: TButton;
 28     Edit1: TEdit;
 29     Edit2: TEdit;
 30     Label1: TLabel;
 31     Label2: TLabel;
 32     Label3: TLabel;
 33     Image1: TImage;
 34     Panel1: TPanel;
 35     Label4: TLabel;
 36     Edit3: TEdit;
 37     Label5: TLabel;
 38     procedure Button1Click(Sender: TObject);
 39     procedure FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
 40       Shift: TShiftState);
 41     procedure Button2Click(Sender: TObject);
 42   private
 43     { Private declarations }
 44     //扫描请求代码
 45     const ScanRequestCode = 0;
 46     //
 47     var FMessageSubscriptionID: Integer;
 48     //活动结果事件
 49     function OnActivityResult(RequestCode, ResultCode: Integer; Data: JIntent): Boolean;
 50     //活动消息处理
 51     procedure HandleActivityMessage(const Sender: TObject; const M: TMessage);
 52   public
 53     { Public declarations }
 54      //扫描状态
 55      ScanState: Boolean;//TRUE代表扫描中，FALSE扫描结束
 56   end;
 57 
 58 var
 59   Form1: TForm1;
 60 
 61 implementation
 62 
 63 {$R *.fmx}
 64 {$R *.LgXhdpiPh.fmx ANDROID}
 65 
 66 //启用扫码
 67 procedure LaunchQRScanner(RequestCode: Integer);
 68 var
 69   Intent: JIntent;
 70 begin
 71   Intent := TJIntent.JavaClass.init;
 72   Intent.setClassName(SharedActivityContext, StringToJString(\'com.google.zxing.client.android.CaptureActivity\'));
 73   //如果要预定扫描格式，UnComment 下面文字
 74   //Intent.putExtra(StringToJString(\'SCAN_MODE\'), StringToJString(\'QR_CODE_MODE\'));
 75   SharedActivity.startActivityForResult(Intent, RequestCode);
 76 end;
 77 
 78 //调用扫码方法
 79 procedure TForm1.Button1Click(Sender: TObject);
 80 var
 81   LIntent: JIntent;
 82 begin
 83   //LIntent := TJIntent.JavaClass.init;
 84   //LIntent.setClassName(SharedActivityContext, StringToJString(\'com.google.zxing.client.android.CaptureActivity\'));
 85   //SharedActivity.startActivityForResult(LIntent, 0);
 86   //加载扫码
 87   FMessageSubscriptionID := TMessageManager.DefaultManager.SubscribeToMessage(TMessageResultNotification,
 88     HandleActivityMessage);
 89   //开始扫码
 90   LaunchQRScanner(ScanRequestCode);
 91   //状态定为扫码结束
 92   ScanState := False;
 93 end;
 94 
 95 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char;
 96   Shift: TShiftState);
 97 begin
 98   //如果按下物理返回键，但是扫码未结束
 99   if (Key = vkHardwareBack) and (ScanState = True) then
100   begin
101     ScanState := False;
102     Key := 0;
103     Exit;
104   end;
105   //如果按下物理返回键，并且扫码结束
106   if (Key = vkHardwareBack) and (ScanState = False) then
107   begin
108     {$IFDEF ANDROID}
109     MessageDlg(\'确认退出吗？\', System.UITypes.TMsgDlgType.mtInformation,
110     [
111       System.UITypes.TMsgDlgBtn.mbYes,
112       //System.UITypes.TMsgDlgBtn.mbNo,
113       System.UITypes.TMsgDlgBtn.mbCancel
114     ], 0, System.UITypes.TMsgDlgBtn.mbCancel,
115     procedure(const AResult: TModalResult)
116     begin
117       if AResult = mrYES then
118          MainActivity.finish; { 退出程序 }   // use FMX.Platform.Android
119       end);
120     {$ENDIF ANDROID}
121     //close;
122     Key := 0;
123     Exit;
124   end;
125 end;
126 
127 //活动消息处理
128 procedure TForm1.HandleActivityMessage(const Sender: TObject;
129   const M: TMessage);
130 begin
131   if M is TMessageResultNotification then
132     OnActivityResult(TMessageResultNotification(M).RequestCode, TMessageResultNotification(M).ResultCode,
133       TMessageResultNotification(M).Value);
134 end;
135 
136 //活动结果事件
137 function TForm1.OnActivityResult(RequestCode, ResultCode: Integer;
138   Data: JIntent): Boolean;
139 var
140   ScanContent, ScanFormat: string;
141 begin
142   Result := False;
143 
144   TMessageManager.DefaultManager.Unsubscribe(TMessageResultNotification, FMessageSubscriptionID);
145   FMessageSubscriptionID := 0;
146   //判断请求代码
147   if RequestCode = ScanRequestCode then
148   begin
149     //如果扫码结束
150     if ResultCode = TJActivity.JavaClass.RESULT_OK then
151     begin
152       //有数据
153       if Assigned(Data) then
154       begin
155         //解析出数据
156         ScanContent := JStringToString(Data.getStringExtra(StringToJString(\'SCAN_RESULT\')));
157         ScanFormat := JStringToString(Data.getStringExtra(StringToJString(\'SCAN_RESULT_FORMAT\')));
158         Edit1.Text:= ScanContent;
159         Edit2.Text:= ScanFormat;
160         Label5.Text:= \'扫描成功\';
161       end;
162     end
163     else if ResultCode = TJActivity.JavaClass.RESULT_CANCELED then
164     begin
165       Label5.Text:= \'扫描取消\';
166     end;
167     Result := True;
168   end;
169 end;
170 
171 //生成二维码
172 procedure TForm1.Button2Click(Sender: TObject);
173 var
174   QRCode: TDelphiZXingQRCode;
175 begin
176   QRCode := TDelphiZXingQRCode.Create;
177   try
178     QRCode.Data := Edit3.Text;
179     QRCode.Encoding := TQRCodeEncoding(0);
180     QRCode.QuietZone := 4;
181     QRCode.DrawQrcode(Image1,QRCode);
182   finally
183     QRCode.Free;
184   end;
185 end;
186 
187 end.