FiveTech Support Forums

Objects of the TIpClientHttp() class inherit from the generic internet client class TIpClient(). TIpClientHttp objects are used to communicate with an HTTP server. They use the Hyper Text Transfer Protocol (HTTP, RFC2616.TXT) for exchanging data between a local and a remote station on the World Wide Web (WWW). The address of the HTTP server must be provided as a URL string with method :new(). The URL is maintained by a TUrl() object, which is stored in the Url instance variable.
The internet connection to the HTTP server must be established with the pen() method.
Once the internet connection is established (opened), data can be retrieved using the :readAll() method.
When all data is received, the internet connection must be closed with the :close() method.

There is a sample webclien.prg in FWH. Maybe it can help ...

Regards, Roman

I'm not looking for a different method. I guess I wasn't clear.

Harbour supports a TipClientHTTP( ) class. In my current application builds I've tried linking hbtipssl.lib but then I receive numerous missing externals. I've tried hbtip.lib and that has a similar result.

I would love to know:
1) what is included in hbtipssl.lib. This was suggested to me previously but perhaps for another purpose.
2) what libs from harbour do I need to use to run the TipClientHTTP( ).

Tim,

Please check that you are linking WS2_32.lib from MSVC

Antonio's suggestion worked to eliminate the build error.
Now I link in hbtip.lib and get a clean build.

However, the following line:

Local oHttp:=TIpClientHttp():new("https://website.com/", .F. )  // I left out the actual website ... its not important here

which works fine in xHarbour, generates the following error:

  Error description: Error BASE/1081  Operation not supported: TIPCLIENTHTTP:new()

The error is occurring when tipclienthttp calls the client class.

I examined the source code in both harbour and xharbour and they appear to be almost identical.

Any further suggestions would be greatly appreciated ( especially any comments on how the implementation differs between xHarbour ( .com version ) and Harbour ( the compiler I prefer to use ).

[> Error description: Error BASE/1081 Operation not supported:
> TIPCLIENTHTTP:new()
That error is generated around line 210 in contrib\hbtip\client.prg
(look it up and see what it does!) and is the result of tIPClient
realizing that you are trying to use a protocol (https) that is not
supported in your current configuration. You need to download OpenSSL
and rebuild hbtip with it. There are instructions for that in INSTALL.

Thanks ... I tried the libs. Apparently they need an additional lib to be linked in.

hbtip.lib(httpcli.obj) : error LNK2001: unresolved external symbol _HB_FUN_HB_BLEN
hbtip.lib(client.obj) : error LNK2001: unresolved external symbol _HB_FUN_HB_BLEN
hbtip.lib(log.obj) : error LNK2001: unresolved external symbol _HB_FUN_HB_BLEN
hbtip.lib(encqp.obj) : error LNK2001: unresolved external symbol _HB_FUN_HB_BLEN
hbtip.lib(httpcli.obj) : error LNK2001: unresolved external symbol _HB_FUN_HB_DEFAULT
hbtip.lib(client.obj) : error LNK2001: unresolved external symbol _HB_FUN_HB_DEFAULT
hbtip.lib(encoder.obj) : error LNK2001: unresolved external symbol _HB_FUN_HB_DEFAULT
hbtip.lib(encqp.obj) : error LNK2001: unresolved external symbol _HB_FUN_HB_BCHAR
hbtip.lib(encqp.obj) : error LNK2001: unresolved external symbol _HB_FUN_HB_BCODE
hbtip.lib(encqp.obj) : error LNK2001: unresolved external symbol _HB_FUN_HB_BSUBSTR

Thanks for the libraries. However, I still have the same issue.

1) If I only link hbtip.lib, I get a successful build, but the error I mentioned before that does not allow me to create a new tipclienthttp object

2) If I link in hbtipssl.lib or hbtipssl.lib and hbtip.lib, I get the following error in the build:

hbtipssl.lib(client.obj) : error LNK2001: unresolved external symbol _HB_FUN_SSL_CONNECT
hbtipssl.lib(client.obj) : error LNK2001: unresolved external symbol _HB_FUN_SSL_SET_FD
hbtipssl.lib(client.obj) : error LNK2001: unresolved external symbol _HB_FUN_SSL_SET_MODE
hbtipssl.lib(client.obj) : error LNK2001: unresolved external symbol _HB_FUN_ERR_ERROR_STRING
hbtipssl.lib(client.obj) : error LNK2001: unresolved external symbol _HB_FUN_SSL_GET_ERROR
hbtipssl.lib(client.obj) : error LNK2001: unresolved external symbol _HB_FUN_HB_SSL_READ_ALL
hbtipssl.lib(client.obj) : error LNK2001: unresolved external symbol _HB_FUN_HB_SSL_READ_LINE
hbtipssl.lib(client.obj) : error LNK2001: unresolved external symbol _HB_FUN_SSL_READ
hbtipssl.lib(client.obj) : error LNK2001: unresolved external symbol _HB_FUN_SSL_WRITE
hbtipssl.lib(client.obj) : error LNK2001: unresolved external symbol _HB_FUN_SSL_SHUTDOWN
hbtipssl.lib(client.obj) : error LNK2001: unresolved external symbol _HB_FUN_SSL_NEW
hbtipssl.lib(client.obj) : error LNK2001: unresolved external symbol _HB_FUN_SSL_CTX_NEW
hbtipssl.lib(client.obj) : error LNK2001: unresolved external symbol _HB_FUN_RAND_SEED
hbtipssl.lib(client.obj) : error LNK2001: unresolved external symbol _HB_FUN_SSL_INIT

These functions belong to openssl. You probably have to download and install openssl. I don´t know if you have to link a lib or use any dll. I remember I had a similar issue using ssl with smtp but I cant find the project I was working for.

OK so this one is beyond me. There are over 2400 files in the OPENSSL download ... and they are for a variety of OS's.

My task is simple. It works perfectly with xHarbour ( .com ) but fails with Harbour

Local oHttp:=TIpClientHttp():new("https://secured.server.com/document.cfx", .F. )   // Create the new object.   THIS IS WHERE IT FAILS
Local cXml :=  " "  // defined XML text to transfer
Local cRet
LOCAL oXmlDoc := TXmlDocument():new(  )
LOCAL oXmlNode, oXmlRecScan, oXmlFieldScan
LOCAL cYear := "", cMake := "", cModel := "", cVin := "",  cRetVin := "                   ", cMsg := "     "

IF .NOT. oHttp:open()    // Open the connection
     MsgAlert( "Connection error:", oHttp:lastErrorMessage( ) )
     RETURN
ENDIF

oHttp:Post( cXml)   // Send the text

cRet :=  oHttp:readAll( )  // Receive the response
oHttp:close()   // Close the connection

Is there an alternate way to do this within Harbour or Five Win ? Note the process:
1) Create the object
2) Create the XML statement
3) Open the connection
4) Send the XML statement
5) Receive the response
6) Close the connection

In such a massive application, this is the only thing not working now.

That is my exact problem. Clearly it is not able to create the new object.

Computers need to rattle our cages.