xe8 de qr scaner
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
-
- Üye
- Mesajlar: 839
- Kayıt: 03 Eki 2007 02:00
xe8 de qr scaner
Arkadaşlar
android uygulama için qr kod okutmak istiyorum elinde örnek kod olan var mı acaba?
teşekkürler.
android uygulama için qr kod okutmak istiyorum elinde örnek kod olan var mı acaba?
teşekkürler.
Re: xe8 de qr scaner
Merhaba,
Aşağıdaki linklerde anlatılan örnekleri inceleyebilirsiniz. Tamamı ücretsizdir. TMS Software linki dahil.
http://john.whitham.me.uk/xe5/
http://www.tmssoftware.com/site/blog.asp?post=280
http://stackoverflow.com/questions/2618 ... triggering
Aşağıdaki linklerde anlatılan örnekleri inceleyebilirsiniz. Tamamı ücretsizdir. TMS Software linki dahil.
http://john.whitham.me.uk/xe5/
http://www.tmssoftware.com/site/blog.asp?post=280
http://stackoverflow.com/questions/2618 ... triggering
-
- Üye
- Mesajlar: 839
- Kayıt: 03 Eki 2007 02:00
Re: xe8 de qr scaner
hocam cevabınız için teşekkürler fakat ücretsiz bir eklentiye ulaşamadım acaba indirebileceğim bir link varmı ?
-
- Üye
- Mesajlar: 839
- Kayıt: 03 Eki 2007 02:00
Re: xe8 de qr scaner
hocam tms bileşenini indirdim ve yükledim ama içinden qr scaner bulamadım sanırım yanlış paketi indirdim 
acaba android için qr scaner bileşeni için link verebilirmisiniz
teşekkürler

acaba android için qr scaner bileşeni için link verebilirmisiniz
teşekkürler
Re: xe8 de qr scaner
Merhaba,
Muhtemelen Yeni VCL Proje içinde aradınız component'ı. Yeni FMX projesi başlattıktan sonra component listesinde gözüküp gözükmediğini kontrol edebilir misiniz?
Muhtemelen Yeni VCL Proje içinde aradınız component'ı. Yeni FMX projesi başlattıktan sonra component listesinde gözüküp gözükmediğini kontrol edebilir misiniz?
-
- Üye
- Mesajlar: 839
- Kayıt: 03 Eki 2007 02:00
Re: xe8 de qr scaner

-
- Üye
- Mesajlar: 839
- Kayıt: 03 Eki 2007 02:00
Re: xe8 de qr scaner
tamam çözdüm
bileşeni yüklemiyormuşum ilginiz için çok teşekkür ederim

-
- Üye
- Mesajlar: 839
- Kayıt: 03 Eki 2007 02:00
Re: xe8 de qr scaner
tms sadece ios içinmiş
android de çalışmadı bilginiz olsun

-
- Üye
- Mesajlar: 839
- Kayıt: 03 Eki 2007 02:00
Re: xe8 de qr scaner
Arkdaşlar aşağıdaki kod ile barkod okutabiliyorum umarım işine yaran biri olur 

Kod: Tümünü seç
unit HeaderFooterTemplate;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, IPPeerClient,
IPPeerServer, System.Tether.Manager, System.Tether.AppProfile, FMX.Edit,
FMX.StdCtrls, FMX.Platform, FMX.Helpers.Android, Androidapi.Helpers,
AndroidApi.JNI.GraphicsContentViewText, Androidapi.Jni.JavaTypes, System.Rtti,
FMX.Controls.Presentation ;
type
THeaderFooterForm = class(TForm)
Header: TToolBar;
Footer: TToolBar;
HeaderLabel: TLabel;
Button1: TButton;
Timer1: TTimer;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
end;
var
HeaderFooterForm: THeaderFooterForm;
ClipService: IFMXClipboardService;
Elapsed: integer;
implementation
{$R *.fmx}
procedure THeaderFooterForm.Button1Click(Sender: TObject);
var
intent: jintent;
begin
if Assigned(ClipService) then
begin
clipservice.SetClipboard('nil');
intent := tjintent.Create;
intent.setAction(stringtojstring('com.google.zxing.client.android.SCAN'));
intent.putExtra(tjintent.JavaClass.EXTRA_TEXT,
stringtojstring('"SCAN_MODE", "CODE_39"'));
sharedactivity.startActivityForResult(intent,0);
Elapsed := 0;
timer1.Enabled := true;
end;
end;
procedure THeaderFooterForm.FormCreate(Sender: TObject);
begin
if not TPlatformServices.Current.SupportsPlatformService(IFMXClipboardService,
IInterface(ClipService)) then
ClipService := nil;
Elapsed := 0;
end;
procedure THeaderFooterForm.Timer1Timer(Sender: TObject);
begin
if (ClipService.GetClipboard.ToString <> 'nil')
then
begin
timer1.Enabled := false;
Elapsed := 0;
edit1.Text := ClipService.GetClipboard.ToString;
end
else
begin
if Elapsed >9 then
begin
timer1.Enabled := false;
Elapsed := 0;
edit1.Text := ClipService.GetClipboard.ToString;
end
else
Elapsed := Elapsed +1;
end;
end;
end.