Power Builder - Consulta Solo Para expertos (Pb)

Quiero trabajar con lpt1 para encender un aparatos eléctricos desde el computador a través de un programa que tengo confeccionado pero no se como utilizar la DLL INPOUT32.DLL que realiza la conexión con la lpt1 , VB funciona súper bien pero pawerbuilder no se como agregarla .

Cualquier sugerencia se agradece.

Nota el circuito ya esta confeccionado y funciona bien desde VB

Juan Carlos

Tal vez esto te sirva, (aunque yo programo en Pb 6.5 ... :-) )

Debes declarar tu funcion como external function ya sea local o global
de una forma como la siguiente:

function uint Busqueda() Alias for "Busqueda" Library "Hamster.dll"

En este ejemplo, utilizo una funcion llamada Busqueda() creada en Visual C dentro de una libreria llamada Hamster.dll.

Y para usarla dentro del script de PB, simplemente se le llama como si fuera cualquier otra funcion :

Busqueda( )

No se si funcione igual para otras versiones de Pb.

Saludos

Araceli ,

trato de usar la inpout32.dll esta dll permite enviar datos lpt1.
la declaracion el VB6 es asi

Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Integer, ByVal Value As Integer)

en pawerbuilder yo la tengo asi

FUNCTION uint out32(integer PortAddress , Integer Value) LIBRARY "inpout32.dll"

estara bien declarada

No he utilizado nunca esa función (y tampoco soy experto) perotal como esta en visual en power deberia ser algo asi :

SUBROUTINE out(integer PortAddress , Integer Value) LIBRARY "inpout32.dll" ALIAS FOR "Out32"

Un saludo,

Inpout32.dll para WIN 98/NT/2000/XP

la consulta es :
el kernel reconoce por ejemplo : "&H00000001" de tipo integer?
o de tipo nvarchar?

FUNCTION uint out32(integer PortAddress , Integer Value)alias for out LIBRARY "inpout32.dll"
FUNCTION uint Inp32(integer PortAddress , Integer Value)alias for inp LIBRARY "inpout32.dll"

ANALIZANDO........

si el codigo numerico ingresado en el sle_1 y luego se concatena co &H para formar una linea &H000001 la API lo reconocera o solamente la API reconoce 000001

son dudas...

codigo para el button 1
sle_1.Text = String(Inp32(integer("&H" + sle_1.Text)))

codigo para el button 1
Out32(integer("&H" + sle_1.Text), integer(sle_2.Text))

JUAN CARLOS SOLO TE PEDIRIA Q ME EXPLIQUES COMO FUNCIONA PARA PODER ENTERDER MEJOR EL FUNCIONAMIENTO DE ESTA *.DLL

Dark_Zen

Esta dll permite enviar al puerto paralelo información para activar uno o más pin de los 25 que tiene el conector.

En realidad los pin solo se pueden ocupar son desde el pin 2 al pin 9

La instrucción desde VB seria:

Para activar pin 2 seria out(&H378,1)
Para activar pin 3 seria out(&H378,2)
Para activar pin 4 seria out(&H378,4)
Para el resto de los pin seria 8, 16, 32, 64, 128

Cuando activas pin 2 con la instrucción desde Vb uot(&H378,1) este abre un paso de corriente al pin2 , si colocas un led en pin2 y pin19 (tierra) este se enciende.

Para apagar se envia out(&H378,0) que apaga todos pin

Para no conectar led en la puerta hay un programa que muestra que puerta esta activada (parmon.exe)

Gracias a todos por tratar de ayudar
Juan Carlos