Clarion - Extraer datos web

 
Vista:
sin imagen de perfil
Val: 23
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Extraer datos web

Publicado por Manuel (12 intervenciones) el 12/12/2021 17:33:36
Buenas tardes! Saludos y bendiciones, necesito de su ayuda. Necesito extraer cierta información de varias páginas web y llevarlas a mi aplicación! Alguien me puede ayudar? Voy a usar Clarion 10!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Extraer datos web

Publicado por VICTOR DAVID MONTANEZ CHAVEZ (39 intervenciones) el 21/12/2021 03:15:00
Pudieras hacer un get de la pagina con algun template como libcurl https://github.com/mikeduglas/libcurl y despues parsear el archivo obtenido que seria el html de la pagina

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 403
Oro
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Extraer datos web

Publicado por Marcelo Madelón (341 intervenciones) el 21/12/2021 13:48:31
Abrir una pagina WEB con ShellExecute

En el embed
LOC:Handle = 0{PROP:Handle}
LOC:Op = 'Open'
LOC:File = 'http://www.evolutionconsulting.com.ar'
LOC:Path = ' '
LOC:Param = ' '
LOC:Show = 1
LOC:RetHandle = ShellExecute(LOC:Handle,LOC:Op,LOC:File,LOC:Param,LOC:Path,LOC:Show)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 403
Oro
Ha mantenido su posición en Clarion (en relación al último mes)
Gráfica de Clarion

Extraer datos web

Publicado por Marcelo Madelón (341 intervenciones) el 06/03/2022 16:33:47
Por si no lo pudiste hacer funcionar acá te paso el código más explicado y sirve para consultar el cuit en afip

!En Global-embed 'Inside the Global Map':

Module('Win32.lib')
ShellExecute(Long,*CString,*CString,*CString,*CString,Short),UShort,PASCAL,RAW,NAME('ShellExecuteA')
END

!En Local Data

LOC:Handle LONG
LOC:Op CSTRING (255)
LOC:File CSTRING (255)
LOC:Path CSTRING (255)
LOC:Param CSTRING (255)
LOC:Show LONG
LOC:RetHandle LONG


! En el embeds, el el del campo cuit o un botón
! LOC:Cuit es el campo o variable que almacena el numero de cuit sin espacios

LOC:Handle = 0{PROP:Handle}
LOC:Op = 'Open'
LOC:File = 'https://www.cuitonline.com/search.php?q=' & LOC:Cuit &'/'
LOC:Path = ' '
LOC:Param = ' '
LOC:Show = 1
LOC:RetHandle = ShellExecute(LOC:Handle,LOC:Op,LOC:File,LOC:Param,LOC:Path,LOC:Show)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar