sample5.dpr

用来测试任何pcsc兼容读卡器

{$APPTYPE CONSOLE}
program sample5;
uses Windows,PCSCClasses,SysUtils,VASBase;
var
 a,b,c:TBuffer;
begin
 writeln('Buffer use sample',#10);
 a:=TBuffer.Create;
 b:=TBuffer.Create;
 c:=TBuffer.Create;
 try
  if Assigned(a) and Assigned(b) and Assigned(c)  then
  begin
   a.str:='VAS';
   writeln('A.str=''',a.str,'''  A.hex=''',a.hex,''' A.capacity=',a.capacity,' A.len=',a.len,#10);
   a.str:='';
   writeln('A.str=''',a.str,'''  A.hex=''',a.hex,''' A.capacity=',a.capacity,' A.len=',a.len,#10);
   b.hex:='504353,43,20,52,65,61 64 65 72';
   writeln('B.str=''',b.str,'''  B.hex=''',b.hex,''' B.capacity=',b.capacity,' B.len=',b.len,#10,#10);
   c.assign(b);
   writeln('C.str=''',c.str,''' C.capacity=',c.capacity,' C.len=',c.len,#10);
   try
    c.hex:=c.str;
   except
    on e:exception do writeln(E.Message);
   end;
   writeln('C.str=''',c.str,''' C.capacity=',c.capacity,' C.len=',c.len,#10);
//   c.Assign(b);
   try
    c[0]:=$51;
   except
    on e:exception do writeln(E.Message);
   end;
   try
    c.len:=3;
    c[0]:=$51;
    c[1]:=$44;
    c[2]:=$54;
   except
    on e:exception do writeln(E.Message);
   end;
   writeln('C.str=''',c.str,''' C.capacity=',c.capacity,' C.len=',c.len,#10);
  end;
  writeln('Press ENTER to finish...');
  readln; 
 finally
  a.Free;
  b.Free;
  c.Free;
 end;
end.