ayuda paralelo

[itius]

Hola a todos, tengo un problema con delphi, soy nueva en esto y necesito ayuda de gente q sepa, estoy realizando un programa que tenga salidas por el puerto paralelo, lo q pasa es q encuentro programas para probar el puerto pero en ninguna parte me dicen q instrucciones debo usar en delphi para q mi programa haga eso.. coloco un ejemplo de mi programa tambien para q me entiendas mas.. gracias de antemano
http://rapidshare.com/files/161072460/Luces.exe

[[coso]]

Hola, para enviar al puerto paralelo puedes abrirlo como un TFile, y luego ir 'escribiendo' desde alla. Seria algo asi (de memoria)

Código Delphi [-]
var
   f : TFile;
begin
       f := AssignFile('LPT1:',fsOpenShareWrite);
       WriteLn(f,#13#10+'enviando estos caracteres');
       CloseFile(f);
end;

[rcantu]

Hola Itius, estoy empezando a trabajar con unas practicas muy sencillas de enviar informacion por el puerto paralelo y que encender un led en una protoboard de hecho encontre en la red una dll que se carga en tu programa y utilizas las funciones:

Código Delphi [-]
 
puerto := 888;
 
// salida
Out32(puerto, 1);  // este prende el led 1
 
 
//entrada
valor := Inp32(puerto);

la dll la vdd no me acuerdo de donde la baje pero si me envias un correo yo te la paso.

[itius]

Si hola.. la solucion la encontre hace un tiempo y me resulto bien..
el comando era outportb($378,1)

gracias por responder a mi consulta

Pamela

[alex10dv]

qUE TAL YO ESTOY TRATANDO DE RECIBIR DATOS POR EL PUERTO PARALELO HAY ALGUNA FORMA DE SABER EN QUE ESTADO ESTAN LAS ENTRADAS ? ES DECIR QUIERO SABER SI ESTAN EN 0.1 PARA PODER SABER SI POR EJEMPO LE MANDO UNA TENCION DE 5V Y ME DE UN 1

[krlox31416]

te dejo este hilo:

http://www.clubdelphi.com/foros/showthread.php?t=59475


para ke programes con 3 lineas de codigo usando la dll en xp salu2