1. Forum
  2. Usenet
  3. COMP.LANG.CLIPPER.VISUAL-

  • Re: HTTP POST Method with Visual Objects

    From Heraldo Gama@21:1/5 to All on Thu Sep 30 11:55:18 2021
    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)
  • From HeG Ti@21:1/5 to All on Thu Sep 30 11:28:15 2021
    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)