• Error: Unresolved external '_SSL_get_error' referenced from ...\TIP

    From =?UTF-8?Q?F=C3=A1bio_Oliveira?=@21:1/5 to All on Mon Aug 9 08:03:50 2021
    Em segunda-feira, 19 de outubro de 2020 às 02:11:38 UTC-3, Jmar escreveu:
    Hello, thanks for your help, to build the libraries I have used these commands:

    implib -a libssl.lib libssl-1_1.dll
    implib -a libcrypto.lib libcrypto-1_1.dll

    I have published the files here:


    Thank you


    I have the same problem on Borland C++ 6. Can you share how you solved it?

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Jmar@21:1/5 to All on Tue Aug 10 10:00:29 2021
    I spent a lot of time but I couldn't fix it using the TIP librarie
    I finally implemented it using the object MSXML2.ServerXMLHTTP.6.0

    I attach an example that works correctly (the password is not valid but you will see that the web service responds)


    José Manuel Rodríguez

    // ======================================================================= FUNCTION WSPreregistroEnvios()

    Local oHttp
    Local cLocation := "https://preregistroenviospre.correos.es/preregistroenvios"
    Local cUser := "wusutest:password"
    Local cAuthorization := hb_base64( cUser, Len( cUser ) )
    Local cXml := MemoRead( "./ValidarDatos.xml" )

    LOCAL cResponse

    oHttp := CreateObject( "MSXML2.ServerXMLHTTP.6.0" )
    msginfo( "Error de creacion" )

    oHttp:Open( "POST", cLocation, .F. )
    oHttp:SetRequestHeader( "Content-Type", "application/soap+xml" )
    oHttp:SetRequestHeader( "Authorization", "Basic " + cAuthorization )
    oHttp:setRequestHeader( "User-Agent", "EjecutandoWS" )

    oHttp:Send( cXml )
    cResponse := oHttp:ResponseText

    msginfo( cResponse )

    msginfo( Hb_ATokens( oHttp:getAllResponseHeaders(), CRLF ) )

    return nil

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