ayuda con script de lectrura de puerto serial

valdo_kof · #1 (**permalink**) 25/01/2011, 11:31

buen dia mi duda es la siguiente tengo este script q lo he revisado y analisado y visto de diferentes formas y nada ams no me funciona y no me amrca ningun error al hacer unas validaciones resulta q nunca identifica al evento OnComm, no se si necesito instalar un activex como segun dice en el ejemplo, se utiliza el activex pero no se si exista alguno especial para el puerto instale el virtual serial port driver 6 que supuestamente me enlaza dos seriales en este caso com3 y com4 pero ni asi funciona les dejo el codigo original y modificado donde me di cuenta q no entra identifica el evento OnComm espero y me puedan ayudar ya q lo unico q necesito es q lea el valor q se esta enviando

codigo original, como lo encontre en el ejemplo y ya puentie los pines 2 y 3 de mi db-9 y no funciona y tambien ya puentie los 2y3 , 4y6, 7y8 que son para prueba de loopback segun la idea es q el mismo dato q envia, lo recibe por el mismo puerto y no me funciona de ninguna forma

Código HTML:

Ver original<HTML>
<head>
<title>Puerto serie con javascript</title>
<script>
function conectar() {
    objSerie.CommPort = document.forma.puertoSerie.value;
    objSerie.PortOpen = true;
    forma.cadena.value = "";
    forma.cadena.focus();
    forma.texto.value += "Conectado\n"
}
function desconectar() { objSerie.PortOpen = false; }
function enviar() {
    var cadena = forma.cadena.value;
    objSerie.Output = cadena;
    forma.texto.value += "local: " + cadena + "\n";
    forma.cadena.value = "";
    forma.cadena.focus();
}
function comunicacion() {
    if ( objSerie.CommEvent == 2 ) {//si estamos recibiendo datos
        var cadena = objSerie.Input;
        forma.texto.value += "remoto: " + cadena + "\n";
    }
}
</script>
<script language="javascript" for="objSerie" event="OnComm">comunicacion()</script>
 
</head>
 
<BODY onunload="desconectar();" style="margin:1px 0 0 10">
 
<OBJECT id="objSerie" classid="clsid:648A5600-2C6E-101B-82B6-000000000014" VIEWASTEXT>
    <PARAM NAME="_ExtentX" VALUE="1005">
    <PARAM NAME="_ExtentY" VALUE="1005">
    <PARAM NAME="_Version" VALUE="393216">
    <PARAM NAME="BaudRate" VALUE="9600">
    <PARAM NAME="CommPort" VALUE="2">
    <PARAM NAME="DataBits" VALUE="7">
    <PARAM NAME="DTREnable" VALUE="1">
    <PARAM NAME="EOFEnable" VALUE="0">
    <PARAM NAME="Handshaking" VALUE="0">
    <PARAM NAME="InBufferSize" VALUE="1024">
    <PARAM NAME="InputLen" VALUE="0">
    <PARAM NAME="InputMode" VALUE="0">
    <PARAM NAME="NullDiscard" VALUE="0">
    <PARAM NAME="OutBufferSize" VALUE="512">
    <PARAM NAME="ParityReplace" VALUE="63">
    <PARAM NAME="RThreshold" VALUE="1">
    <PARAM NAME="RTSEnable" VALUE="0">
    <PARAM NAME="ParitySetting" VALUE="0">
    <PARAM NAME="SThreshold" VALUE="1">
    <PARAM NAME="StopBits" VALUE="0">
</OBJECT>
 
<form name="forma" onsubmit="return false;">
<table style="border:1 solid black" cellpadding="4" cellspacing="0">
    <tr style="background:cornsilk">
        <td>Conectar al puerto</td>
        <td>
            <select id="puertoSerie">
                <option value="1">COM1
                <option value="2">COM2
            </select>
        </td>
        <td><input type="button" id="btnConectar" value="Conectar" onclick="conectar();"></td>
    </tr>
    <tr style="background:cornsilk">
        <td>Enviar texto</td>
        <td><input type="text" id="cadena" value="" onkeypress="if (event.keyCode==13) enviar();"></td>
        <td><input type="button" id="btnEnviar" value="Enviar" onclick="enviar();"></td>
    </tr>
    <tr>
        <td colspan=4>Texto enviado/recibido<br>
            <textarea cols="50" rows="8" name="texto" value=""></textarea>
        </td>
    </tr>
</table>
 
</BODY>
</HTML>

y modificado para saber si asegurarme q hace las conecciones y envio de datos

Código HTML:

Ver original<HTML>
<head>
<title>Puerto serie con javascript</title>
<script>
function conectar() {
    document.getElementById('objSerie').CommPort = document.forms["forma"].puertoSerie.value;
    document.getElementById('objSerie').PortOpen = true;
    if (document.getElementById('objSerie').PortOpen==true){
    document.forms["forma"].cadena.value = "";
    document.forms["forma"].cadena.focus();
    document.forms["forma"].texto.value += "Conectado al puerto: "+document.objSerie.CommPort+"\n";
    }
    else{
    document.forms["forma"].texto.value += "No se ha establecido la coneccion con el puerto\n";
    }
    
}
function desconectar() { document.getElementById('objSerie').PortOpen = false; }
function enviar() {
    var cadena = document.forms["forma"].cadena.value;
    document.getElementById('objSerie').Output = cadena;
    document.forms["forma"].texto.value += "cadena en objSerie.output: " + document.getElementById('objSerie').Output + "\n";
    document.forms["forma"].texto.value += "local: " + cadena + "\n";
    document.forms["forma"].cadena.value = "";
    document.forms["forma"].cadena.focus();
    }
function comunicacion() {
document.forms["forma"].texto.value += "entro a la funcion comunicacion\n";
document.forms["forma"].texto.value += "remoto: " + document.getElementById('objSerie').CommEvent + "\n";
    if ( document.getElementById('objSerie').CommEvent == 2 ) {//si estamos recibiendo datos
    document.forms["forma"].texto.value += "cadena en objSerie.input: " + document.getElementById('objSerie').Input + "\n";
        var cadena = document.getElementById('objSerie').Input;
        document.forms["forma"].texto.value += "remoto: " + cadena + "\n";
    }
    else{
    document.forms["forma"].texto.value += "entra pero no da el valor de: " + document.getElementById('objSerie').Input;
    }
}
</script>
<script language="javascript" for="document.getElementById('objSerie')" event="OnComm">comunicacion()</script>
 
</head>
 
<BODY onUnload="desconectar();" style="margin:1px 0 0 10">
 
<OBJECT id="objSerie" classid="clsid:648A5600-2C6E-101B-82B6-000000000014" VIEWASTEXT>
    <PARAM NAME="_ExtentX" VALUE="1005">
    <PARAM NAME="_ExtentY" VALUE="1005">
    <PARAM NAME="_Version" VALUE="393216">
    <PARAM NAME="BaudRate" VALUE="9600">
    <PARAM NAME="CommPort" VALUE="3">
    <PARAM NAME="DataBits" VALUE="7">
    <PARAM NAME="DTREnable" VALUE="1">
    <PARAM NAME="EOFEnable" VALUE="0">
    <PARAM NAME="Handshaking" VALUE="0">
    <PARAM NAME="InBufferSize" VALUE="1024">
    <PARAM NAME="InputLen" VALUE="0">
    <PARAM NAME="InputMode" VALUE="0">
    <PARAM NAME="NullDiscard" VALUE="0">
    <PARAM NAME="OutBufferSize" VALUE="512">
    <PARAM NAME="ParityReplace" VALUE="63">
    <PARAM NAME="RThreshold" VALUE="1">
    <PARAM NAME="RTSEnable" VALUE="0">
    <PARAM NAME="ParitySetting" VALUE="0">
    <PARAM NAME="SThreshold" VALUE="1">
    <PARAM NAME="StopBits" VALUE="0">
</OBJECT>
 
<form name="forma" onSubmit="return false;">
<table style="border:1 solid black" cellpadding="4" cellspacing="0">
    <tr style="background:cornsilk">
        <td>Conectar al puerto</td>
        <td>
            <select id="puertoSerie">
                <option value="3">COM3</option>
                <option value="4">COM4</option>
            </select>
        </td>
        <td><input type="button" id="btnConectar" value="Conectar" onClick="conectar();"></td>
    </tr>
    <tr style="background:cornsilk">
        <td>Enviar texto</td>
        <td><input type="text" id="cadena" value="" onKeyPress="if (event.keyCode==13) enviar();"></td>
        <td><input type="button" id="btnEnviar" value="Enviar" onClick="enviar();"></td>
    </tr>
    <tr>
        <td colspan=4>Texto enviado/recibido<br>
            <textarea cols="50" rows="8" name="texto" value=""></textarea>
        </td>
    </tr>
</table>
</form>
</BODY>
</HTML>

espero puedan ayudarme, si alguien lo hace funcionar favor de postearlo.

gracias