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:

https://drive.google.com/drive/folders/1l4GdE4ASpOGPONh3GOYDNM3hkj5XtSc_?usp=sharing

Thank you

JM

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)

Hello,
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)

regards

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

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

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)