Force Close Delphi

[Arlesson Anjos 0]

Vou tentar explicar detalhadamente o meu problema. Tenho uma aplicação em delphi com varios Form's, em um deles chamo um método de uma dll para ler um cartão no Pin Pad.

mais ou menos assim.

 

if PinPad.LeituraCartaoMagnetico then

executa algo...

 

O programa naum pará para esperar a leitura, continua executando como se fosse um thread, "naum posso afirmar, pois

se trata de um método de uma dll".PinPad é uma classe que implementa alguns métodos para comunicação com o PinPad, nela tem também o método,InterroperLeitura.O meu problema é o seguinte: quando eu tento sair do form e ele esta esperando a leitura do cartão como mostrado acima,

simplesmente não consigo fechar, Close naum adianta,

meu método de Saída tah assim.

 

procedure Sair(Sender:TObject)

begin

if PinPad.AguardaLeitura then

PinPad.InterroperLeitura;

Close;

end;

Para sair tenho que clicar duas vezes no botão sair.queria saber se tem alguma forma de FORÇAR esse CLOSE ?

[Prog 183]

if PinPad.AguardaLeitura then

PinPad.InterroperLeitura;

Sleep(3000);

Close;

Tenta colocar um sleep() pra ver se da certo.

[Arlesson Anjos 0]

if PinPad.AguardaLeitura then

PinPad.InterroperLeitura;

Sleep(3000);

Close;

Tenta colocar um sleep() pra ver se da certo.

 

O pior é que eu já tentei, todo o meu repertorio de Gab, já se esgotou..

[Prog 183]

O pior é que eu já tentei, todo o meu repertorio de Gab, já se esgotou..

Tentou com while? Tipo...

 

while PinPad.AguardaLeitura do
	 PinPad.InterroperLeitura;
Close;