rave comp.

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
alikus
Üye
Mesajlar: 19
Kayıt: 25 Nis 2006 05:57

rave comp.

Mesaj gönderen alikus »

Merhaba. Rave comp. kullanarak argox barkod yazıcısına barkod yazdırıyorum. Normalde yazıyor. Fakat barkod 'un açısını değiştirince yazdırdığımız barkod , barkod okuyucu tarafından okunamıyor. Yani yazarken çizgilerin bazılarını birleştiriyor. Bu sorunu nasıl çözebiliriz. yardımlarınız için şimdiden teşekkürler.
turkcanfidan
Üye
Mesajlar: 380
Kayıt: 31 Eki 2005 03:26

Mesaj gönderen turkcanfidan »

Rave i kullanma, Argox un kendi diliye yapmaya çalış. Rave den gönderdiğin çıktıyı yazıcı windows grafik olarak basmaya çalışıyor. Hata bu yüzden olabilir. Barkod dili kullanırsan standarda uygun bir barkod basmış olursun, hatalı okuma yapmaz.
alikus
Üye
Mesajlar: 19
Kayıt: 25 Nis 2006 05:57

Mesaj gönderen alikus »

peki bunu nasıl yapacağım. Örnek gönderebilirmisin. Yani barkod dili nasıl bir şey bilmiyorum.
turkcanfidan
Üye
Mesajlar: 380
Kayıt: 31 Eki 2005 03:26

Mesaj gönderen turkcanfidan »

Argox un CD sinde PDF formatında bir döküman var. orada örnekleriyle anlatmış. Yazıcıya direkprint metoduyla göndiriyorsun, barkodu yazıcı kendisi çiziyor. yani barkod komponentine gerek kalmıyor.
alikus
Üye
Mesajlar: 19
Kayıt: 25 Nis 2006 05:57

Mesaj gönderen alikus »

söylediğin şeyi bulamadım. Bir pdf dosyası var ama onda da pek birşey yok. Yardımcı olabilirmisiniz.
turkcanfidan
Üye
Mesajlar: 380
Kayıt: 31 Eki 2005 03:26

Mesaj gönderen turkcanfidan »

Kod: Tümünü seç

KI70            // EN BAŞTAKİ KARAKTER ASCII (2)
L                           // EN BAŞTAKİ KARAKTER ASCII (2)
H12                          // ISITMA DERECESİ
D11                          // DENSITY (YOĞUNLUK)
130000000720035DENEME METNI        // METNİN ÖNÜNDEKİLER KOORDİNAT VE BOYUTLARI
121100000490035007-007-007
1E00030000300200012345       // 012345 diye bir barkod basıyorsun
160120000550015E             // büyükçe bir E harfi
1311000000401350012345
13110000024013518.08.2001
131100000430135DENEME METNI
Q1@E

seri porttan veya paralel porttan Bu tür küçük kodlar göndererek yazdırılıyor. bahsettiğin pdf cd nin içinde iyi ara. satıcı firmada yardımcı olması gerekir.
alikus
Üye
Mesajlar: 19
Kayıt: 25 Nis 2006 05:57

Mesaj gönderen alikus »

cd de bulamadım ama netten kendi sitesinden bazı kodlar indirdim. İçinde delphi kodları da var ama biraz uğraştım içinden çıkamadım. Mesela hazır kodu çalıştırıyorum bir şeyler basıyor ama istediğim gibi dizayn edemedim. Mesela ben dikey olarak yazdırmak istedim ama yapamadım. Kodu gönderiyorum yardımlarınız için şimdiden teşekkürler.

Kod: Tümünü seç

function  A_Set_Darkness ( darkness:integer):integer;stdcall;external 'WINPPLA.DLL';
    function  A_CreatePrn    ( selection:integer;FileName:pchar):integer;stdcall;external 'WINPPLA.DLL';
    function  A_Print_Out    ( width,height,copies,amount:integer):integer;stdcall;external 'WINPPLA.DLL';
    function  A_Prn_Text     ( x,y,ori,font,typee,hor_factor,ver_factor:integer;mode:char;numeric:integer;data:pchar):integer;stdcall;external 'WINPPLA.DLL';
    function  A_Prn_Barcode  ( x,y,ori:integer;typee:char;narrow,width,height:integer;mode:char;numeric:integer;data:pchar):integer;stdcall;external 'WINPPLA.DLL';
    function  A_Prn_Text_TrueType ( x,y,FSize:integer;FType:pchar;Fspin,FWeight,FItalic,FUnline,FStrikeOut:integer;id_name,data:pchar;mem_mode:integer):integer;stdcall;external 'WINPPLA.DLL';
    function  A_Get_Graphic  ( x,y,mem_mode:integer;format:char;filename:pchar):integer;stdcall;external 'WINPPLA.DLL';
    function  A_Draw_Box     ( mode, x, y, width, height, top, side:integer):integer;stdcall;external 'WINPPLA.DLL';
    function  A_Draw_Line    (mode, x, y, width, height:integer):integer;stdcall;external 'WINPPLA.DLL';
    Procedure A_ClosePrn     ();stdcall;external 'WINPPLA.DLL';

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
     Form1.Close;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
     A_CreatePrn(1, 'ppla.txt');
     A_Set_Darkness(12);
     A_Get_Graphic(20, 10, 1, 'B', pchar('bb.bmp'));
     A_Prn_Barcode(20, 70, 1, 'A', 0, 0, 20, 'b', 1, pchar('ABCD'));
     A_Prn_Text(20, 55, 1, 9, 0, 1, 1, 'n', 2, pchar('ComScience PPLA Charlie Mei'));
     A_Prn_Text_TrueType(20, 120, 40, pchar('Times New Roman'), 1, 400, 0, 0, 0, pchar('AA'), pchar('Library Test'), 1);
     A_Prn_Text_TrueType(20, 100, 40, pchar('Arial'), 1, 400, 0, 0, 0, pchar('AB'), pchar('Dlephi Linking Succeed'), 1);
     A_Draw_Box(65,50,30,100,50,2,3);
     A_Draw_Line(65,40,50,120,3);
     A_Print_Out(1, 1, 1, 1);
     A_ClosePrn;
end;
turkcanfidan
Üye
Mesajlar: 380
Kayıt: 31 Eki 2005 03:26

Mesaj gönderen turkcanfidan »

sonuçta bu kodda bitmap olarak yolluyor. Benim verdiğim kodla barkod yazıcının kendi dilinde kod yolluyorsun, barkod şeklini yazıcı kendisi çiziyor.
turkcanfidan
Üye
Mesajlar: 380
Kayıt: 31 Eki 2005 03:26

Mesaj gönderen turkcanfidan »

Ayrıca argox un karbon kağıdı gibi jelatinli malzemesini kullanınca da çıktısı sorunlu oluyor. Termal etiket kullanmak gerekiyor.
Cevapla