rave comp.
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
rave comp.
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.
-
- Üye
- Mesajlar: 380
- Kayıt: 31 Eki 2005 03:26
-
- Üye
- Mesajlar: 380
- Kayıt: 31 Eki 2005 03:26
-
- Üye
- Mesajlar: 380
- Kayıt: 31 Eki 2005 03:26
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.
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;
-
- Üye
- Mesajlar: 380
- Kayıt: 31 Eki 2005 03:26
-
- Üye
- Mesajlar: 380
- Kayıt: 31 Eki 2005 03:26