xe8 de qr scaner

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

xe8 de qr scaner

Mesaj gönderen erdogan_ozkaya »

Arkadaşlar

android uygulama için qr kod okutmak istiyorum elinde örnek kod olan var mı acaba?

teşekkürler.
ertank
Kıdemli Üye
Mesajlar: 1716
Kayıt: 12 Eyl 2015 12:45

Re: xe8 de qr scaner

Mesaj gönderen ertank »

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
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: xe8 de qr scaner

Mesaj gönderen erdogan_ozkaya »

hocam cevabınız için teşekkürler fakat ücretsiz bir eklentiye ulaşamadım acaba indirebileceğim bir link varmı ?
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: xe8 de qr scaner

Mesaj gönderen erdogan_ozkaya »

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
ertank
Kıdemli Üye
Mesajlar: 1716
Kayıt: 12 Eyl 2015 12:45

Re: xe8 de qr scaner

Mesaj gönderen ertank »

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?
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: xe8 de qr scaner

Mesaj gönderen erdogan_ozkaya »

:D bir türlü çözemedim valla tms yanlış versiyonunu yükledim galiba
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: xe8 de qr scaner

Mesaj gönderen erdogan_ozkaya »

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

Re: xe8 de qr scaner

Mesaj gönderen erdogan_ozkaya »

tms sadece ios içinmiş :( android de çalışmadı bilginiz olsun
erdogan_ozkaya
Üye
Mesajlar: 839
Kayıt: 03 Eki 2007 02:00

Re: xe8 de qr scaner

Mesaj gönderen erdogan_ozkaya »

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.
Cevapla