Ler bit mais significativo no pino CTS porta serial

Delphi

24/04/2009

boa tarde pessoal, estou tentando ler o bit mais significativo do pino CTS na porta serial e não estou conseguindo..

acontece o erro de Instrução Privilegiada...

o seguinte código está em uma DLL...


function ReadPortbB(wPort:word):Byte;stdcall;
begin
asm
mov dx, wport
in al,dx
mov result,al
end;
end;

procedure WritePortb(wPort:Word;bValue:Byte);stdcall;
begin
asm
mov dx,wport
mov al,bValue
out dx,al
end;
end;
exports ReadPortbB, WritePortB;


eu não quero ler string, apenas o bit mais significativo...

será q alguém poderia me ajudar??

obrigado..


Wdrocha

Wdrocha

Curtidas 0

Respostas

Wdrocha

Wdrocha

24/04/2009

a porta que quero ler é a porta COM2


GOSTEI 0
Cleidsonbsilva

Cleidsonbsilva

24/04/2009

Nao sei exatamente o que vc quer fazer, mas conheço bem essa CTS ai, pois tenho um software que usa portas seriais.

Talvez a principio, o problema seja que o windows nao deixe vc acessar diretamente a informação no hardware.

Eu lá li essa informação que vc quer de duas formas, na primeira eu acessava diretamente a porta, na segunda e que achei bem mais prática, uso um component chamado TCOMPORT.

Outro jeito também, é ler o byte inteiro e em seguida ler o 8o bit dele.

Pra qualquer uma das tres formas acima, eu consigo te dar maior auxilio.


GOSTEI 0
Wdrocha

Wdrocha

24/04/2009

obrigado pela resposta...


eu já consegui....

fiz usando a API do Windows.....

CreateFile....GetCommModemStatus e funcionou perfeitamente....


obrigado


GOSTEI 0
POSTAR