acbrbarcode Duvida no funcionamento do ACBrBarCode

[bacalajr]

Ola a minha duvida com ACBrBarCode com a propriedade Typ, que tenho um combobox com os seguinte tipo de código de barra, EAN8, EAN13 e GTIN.

Quando for EAN8 como eu faço para indicar via código ACBrBarco.typ = EAN8 como fazer não achei nada na internet para ajudar.

O Componente ACBrBarCode gera os código para mim sem precisar criar código, se sim tem um artigo que demostrar para eu seguir e fazer no meu sistema?

Como fazer para o ACBrBarCode gerar codigo de barra para o padrão GTIN?

[Daniel Simoes]

Deixe a sua IDE te ajudar... Ctrl+Clique sobre " ACBrBarco.typ" irá lhe mostrar as opções desse tipo enumerado

[bacalajr]

Eu fiz isso Daniel ante de postar aqui para pertubar vocês, só postei que realmente não consegui.

[bacalajr]

Oi Alguem pode ajudar?????

[paulorsa]

Parte do código para você dar uma olhada em como achar o tipo que você precisa.

 

unit ACBrBarCode;

 

type
  TACBrBarCode = class ( TGraphicControl )
  private
//  fsAbout: TACBrAboutInfo;
    fsBarCode  : TAsBarcode ;
    fsTransparent: Boolean;

    procedure SetTransparent(const Value: Boolean);
    function GetAngle: Double;

    property Typ    : TBarcodeType read GetTyp   write SetTyp

Olhe no Uses para encontra a unit que consta o TBarcodeType.

uses
 {ACBrBase, }Classes, SysUtils,
 {$IFDEF VisualCLX}
  QGraphics, QControls, QExtCtrls, QDialogs,
 {$ELSE}
  Graphics, Controls, ExtCtrls, Dialogs,
 {$ENDIF}
  AJBarcode ;

Olhe a unit AJBarcode;

type
  TBarcodeType =
  (
  bcCode_2_5_interleaved,
  bcCode_2_5_industrial,
  bcCode_2_5_matrix,
  bcCode39,
  bcCode39Extended,
  bcCode128A,
  bcCode128B,
  bcCode128C,
  bcCode93,
  bcCode93Extended,
  bcCodeMSI,
  bcCodePostNet,
  bcCodeCodabar,
  bcCodeEAN8,
  bcCodeEAN13,
  bcCodeUPC_A,
  bcCodeUPC_E0,
  bcCodeUPC_E1,
  bcCodeUPC_Supp2,    { UPC 2 digit supplemental }
  bcCodeUPC_Supp5,    { UPC 5 digit supplemental }
  bcCodeEAN128A,
  bcCodeEAN128B,
  bcCodeEAN128C
  );
 

 

 

[bacalajr]

Senhor PauloRsa, eu vi o código mas eu não estou conseguindo fazer a atribuição que desejo.

ACBrBarCode.BarCode.Typ.bcCodeEAN13 := true;

ACBrBarCode.BarCode.Typ := bcCodeEAN13;

ACBrBarCode.BarCode.Typ := 'bcCodeEAN13';

 

Não consigo fazer atribuição pode me ajudar por favor?

[Daniel Simoes]

Aproveite a oportunidade, e estude sobre Tipos Enumerados

http://wiki.freepascal.org/Enumerated_types

http://www.delphibasics.co.uk/Article.asp?Name=Sets

Qual o problema com o código abaixo ?

 ACBrBarCode.BarCode.Typ := bcCodeEAN13; 

 

[bacalajr]

Daniel Simões Desculpa encomodar mas quando realmente eu não consigo e não intendo o quer dizer o fonte eu peço ajuda.

Desculpa novamente se sou muito burro para entender e se estou encomodando

Abaixo o erro que acontece com a linha que sitou.

[paulorsa]

Coloque a unit AJBarcode no uses do seu programa.

[Daniel Simoes]

10 minutos atrás, bacalajr disse:

Daniel Simões Desculpa encomodar mas quando realmente eu não consigo e não intendo o quer dizer o fonte eu peço ajuda.

Desculpa novamente se sou muito burro para entender e se estou encomodando

Não leve para o lado pessoal... quando iniciei o ACBr, não tinha menor ideia de como criar um componente...  Use a dificuldade, para uma oportunidade de aumentar o seu conhecimento...

A dica do colega Paulo, deve resolver o seu problema...

Afinal, como você espera que o copilador conheça o tipo enumerado, se você não fez "Uses" da Unit onde ele é declarado ?

[bacalajr]

Com a dia do o Colega senhor Paulo, eu declarei e junto as units de form que estou usando no meu formulário. e estou testando porem na mudança de um iniciei testando ean 8 quando mudei para o 13 deu erro estou vendo ainda o pq qualquer coisa eu posto novamente um outro post com o erro mas até aqui obrigado pela ajuda.

eu não sabia que tinha que declarar essa unit.

[bacalajr]

1 hora atrás, bacalajr disse:

Com a dia do o Colega senhor Paulo, eu declarei e junto as units de form que estou usando no meu formulário. e estou testando porem na mudança de um iniciei testando ean 8 quando mudei para o 13 deu erro estou vendo ainda o pq qualquer coisa eu posto novamente um outro post com o erro mas até aqui obrigado pela ajuda.

eu não sabia que tinha que declarar essa unit.

Como faz para dar o assunto como resolvido?