lo hice así, pero no me funcionó. (Claro copie la librería). ¿Que le falta? me muestra .F.
SET LIBRARY TO (LOCFILE("vfpconnection.fll","FLL")) ADDITIVE
informacion = HTTPGet("http://www.cne.gob.ve/web/registro_electoral/ce.php?nacionalidad=V&cedula=22646822", "C:\Destination.htm", "MyProgress()", "MyTrace()")WAIT WINDOW informacion AT 15,15
Hola Eliades.
SET CLASSLIB TO clases\wwIPSTUFF &&ADDITIVE
SET PROCEDURE TO clases\wwUtils && ADDITIVE
Luego donde vallas hacer el llamado de la función.
o=CREATEOBJECT("wwIPStuff")
nacionalidad = "V"
cedula = "22646822"
filedevueto= o.HTTPGet(http://www.cne.gob.ve/web/registro_electoral/ce.php?nacionalidad="+nacionalidad+"&cedula="+cedula)
el la varieble filedevuelto tienes toda la información que arroja el CNE
allí puedes extraer el dato que necesites.
Te adjunto la funcion
Amigo Jean Pierre.
Elides Paredes
Eso era.. Le cambié la carpeta destino y lo hace perfectamente... Gracias de nuevo.. a todos..
De nuevo gracias por tu tiempo.Elides Paredes
Eso era.. Le cambié la carpeta destino y lo hace perfectamente... Gracias de nuevo.. a todos..
Hola Eliades.
getcedula(cedula, @xcedverifica, @xnombre)
Gracias amigos. Jean Pierre y Normandía.
Amigo Normandía..
Saludos
Hola Eliades
vinicio = AT("Cédula:", filedevuelto) este string "Cédula:" lo devuelve tal cual la pagina del CNE no puedes cambiar ningún carácter.
te adjunto la clase el dll y el prg que hacen funcionar a la función
Créate una carpeta y descompacta y ejecuta el Programa BuscarCedula (Do buscarcedula)
el adjunto se llama buscarCI.ponerZIP renombras este archivo a buscarCI.zip y lo descompactas
Avisame como te fue.....
Elides Paredes.
Amigo Jorge..
Saludos!