shoulder
16-01-2014, 18:44:34
Hola instale el componente para leer mi smartcard de tarjeta de clave digital uso las sentencias y no hace nada....
procedure TForm1.Button1Click(Sender: TObject);
Var
data, cadena : string;
MyData:String;
sw1, sw2: byte;
begin
MyData:=' ';
sw1:=0;
sw2:=0;
PCSCConnector1.Init;
PCSCConnector1.UseReaderNum := 0;
If not PCSCConnector1.Open then
ShowMessage('Error Abrir');
If not PCSCConnector1.Connect then
ShowMessage('Error Conectar');
If not PCSCConnector1.Connect then
PCSCConnector1.Connect;
PCSCConnector1.GetResponseFromCard('ins', MyData, sw1, sw2)
end;
procedure TForm1.Button1Click(Sender: TObject);
Var
data, cadena : string;
MyData:String;
sw1, sw2: byte;
begin
MyData:=' ';
sw1:=0;
sw2:=0;
PCSCConnector1.Init;
PCSCConnector1.UseReaderNum := 0;
If not PCSCConnector1.Open then
ShowMessage('Error Abrir');
If not PCSCConnector1.Connect then
ShowMessage('Error Conectar');
If not PCSCConnector1.Connect then
PCSCConnector1.Connect;
PCSCConnector1.GetResponseFromCard('ins', MyData, sw1, sw2)
end;