|
Mostrar Temas
|
Páginas: [1] 2
|
1
|
Programación / Desarrollo Web / Abrir archivos
|
en: 4 Febrero 2016, 22:51 pm
|
Buenas tardes a todos. Estoy elaborando una página en donde requiero abrir (ver) archivos que se encuentran en un directorio del disco duro. con visual basic uso una API: 'Declaración de la API Declare Function Ejecuta Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 'y para abrir archivos lo hago de esta manera: Ejecuta Me.hwnd, "open", "c:\archivos\archivo.xls", "", "", 1
de esta forma puedo abrir cualquier archivo con su aplicación asociada, he buscado si con PHP o javascript existe algo similar pero no he podido hacerlo, he intentado abrir los archivos con un link: <a href="file:///C:/archivos/imagen/archivo.xls">Abrir </a>
pero al parecer por el tema de la seguridad los exploradores no lo permiten. ¿Alguien sabe si es posible abrir archivos desde HTML/PHP/javascript?
|
|
|
2
|
Programación / PHP / [Resuelto] Ayuda: php+access+campo memo
|
en: 8 Septiembre 2015, 02:06 am
|
Buenas tardes, recien empiezo en la programación con php y me he topado con un problema: los campos memo, mi problema es que no puedo leer el valor del campo, si leo cualquier otro campo ya sea de texto corto, fecha, número no hay problema he buscado pero no he encontrado porque se da este comportamiento, ¿hay alguien que me pueda ayudar? estoy usando un ODBC que se conecta a una base de datos del Access 2013. el código que tengo es el siguiente: para conectar la BD: function conexion(){ $conn=odbc_connect('auxAdmin','','');//DSN, usuario, password if (!$conn){ exit("Falló conexion: " . $conn); } return($conn); }
Para leer los campos: // inicializa las variables $os = ""; $cliente = ""; $agente = ""; $estatus = ""; $fecha_solicitud=""; $idOS=0; $fecha_atencion=""; $fecha_cierre=""; $t_respuesta=""; $solicitud =""; //crea la conexión a la base de datos $conn=conexion(); if(isset($_POST["txtOS"])) { $folioOS = $_POST["txtOS"]; //valida el valor a buscar if ($pos == false){ $folioOS ="A-0000"; echo "<script languaje= 'javascript'> alert('El folio de la OS no es válido, verifique sus datos e intente nuevamente.'); </script>"; } $parametros = explode ("-", $folioOS, 5); //Obtiene los datos de la OS $sql = "SELECT c.ccodigoc01 AS Codigo, c.crazonso01 AS Cliente, u.ClaveAdministradorGarantia AS CodAgente, u.NombreAdministradorGarantia AS Agente, OS.SerieOS, OS.FolioOS, e.Estatus, OS.idOS, Format(FechaRec,'dd/mm/yyyy') & ' ' & Format(HoraRec,'Short Time') AS fecha_solicitud, Format(cierre.FechaEvento,'dd/mm/yyyy') & ' ' & Format(cierre.HoraInicio,'Short Time') AS fecha_cierre, Format(atn.FechaEvento,'dd/mm/yyyy') & ' ' & Format(Atn.HoraInicio,'Short Time') AS fecha_atn, left(OS.SolicitudCliente,len(trim(OS.SolicitudCliente))) as Solicitud FROM ((((OS INNER JOIN Clientes AS c ON OS.idCliente = c.cidclien01) INNER JOIN Usuarios2 AS u ON OS.AgenteResp = u.ClaveAdministradorGarantia) INNER JOIN osEstatus AS e ON OS.EstatusOS = e.Id) LEFT JOIN OSBitacora AS cierre ON (OS.idOS = cierre.idOS AND cierre.Estatus = 8)) LEFT JOIN OSBitacora AS atn ON (OS.idOS = atn.idOS AND atn.Evento = 1 AND atn.Ciclo = 1) WHERE OS.SerieOS = '" . $parametros[0] . "'" . " AND OS.FolioOS = " . $parametros[1] . ";"; //echo $sql; if (!$rs){ echo "Error"; } else { $os .= '-'; $cliente .= ' - '; $agente .= ' - '; $fecha_solicitud = odbc_result($rs, "fecha_solicitud"); if ($fecha_atencion != " "){ $fecha_atencion .= Calcula_Tiempo_Respuesta($conn, $fecha_solicitud, $fecha_atencion); } else{ $fecha_atencion = "Este servicio aún no ha sido atendido"; } if ($fecha_cierre != " "){ $fecha_cierre .= Calcula_Tiempo_Solucion($conn, $fecha_solicitud, $fecha_cierre); } else{ $fecha_cierre = "Este servicio aún no ha sido cerrado"; } [color =red ][font =Verdana ] $solicitud = odbc_result($rs, "Solicitud");[/font ][/color ] }
el problema es la linea $solicitud = odbc_result($rs, "Solicitud"); solo me regresa el valor "1" Mod: Obligatorio el uso de etiquetas GeSHi. Temas sobre PHP van al subforo de PHP.
|
|
|
3
|
Programación / Programación General / Ordenar hojas al imprimir
|
en: 19 Octubre 2014, 22:43 pm
|
Buenas tardes a todos, estoy realizando un página HTML la cual contiene datos para ordenes de servicio, la página contiene datos de clientes, equipos y actividades de reparaciones que se realizarán, los datos son variables pueden ocupar 1 o más páginas, hasta alli todo va bién, sin embargo, al imprimir necesito que se imprima un contrato de servicio que siempre vaya en la hoja 2. ¿Alguien tiene alguna idea de como dividir la impresión en hojas como para insertar en la 2a página los datos del contrato?
|
|
|
4
|
Programación / .NET (C#, VB.NET, ASP) / Envio de correo con formato
|
en: 26 Julio 2011, 17:55 pm
|
Buenos días, estoy haciendo una página web con el VS2008 en donde tengo que enviar algunos correos, la página pide algunos datos y envia correos de avisos a algunas personas del lugar donde trabajo, hasta aqui todo va bien, la duda que tengo es ¿como le doy formato al texto del correo?, es decir, como indicar la fuente y tamaño de letra, o como incluir una tabla dentro del mensaje??? si me pudieran aclara esa duda se los agradecería, el código que uso es: Dim strDestinatario = " cuenta@decorreo.com" Dim clienteSMTP As New System.Net.Mail.SmtpClient clienteSMTP.Host = "ServidorSMTP" clienteSMTP.Port = 25 clienteSMTP.Credentials = New Net.NetworkCredential("miusuario", "mipass") Dim Correo As New System.Net.Mail.MailMessage Correo.To.Add(strDestinatario) Correo.From = New MailAddress(" otracuenta@decorreo.com") Correo.Subject = "mail de prueba" Correo.Body = "texto del correo" <--- es aqui donde quisiera defirni tipos de letra, incluir imagenes y tablas. clienteSMTP.Send(Correo) el servidor al que me estoy conectando trabaja con Exchange y los correos los leo en outllok 2007
|
|
|
5
|
Programación / .NET (C#, VB.NET, ASP) / Visual 2008 + SQL Server 2008
|
en: 19 Febrero 2009, 22:40 pm
|
Buenas tardes, estoy tratando de hacer una aplicación en Visual 2008 que se conecte a una base de datos del sql server 2008, pero tengo problemas
el codigo que tengo es el siguiente: Dim cn As Data.SqlClient.SqlConnection Dim ds As Data.DataSet Dim da As Data.SqlClient.SqlDataAdapter Dim Conexion As String Conexion = "data source=MSSQL1;" & _ "initial catalog=Laboratorio;" & _ "integrated security=SSPI;" & _ "workstation id=sa;pwd=xxx;"
Try cn = New Data.SqlClient.SqlConnection(Conexion) cn.Open() Catch ex As Exception MessageBox.Show("Error al abrir la conexión:" & vbCrLf & ex.Message) Exit Sub End Try
hasta alli parece todo bien, el problema es que quiero antenticar con el usuario del SQL (sa), pero me marca error diciendo que el usuario con el que inicio sesión en windows no tiene permisos.
¿alguien sabe como resolver este lio?????????
de antemano gracias
|
|
|
6
|
Programación / Programación Visual Basic / Saber Nombre de PC
|
en: 22 Octubre 2007, 19:06 pm
|
Buenas tardes, abusando de su conocimientos, quiesiera preguntarles si alguien sabe como obtener el nombre de una pc por medio de su dirección IP, es decir si tengo: 169.58.36.48, como saber el nombre de esa PC???
|
|
|
7
|
Programación / Programación Visual Basic / Marcación telefónica
|
en: 4 Octubre 2007, 22:33 pm
|
Buenas tardes, estoy tratando de hacer una aplicación para marcar números de teléfono, encontre algo de información al respecto: Option Explicit Dim objComunicar
Public Sub marcarNumeroTelefono(numero As String) Dim cadConexion As String Dim resultado As Integer Dim modem As String On Error GoTo cError MousePointer = 11 Set objComunicar = CreateObject("MSCommLib.MSComm") 'Enviamos la cadena ATDT que equivale a 'descolgar el modem y marcar el número indicado por tonos 'ATDP por pulsos If opTonos.Value = True Then cadConexion$ = "ATDT" + numero + ";" + Chr$(13) End If If opPulsos.Value = True Then cadConexion$ = "ATDP" + numero + ";" + Chr$(13) End If 'Indicaremos el puerto COM a utilizar (donde esté conectado el módem) objComunicar.CommPort = CInt(txtPuerto.Text) 'En la configuración le indicaremos '300 = 300 baudios (velocidad) 'N = sin paridad '8 = 8 bits de datos '1 = bit de parada objComunicar.Settings = "300,N,8,1" If Not objComunicar.PortOpen Then objComunicar.PortOpen = True 'Liberamos el búfer de salida objComunicar.InBufferCount = 0 'Enviamos los comandos AT con el número al módem objComunicar.Output = cadConexion$ 'Esperamos a recibir "OK" desde el módem Do resultado = DoEvents() ' Si hay datos en el Buffer los leemos If objComunicar.InBufferCount Then modem$ = modem$ + objComunicar.Input 'Comprobamos si los datos leídos son "OK" If InStr(modem$, "OK") Then 'Podemos indicar al usuario que descuelgue el teléfono MsgBox "Descuelge su teléfono y pulse 'Aceptar' para cerrar" _ + " el módem. Podrá continuar la llamada en su teléfono." _ + Chr(13) + Chr(13) + "Recuerde que si pulsa 'Aceptar' " _ + "sin descolgar su teléfono se cortará la llamada.", _ vbInformation + vbOKOnly Exit Do End If End If Loop 'Desconectamos el módem, para ello enviamos el comando "ATH" objComunicar.Output = "ATH" + Chr$(13) 'Cerramos el puerto objComunicar.PortOpen = False MousePointer = 0 cSalir: Exit Sub cError: MsgBox "Error en la marcación del número de teléfono: " & _ Err.Number & " - " & Err.Description, vbExclamation GoTo cSalir End Sub
Private Sub cmdColgar_Click() On Error GoTo cError 'Desconectamos el módem, para ello enviamos el comando "ATH" objComunicar.Output = "ATH" + Chr$(13) cSalir: Exit Sub cError: MsgBox "Error en la marcación del número de teléfono: " & _ Err.Number & " - " & Err.Description, vbExclamation GoTo cSalir End Sub
Private Sub cmdMarcar_Click() marcarNumeroTelefono txtNum.Text End Sub
el problema que tengo, es: ¿Como le hago para que al momento de marcar tome en cuenta las reglas de marcado que estan definidas en el panel de control de windows?
|
|
|
8
|
Programación / Programación Visual Basic / permisos de archivo
|
en: 14 Agosto 2007, 15:04 pm
|
Buenos días, alguien sabra como establecer permisos a un archivo, es decir lo que intento hacer es ponerle permisos a varios usuarios sobre un archivo, algo como esto archivo.txt y que tenga: usuario1 -> leer usuario2 -> leer, Modificar usuario3 -> leer, Modificar, Borrar usuario4 -> Control total se que con el "SetAttr" pongo estos atributos, pero la duda es ¿¿¿como le hago para definirselos a cada usuario????
|
|
|
10
|
Programación / Programación Visual Basic / Copiar imagen en portapapeles
|
en: 11 Diciembre 2006, 22:52 pm
|
buenas tardes, estoy haciendo un programa y necesito copiar una imagen desde una aplicación X a un picturebox, lo que trato de hacer es copiar la imagen en el portapales de windows y luego ponerla en mi picture, he estado buscando y me encontre con esto: Private Const CF_TEXT = 1 Private Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long Private Declare Function CloseClipboard Lib "user32" () As Long Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Long) As Long Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc As Long, ByVal ByteLen As Long) Private Sub Form_Load() 'KPD-Team 2001 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net Dim hStrPtr As Long, lLength As Long, sBuffer As String OpenClipboard Me.hwnd hStrPtr = GetClipboardData(CF_TEXT) If hStrPtr <> 0 Then lLength = lstrlen(hStrPtr) If lLength > 0 Then sBuffer = Space$(lLength) CopyMemory ByVal sBuffer, ByVal hStrPtr, lLength MsgBox sBuffer, vbInformation End If End If CloseClipboard End Sub
pero este código solo pega texto y no se como hacerle para pegar una imagen, si alguien me puede echar una mano se los agradecería
|
|
|
|
|
|
|