Escrevendo um byte na paralela ...

Question

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?...

Kroki · Answer

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

Lucas_cardozo · Answer

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!

Kroki · Answer

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....

Lucas_cardozo · Answer

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!!!!!!!!!!!...

F�rum Escrevendo um byte na paralela ... #169382