Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-11-2016
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 225
Poder: 14
darkamerico Va por buen camino
Enviar variables a una pagina y recoger los resultados

Saludos amigos, existe una aplicacion en excel que realiza la consulta del nombre de una persona ingresando su numero de DNI (Documento Nacional de Identidad en Peru), esta muy interesante la posibilidad de integrar esta funcionalidad en Delphi. La macro del archivo excel no tiene clave, pueden descargarlo desde aqui: http://www.mediafire.com/file/esvqqm...ro-simple.xlsm.

Agradecería mucho las sugerencias.


Atte.

Americo
Responder Con Cita
  #2  
Antiguo 07-11-2016
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Lo normal sería, que ya que tienes acceso a la macro, la coloques aquí.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #3  
Antiguo 07-11-2016
darkamerico darkamerico is offline
Miembro
 
Registrado: dic 2010
Posts: 225
Poder: 14
darkamerico Va por buen camino
Red face Gracias por la Observacion

Cita:
Empezado por Neftali Ver Mensaje
Lo normal sería, que ya que tienes acceso a la macro, la coloques aquí.
Código:
Option Private Module
Option Explicit

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Autor: Gustavo Adolfo Sebastiani Cépeda
' Email: Gustavo@excelnegocios.com
' Web: www.excelnegocios.com
' Si tomas parte de este código o lo utilizas, por favor no olvides colocar la fuente.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Sub ConsultaDNI()
'Esto es para controlar los errores
On Error Resume Next

'declaramos las variables a utilizar
Dim IE As Object
Dim Nombres, consulta As Object
Dim Rpta As String
Dim Dni As String

'Esto es para evitar que aparescan alerta de mensajes
With Application
.DisplayAlerts = False
End With


'limpiamos el campo donde se obtendrán los nombres antes de empezar
Range("d7:g8").ClearContents

'Celda que contendrá el n° de DNI | le damos formato de 8 digitos
Dni = Format(Range("E5").Text, "00000000")

'evitamos que el dni contenga letras
If Not IsNumeric(Dni) Then
MsgBox "Solo se permite el ingreso de valores numéricos", vbCritical, "ERROR"
Exit Sub
End If


'Este es un mensaje en la barra de estado que indica que se está realizando la consulta.
Application.StatusBar = "Consultando ... "

'creamos el objeto para realizar la conexión a internet
Set IE = CreateObject("InternetExplorer.Application")

'Navegamos en la web
IE.Navigate "http://votoinformado.pe/voto/miembro_mesa.aspx"

'Creamos un bucle para esperar que la web cargue por completo.
Do Until IE.ReadyState = READYSTATE_COMPLETE
        DoEvents
        Loop
        
'Desde Excel enviamos el número de RUC
IE.Document.all.Item("txtCongrDNI").Value = Dni

'Hacemos clic en el boton consultar
Set consulta = IE.Document.getElementbyId("btnCongrDNI")
consulta.Click

'Volvemos a esperar que la web cargue por completo
 Do Until IE.ReadyState = READYSTATE_COMPLETE
        DoEvents
        Loop
        
  
'Esperamos unos segundos para evitar que el servidor nos cancele.
Application.Wait (Now + TimeValue("0:00:03"))

''Extraemos el nombre del DNI consultado
Set Nombres = IE.Document.getElementbyId("lblNombres")
Rpta = Nombres.InnerText
'
'Si el valor consultado es vacío entonces alertamos con este aviso, caso contrario obtenemos el nombre de la persona.
If Rpta = "" Then
Range("D7").Value = "El DNI ingresado no existe ó no se realizó la consulta."
Else
Range("D7").Value = Rpta
End If
      
      

'Para que la consulta en la web no se vea, el valor debe ser Falso
IE.Visible = False
'
''Cerramos la conexión
IE.Quit

'Con esto limpiamos la variable.
Set IE = Nothing

'Regresamos a la normalidad
With Application
.DisplayAlerts = True
End With

'Con este mensaje indicamos que la consulta fue realizada.
Application.StatusBar = "Consulta realizada."

End Sub
Responder Con Cita
  #4  
Antiguo 08-11-2016
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.233
Poder: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Mejor.
Bueno, pues ahí ya tienes la web. Si te fijas en el código, puedes ver este enlace:
http://votoinformado.pe/voto/miembro_mesa.aspx

Si por ejemplo, en esa web introduces el DNI: 23232323
Obtendrás datos de un usuario.

Utilizando las Indy, deberías poder realizar la petición a esa web, para obtener resultados.

Revisa los siguientes hilos:
https://www.clubdelphi.com/foros/showthread.php?t=87576
https://www.clubdelphi.com/foros/showthread.php?t=79369
https://www.clubdelphi.com/foros/showthread.php?t=58841

(si buscas encontrarás más...)
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como enviar variables FormField en un http.Post darkamerico Internet 2 25-04-2016 08:53:38
??enviar variables de consulta de un query a reporte lazreport?? jasmad Lazarus, FreePascal, Kylix, etc. 2 27-10-2011 21:22:22
Enviar datos o variables a word , desde memo o un reporte ingabraham Impresión 1 08-10-2008 19:37:24
Enviar variables Y guardarlas en MYSQL maravert Internet 5 18-02-2008 10:27:39
Enviar variables a otros sistemas?!?! sergio_015 OOP 2 02-08-2003 17:18:34


La franja horaria es GMT +2. Ahora son las 03:01:53.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi