Escrevendo um byte na paralela ...

Delphi

14/07/2003

Como faço p/ escrever um byte tipo (0) na paralela????
Eu já tinha visto o código uma vez ... naum era grande ... e num usava componentes .... alguém pode me ajudar?


Lucas_cardozo

Lucas_cardozo

Curtidas 0

Respostas

Kroki

Kroki

14/07/2003

Tenho uma resposta de outra pergunta,acho que será útil pra vc;
[url]http://www.kroki.hpg.com.br/images/lpt.doc[/url]


GOSTEI 0
Lucas_cardozo

Lucas_cardozo

14/07/2003

po kra .. valeu ... mas o código usa assembler ... esses códigos naum funcionam no windows xp e nem no 2000 (o que eu preciso)

o código abaixo ... eu achei na web

Var BytesRead : BYTE; begin asm \{ Read port (LPT1) via Inline asm \} MOV dx,$379; IN al,dx; MOV BytesRead,al; end; BytesRead:=(BytesRead OR $07); \{ OR and then XOR the data \} BytesRead:=(BytesRead XOR $80); \{ to mask the unused bits \} 2 way : It´s no problem, use the Turbo Pascal command ... value:=port[$379]; \{ read from port \} and port[$379]:=value; \{ write to port \}



Mas o código acima dá um erro, ele diz que port é naum definido ...

quando eu mando exibir o resultado de ´BytesRead´ em um edit ... funciona ... mas como eu faço p/ enviar um dado .. pois aki eu estou lendo ... certo??????????????????


valeu pela ajuda!


GOSTEI 0
Kroki

Kroki

14/07/2003

Para usar ono XP vc precisa do driver Portalk.
Esse código tambem não funciona no XP,o XP não aceita acesso direto das portas.


GOSTEI 0
Lucas_cardozo

Lucas_cardozo

14/07/2003

quanto a plataforma windows ... eu naum me preocupo muito ...pode ser o win98 ...

o q eu quero mesmo ... é fazer a parada funcionar ... eu preciso muito ...



valeu pela força!!!!!!!!!!!


GOSTEI 0
POSTAR