Telegram y Vusla Foxpro

[Gregorio Nava]

Buenas tardes grupo, un cliente me esta pidiendo una aplicaion ue pueda leer y recibir mensajes desde un bot en telegram, he buscado en la ed pero no logro encontrar nada, .les escribo para ver si eso se puede hacer desde el zorro o si tienen alguna otra idea, de antemano muchas gracias

[Hugo Passalacqua]

Gregorio perdona las tardanza pero justamente estaba dedicado a desarrollar un Bot con la API de Telegrama.con VFP.

Revisa Esta página https://rubahmania.wordpress.com/2017/01/31/bot-telegram-dengan-foxpro/,

Puedes traducirla si usas Chrome o  el Nuevo Edge.,

Muhammad Arief te da un Ejemplo operacional en VFP.

Telegram realmente te entrega con su API todas las herramientas para hacer un Bot interactivo de calidad con Menú, Emojis y mucho más.

 

Saludos cordiales.

Hugo Passalacqua Restini

[Gregorio Nava]

Mucha gracias, ya lo habia bajado hace unos dias, me guie por ahi, ya logre desarrollar un pequeño programa que envia y recibe mensajes, pero no he podido es enviar archivos, revise la documentacion de laapi pero no he dado con eso

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/837d4a9a-b448-464d-937b-99a6213e872b%40googlegroups.com.

[Hugo Passalacqua]

Hola Gregario que bueno que estés avanzado, yo tampoco he logrado aun enviar imágenes o documentos usando la API de telegram pero si lo logré utilizando cURL  https://es.wikipedia.org/wiki/CURL

Prueba el siguiente código desde VFP

lnIdChat= Alltrim(Str(varChat.Message.From.Id)) && Id del destinatario, perteneciente al bot

lcInforme= "C:\tempo\"+"NombreArchivo.pdf"       &&Ubicación y nombre del archivo

cChat= 'curl --fail -F chat_id="'+lnIdChat+'" -F document=@"'+lcInforme+'" "https://api.telegram.org/botTOKENDELBOTDETELEGRAM/sendDocument" -X POST connect-timeout'

Run /N7 &cChat

Saludos

[Gregorio Nava]

que bien, muchas gracias por el aporte, ya lo probé y funciona

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/fcbb605a-2454-46ea-a38c-f81e21f2fc43%40googlegroups.com.

[Gregorio Nava]

Buen dia, compañero una consulta, soy nuevo usando en VFP es to de JSON, cuando estoy en el sistema esperando los mensajes y el internet se pone lento me aparece este mensaje (ver Imagen), como hago para evitar ese mensaje que me lo informe de otra manera, no se si me explico, gracias

[Edwin Duran]

saludos, usa    

TRY   

CATCH

ENDTRY  

ejemplo

  TRY     

    oHTTP = CREATEOBJECT('Msxml2.ServerXMLHTTP.6.0')

    oHTTP.OPEN("POST", pURL_WSDL, .F.)

    oHTTP.setRequestHeader("Content-Type", "text/xml; charset=utf-8")

    oHTTP.setRequestHeader("Content-Length",pLength)

    oHTTP.setRequestHeader("SOAPAction","http://dgii.gov.do/GetContribuyentes")

    oHTTP.SEND(pFileRequest)

   CATCH TO loErr

    this.sError = "Error: " + TRANSFORM(loErr.ErrorNo) +  " Mensaje: " + loErr.Message

    this.iStatus = -1    

   ENDTRY 

   IF this.iStatus != 0

    RETURN -1

   ENDIF 

El viernes, 1 de mayo de 2020, 10:48:44 (UTC-4), GregorioNava escribió:

Buen dia, compañero una consulta, soy nuevo usando en VFP es to de JSON, cuando estoy en el sistema esperando los mensajes y el internet se pone lento me aparece este mensaje (ver Imagen), como hago para evitar ese mensaje que me lo informe de otra manera, no se si me explico, gracias

El lun., 27 abr. 2020 a las 15:04, Gregorio Nava (<gregorio...@gmail.com>) escribió:

que bien, muchas gracias por el aporte, ya lo probé y funciona

El dom., 26 abr. 2020 a las 20:09, Hugo Passalacqua (<hpas...@gmail.com>) escribió:

Hola Gregario que bueno que estés avanzado, yo tampoco he logrado aun enviar imágenes o documentos usando la API de telegram pero si lo logré utilizando cURL  https://es.wikipedia.org/wiki/CURL

Prueba el siguiente código desde VFP

lnIdChat= Alltrim(Str(varChat.Message.From.Id)) && Id del destinatario, perteneciente al bot

lcInforme= "C:\tempo\"+"NombreArchivo.pdf"       &&Ubicación y nombre del archivo

cChat= 'curl --fail -F chat_id="'+lnIdChat+'" -F document=@"'+lcInforme+'" "https://api.telegram.org/botTOKENDELBOTDETELEGRAM/sendDocument" -X POST connect-timeout'

Run /N7 &cChat

Saludos

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publice...@googlegroups.com.

[Gabriel Araya Garcia]

Perdona la ignorancia, pero que es un BOT ?

Gabriel Araya Garcia

15.70

El lun., 20 abr. 2020 a las 13:44, Gregorio Nava (<gregorio...@gmail.com>) escribió:

Buenas tardes grupo, un cliente me esta pidiendo una aplicaion ue pueda leer y recibir mensajes desde un bot en telegram, he buscado en la ed pero no logro encontrar nada, .les escribo para ver si eso se puede hacer desde el zorro o si tienen alguna otra idea, de antemano muchas gracias

--

Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CANNws%2BQEJN2vuNWWRLgb6%2B14s4y6zM3RfbDcW9xJsiH_2iqv9w%40mail.gmail.com.

[Edwin Duran]

https://es.wikipedia.org/wiki/Telegram_Bot_API

https://www.youtube.com/watch?v=ZEL5ZcWeoXQ

El viernes, 1 de mayo de 2020, 17:27:28 (UTC-4), Gabriel Araya Garcia escribió:

Perdona la ignorancia, pero que es un BOT ?

Gabriel Araya Garcia

15.70

El lun., 20 abr. 2020 a las 13:44, Gregorio Nava (<gregorio...@gmail.com>) escribió:

Buenas tardes grupo, un cliente me esta pidiendo una aplicaion ue pueda leer y recibir mensajes desde un bot en telegram, he buscado en la ed pero no logro encontrar nada, .les escribo para ver si eso se puede hacer desde el zorro o si tienen alguna otra idea, de antemano muchas gracias

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.

Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publice...@googlegroups.com.

[Dsan]

Hola Gregorio..

A mi me enviaba el mismo mensaje de error,  lei un poco y solucioné instalando EASY FIX... de aca lo descargué...

https://support.microsoft.com/en-us/help/3140245/update-to-enable-tls-1-1-and-tls-1-2-as-default-secure-protocols-in-wi

Mi bot funcionando...

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CANNws%2BTtT2dSzB9wBjV35rJz-VfGkAgoJwBzSdvg9pKEWTfe8A%40mail.gmail.com.

[Gregorio Nava]

Que Bueno, gracias por el dato, ya lo descargo, mi solucion fue actualizar a Windows 10, lo que no he podido solucionar es el error cuando no hay acceso a internet, si me pudieras ayudar en ese, por favor

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CADC20DTEJ%2BA%3D%3DnS05BmGwUzK0kEy93h9bU_ie8epMGP2EyXgWg%40mail.gmail.com.

[Dsan]

Hola podes esar esta funcion esta publicada en el grupo, y verificas en el timer antes de ejecutar el api si no hay para que seguir...

************************************

* Saber si hay conexion a Internet *

************************************

FUNCTION conexion_internet

LOCAL imsg,iconf

DECLARE SHORT InternetGetConnectedState IN wininet.DLL INTEGER @lpdwFlags, INTEGER dwReserved

lconnect=displaystate()

IF lconnect && hay conexion con internet

RETURN .T.

ELSE

RETURN .F.

ENDIF

ENDFUNC

..

Saludes

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CANNws%2BTJACBGPekSs%2BvspoPMvW%3DTQ86wuVVYKZNPaXNqR54AHg%40mail.gmail.com.

[Gregorio Nava]

Okey, muchas gracias, voy a probar

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CADC20DQwAY0eNfzzNh4qr5c3dbYiGu9zQ%3DR5zeSLZA6TJnd_xQ%40mail.gmail.com.

[Gregorio Nava]

me arroja un error que dice file:displaystatte.prg does not exist

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CADC20DQwAY0eNfzzNh4qr5c3dbYiGu9zQ%3DR5zeSLZA6TJnd_xQ%40mail.gmail.com.

[James Suárez]

Hola sí deseas te hago el trabajo. No gratis porque lleva tiempo pero te puedo hacer un prg una clase donde puedas enviar y recibir 

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CANNws%2BSd7xf3mLEg6XcSuO_F%2BmwA9UmGxXc571fM9b7eLdUePQ%40mail.gmail.com.

[Dsan]

Si claro se me olvido ahi va completo.. seleccione mal al copiar

FUNCTION conexion_internet

LOCAL imsg,iconf

DECLARE SHORT InternetGetConnectedState IN wininet.DLL INTEGER @lpdwFlags, INTEGER dwReserved

lconnect=displaystate()

IF lconnect && hay conexion con internet

RETURN .T.

ELSE

RETURN .F.

ENDIF

ENDFUNC

PROCEDURE displaystate

LOCAL lconnected

lpdwflags = 0

IF internetgetconnectedstate (@lpdwflags, 0) = 1

lconnected = .T.

ENDIF

RETURN lconnected

ENDPROC  &&& FIN

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CANNws%2BRb6p201PphBvmt_S6_rkTDfOLUGegsddCcq36TL3NTZw%40mail.gmail.com.

[Alberto Garcia Cano]

Estimados amigos del grupo: Estoy intentando implementar un pequeño desarrollo que envíe un request a un BOT Telegram y que a su vez, el BOT reaccione al pedido respondiendo con un datagrama JSon en base a datos consultados a una BD MySQL. Hasta ahora llevo creado el BOT y le he agregado un COMMAND para poder llamar desde mi aplicación. Para probarlo, he realizado el llamado HTTPS desde un navegador Chrome y me responde con el siguiente datagrama: 

{"ok":false,"error_code":404,"description":"Not Found"} 

Asimismo, si llamo al command getUpdates obtengo el siguiente datagrama:

{"ok":false,"error_code":409,"description":"Conflict: can't use getUpdates method while webhook is active; use deleteWebhook to delete the webhook first"}

 
Debo agregar que ANTES de agregar mi COMMAND definido por usuario, el llamado a getUpdates me daba un datagrama distinto al que mencioné en el primer párrafo (empezando por que el atributo OK daba TRUE)

Me falta muy poco para poder encontrar el camino correcto, me ayudarían? Muchas gracias