Em segunda-feira, 1 de abril de 2019 às 20:08:39 UTC-3, Fred Killet escreveu:

Thank you all for your help!
Kind regards, Fred

Hi everyone...

My conttrib using winHttp library from Wolfgang.

LOCAL oHttp as winHttp

cServerName := "ef49-177-47-50-94.ngrok.io"
cURL := "/hook/"
cJSONstring := [{"name":"] +self:oDCmPaciente:Caption+["}]

oHttp := winHttp{}
oHttp:UseSSL := true
cResult := oHttp:PostURL(cServerName,cURL,cJSONstring,INTERNET_DEFAULT_HTTPS_PORT)

RETURN self

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)

Em terça-feira, 26 de março de 2019 às 07:55:56 UTC-3, Wolfgang Riedmann escreveu:

Hi Norbert,

I have interest on your winHTTP class. Can you share it to me?

please find it here:

https://www.riedmann.it/download/winHttp.zip

This library is using external modules as most of my libraries that are shared between different VO projects.

Wolfgang

P.S. other VO sources downloads are on the same page: https://www.riedmann.it/verschiedenes_cavo.php

Norbert

Am 25.03.2019 um 10:07 schrieb Wolfgang Riedmann:

Hi Fred,

I had used that code really for a long time, but since it uses
WinINet, and Microsoft does not supports it anymore, I use winHttp
now instead.

https://msdn.microsoft.com/en-us/library/windows/desktop/aa384270%28 v=vs .85%29.aspx

https://msdn.microsoft.com/en-us/library/aa384270%28VS.85%29.aspx#Po stin g_data_to_the_

If you need that code, I can share my winHttp class.

Wolfgang

--

An example of the use:

LOCAL oHttp as winHttp

cServerName := "ef49-777-37-51-94.ngrok.io"
cURL := "/hook/"
cJSONstring := [{"name":"] +self:oDCmName:Caption+["}]

oHttp := winHttp{}
oHttp:UseSSL := true
cResult := oHttp:PostURL(cServerName,cURL,cJSONstring,INTERNET_DEFAULT_HTTPS_PORT)

RETURN self

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)