Usar puerto paralelo

[luis1980]

Hola, me gustaria saber como puedo enviar un dato a través del puerto paralelo en Borland C++ Builder 6, gracias.

[[fjcg02]]

Aqui encontraras una dll que te permite manejar el puerto paralelo.

http://www.clubdelphi.com/foros/show...uerto+paralelo

Saludos

[luis1980]

Gracias por responder, pero me da el siguiente error el programa de ejemplo: "Priviliged instruction".
He ledio que otra manera de usar el puerto sería el siguiente:

asm{
push dx
mov dx,0x378
mov al, 5
out dx,al
pop dx
}

Pero al probarlo me da el mismo error que la dll.

[[FGarcia]]

Te recomiendo que bajes la DLL que aparece en esta pagina. No se si sea la misma que estas intentando ya que no mencionas el nombre de ella. Yo he tenido buenas experiencias con ella.

Aqui tienes un pequeño ejemplo de uso -delphi-

Saludos

[luis1980]

Gracias por responder, no he probado esa dll porque ya tengo la solución.
Al parecer el windows xp con según que procesador no permite manejar el ciertas funciones de input y output en modo user (esa es la explicación que he encontrado), pero usando este programita que adjunto ya se desbloquea y puedo usar el puerto paralelo. Lo hago de la siguiente manera (está comprobado que funciona):

asm{
mov dx,0x378
mov al, 0
out dx,al
}

[krlox31416]

tengo el sig. codigo...

Código Delphi [-]
/// usando registros con codigo de ensamblador asm
procedure TForm1.Button1Click(Sender: TObject);
begin
asm
MOV AX,1 // bit que se quiere utilizar en mi caso el bit 1
MOV DX,378H // puerto paralelo 378h
OUT DX,AX // damos salida lo que tenga AX en mi caso es 1 bit a DX que es el puerto 378h

Todo ok's para el windows 98, 2000 pero no me jala para el xp... como soluciono mi problema??? quiero que jale este mismo código pero para el xp...

Yo ya he checado programas que utilizan la dll pero todos ellos agregan las funciones pero como le ago con la instrucción asm en xp...

Por adelantado mil gracias!!!

[luis1980]

Perdón por no responder antes, no vi el mensaje hasta hoy.
En cualquier caso veo que ya está resuelta la duda.

Un saludo.

[krlox31416]

gracias por aclarar mis dudas... sin ustedes y este foro jamas podria haber hechado a andar estas lineas de código...

y pensar que hace tiempo pude haber hecho esto...

me hubiera ahorrado formatear mi maquina e instalarle el win 98 y 2000

vasto hacer un Ctrl - c y un Ctrl - v al driver UserPort.sys en la ubicacion de mi maquina c:\windows\sistems32\drivers...

apenas corri el programa y note que el erro habia desaparecido...

ya solo le pedi a mi hermano que me armara el proto con 3 leds para ver que jalara bien...

y si funciona!!!

gracias!!! esta ha sido una más de mis dudas que me han aclarado... por lo que decidi subir un pequeño ejemplo a un problema que tambien fue resuelto en este foro y deseo contribuir a este foro

el ejemplo que subi se llama Respaldar tablas con ShellTreeView.rar descargenlo ojala y les pueda serbir de algo y 1000 gracias sigan asi orientando al que no sabe jejeje...

aqui dejo el hilo:http://www.terawiki.clubdelphi.com/D...in32/Ejemplos/

[yelian]

Me parece una buena informacion,
Pero alguien fuera tan amable y posteara algun code para trabajar con el puerto Paralelo pero que el code sea en C++ ya que paso mucho trabajo para traducir el codico y asi lo entenderia mejor.

Muchas Gracias de ante mano

[Saludo]...

[krlox31416]

http://www.modelo.edu.mx/univ/virtec...o/paralelo.htm

http://www.forosdeelectronica.com/about3890.html

http://www.codeproject.com/KB/cs/cspplcds.aspx

aunque yo me quedo con el código que hasta ahora se me hace más sencillo y sin tener que agregar muchas lineas de código para delphi 5 y 6 no lo he calado con otras versiones!!!...sludos!!!!

y si buscas en internet encontraras más paginas y hasta foros de discusion

[[escafandra]]

yelian, los link que te propone krlox31416 son muy buenos para tus propósitos:

Empezado por krlox31416

http://www.modelo.edu.mx/univ/virtec...o/paralelo.htm

http://www.forosdeelectronica.com/about3890.html

http://www.codeproject.com/KB/cs/cspplcds.aspx

Esto sería la traducción a C++ Builder del código que usó, es sencillo:

// usando registros con codigo de ensamblador asm
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   _asm{
     mov AX,1 // bit que se quiere utilizar en mi caso el bit 1
     mov DX, 0x378 // puerto paralelo 378h
     out DX,AX // damos salida lo que tenga AX en mi caso es 1 bit a DX que es el puerto 378h
   }
}

Saludos.

PD. Al terminar de escribir este post me di cuenta de que no había hecho referencia a este otro interesante hilo. En él se expone otra forma interesante de conseguir manejar el puerto paralelo sin uso de componentes.