Seri porttan yazıcıya bilgi gönderme

[AliRiza]

Arkadaşlar Zebra TLP 2844 usb bağlantılı yazıcıya direk olarak nasıl bilgi gönderip çıktı alabilirim.Quickreport ile windows'un kendi fontlarını kullanarak dökğm almya çalıştığımda fontların bazıları silik çıkıyor.Yazıcının kendi sürücülerini nasıl kullanıp döküm alabilirim.Yazıcıya direk olarak nasıl veri gönderebilirim..

[AliRiza]

Kod: Tümünü seç

var
  Form1: TForm1;
   x:array[0..7] of integer;
implementation
uses unit2;
{$R *.dfm}
   function TForm1.portoku(Portno: word): Byte;
begin
     asm
  mov dx,Portno
 // in al,dx
  mov result,al
 end;
end;
procedure portyaz(Portno:Word;deger:byte);
begin
 asm
  mov dx,portno
  mov al,deger
  out dx,al
 end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
adr,j,y:integer;
begin
adr:=$3F8;
for j:=0 to 7 do
begin
y:=Portoku(adr+j);
if y<>x[j] then
begin
if j=0 then listbox1.items.Add(inttohex(y,4));
if j=1 then listbox1.items.Add(inttohex(y,4));
if j=2 then listbox1.items.Add(inttohex(y,4));
if j=3 then listbox1.items.Add(inttohex(y,4));
if j=4 then listbox1.items.Add(inttohex(y,4));
if j=5 then listbox1.items.Add(inttohex(y,4));
if j=6 then listbox1.items.Add(inttohex(y,4));
if j=7 then listbox1.items.Add(inttohex(y,4));
end;
x[j]:=y;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Interval:=100;
end;

Arkadaşlar yukarıdaki kod ile yazıcıya gönderilen bilgilerin listesi alınabiliyor.Ama bu listede hexadesimal olarak gözüküyor.Ayrıca ben yukarıdaki mantıkla yani assemble ile direk yazıcıya nasıl veri gönderip çıktı alırım.
Lütfen bana yardım ederseniz çok memmun olurum.
Ayrıca Zebra TLP-2844 yazıcı kullanan arkadaşım var mı.Fontlar access veya delphide prpblem yaratıyor.Windowsun kendi fontlarını kullanarak işlem yapmaya çalışıyorum.Kendinin kullandığı bir dil varmış.EPL sürücülerini nasıl programda kullanabilirim.