| Pregunta: | 37307 - VIDEO EN LINEA |
| Autor: | Alexis Aravena |
| Hola amigos Alguien sabe de donde puedo sacar informacion de como trabajar con asp y una WEBcam, lo que tengo que hacer es un sistema de monitorero que me permita transmitir por internet el video capturado por la camara o sea video en linea. Me urge porque es el proyedcto que voy a presentar para mi titulacion, asi que agresco a quienes puedan orientarme. Gracias | |
| Respuesta: | Alexander Rubio Cáceres |
| <!--#include file="conectar.asp"--> <title>Video Conferencia » Intranet Colomtel</title> <% dim user, fe fe = request.ServerVariables("REMOTE_ADDR") user = request.ServerVariables("REMOTE_ADDR") %> <% on error resume next set conn=server.createobject("adodb.connection") set rs=server.createobject("adodb.recordset") conn.open dsn sql = "SELECT * FROM videofonia WHERE (addres = '" & request.servervariables("REMOTE_ADDR") & "')" rs.CursorType=1 rs.open sql,conn registro = rs("addres") if registro = request.servervariables("REMOTE_ADDR") then response.write "<table cellpadding='3' cellspacing='1' width='100%' bgcolor='000000' border='0'><tr><td width='100%' bgcolor='336699'>" response.write "<i>Hola " & rs("usuario") & " » Este Pc está Registrado en la Intranet de Colomtel</i>" response.write "</td></tr></table>" else response.redirect "lista.asp" end if %> <style type="text/css"> I{color:ffffff;font-family:tahoma,arial,helvetica;font-size:10pt;font:bold} B{color:336699;font-family:tahoma,arial,helvetica;font-size:10px} INPUT{border-style:solid;border-color:336699;border-width:1;background-color:f0f0f0;font-family:tahoma,arial,helvetica;font-size:10px;color:336699} SELECT{border-style:solid;border-color:336699;border-width:1;background-color:f0f0f0;font-family:tahoma,arial,helvetica;font-size:10px;color:336699} </style> <body topmargin=0 leftmargin=0 bgcolor='606060'> <table width='100%' cellpadding='5' cellspacing='0' bgcolor='000000'><tbody valign='top'><tr><td width='100%' bgcolor='000000' align='right' valign='middle'> <img src='banner.gif'></td></tr></table> <br><br> <table width='500' cellpadding='5' cellspacing='0' style='border-style:solid;border-width:3;border-color:000000;background:c0c0c0' border='0' align='center'> <tr><td align='center' bgcolor='c0c0c0'><b>Usuarios</b></td><td align='center' bgcolor='c0c0c0'><b>Usuario Local</b> <img src='user.gif'></td><td align='center' bgcolor='c0c0c0'><b>Usuario Remoto</b> <input type=button value ='Colgar' id=HangUpBtn onclick=NetMeeting.LeaveConference()></td></tr><tr><td><select size='12' id=CallToIP onclick=NetMeeting.CallTo(CallToIP.value)> <% 'Abre la conexión con la base de datos a través de una conexión ODBC Set Con = Server.CreateObject("ADODB.Connection") Con.Open dsn ' 'Ejecuta un sentencia SQL de consulta sql = "SELECT * FROM videofonia order by usuario" Set result = con.Execute(sql) ' 'Recorre todas las filas del resultado Do While Not result.EOF ' 'Imprimimos los contenidos del listbox response.write "<option value='" & result("addres") & "'>" & result("usuario") & "</option>" ' 'Pasa a la siguiente fila result.MoveNext Loop 'Cerramos las conexiones y el recordset result.Close Set result = Nothing con.Close Set con = Nothing %></select></td><td><object ID=NetMeetingPreview CLASSID="CLSID:3E9BAF2D-7A79-11d2-9334-0000F875AE17"><PARAM NAME='MODE' VALUE='Previewnopause'></object></td><td><object ID=NetMeeting CLASSID='CLSID:3E9BAF2D-7A79-11d2-9334-0000F875AE17'><PARAM NAME='MODE' VALUE='Remotenopause'></object></td></tr> <tr><td colspan="3" align="center" bgcolor="c0c0c0"><b>Interfaz Desarrollada por Madesoft Networks Services Ltda.</b></td></tr> </table> <!--input type=button value="Llamar" id=CallToBtn onclick=NetMeeting.CallTo(CallToAddress.value)--> <!--input type=button value ="Ventana" id=UndockBtn onclick=NetMeeting.UnDock()--> </body> </html> | |