Tip Client = Harbour / MSVC 2015 Error

[TimStone]

I use Tip to pass and retrieve information from a resource. Here is a sample.

Code: Select all  Expand view

FUNCTION Test
    Local oHttp:=TIpClientHttp():new("https://www.testsource.com/1", .F. ) 
    Local cXml := '<request>'+hB_osnewline()+;
      ' <newdata>' + cData ;
          ' </request>'+hB_osnewline()
    Local cRet
    LOCAL oXmlDoc := TXmlDocument():new(  )
    LOCAL oXmlNode, oXmlRecScan, oXmlFieldScan
   
        iDLL := LoadLibrary( "wininet.dll" )   
   
        IF .NOT. oHttp:open()
       MsgAlert( "Connection error:", oHttp:lastErrorMessage( ) )
       RETURN
        ENDIF
   
    oHttp:Post( cXml)
    cRet :=  oHttp:readAll( )
    oHttp:close()
   
RETURN NIL
 

When using xBuild ( xHarbour ) this is working fine. The problem is with FWH 16.03, Harbour ( built for that FWH version ), and MSVC++ 2015. I get the following error:

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

The last two calls are from httpcli and client .prg's which are located in the tip libraries.

Called from: client.prg => TIPCLIENT:NEW( 225 )
Called from: httpcli.prg => TIPCLIENTHTTP:NEW( 96 )

There is no client.prg in my code so no possibility of it being misdirected. I'm thinking there is a library that is not being added to the build. As I said, it works fine with xHarbour, but we want to get it working with Harbour and MSVC 2015.

Your ideas about what I can do to resolve this error are greatly appreciated.

Tim

[Antonio Linares]

Tim,

Please copy here the complete calls stack from the error.log file

[TimStone]

Antonio,

I cut down the actual code for the example I posted ( changed the length of the xml string and the actual addresses of the website ) but otherwise it is the same.

Tim

Code: Select all  Expand view

Application
===========
   Path and name: C:\ASW10c\asw2016.exe (32 bits)
   Size: ********* bytes
   Compiler version: Harbour 3.2.0dev (r1603082110)
   FiveWin  Version: FWH 16.02
   Windows version: 6.2, Build 9200

   Time from start: 0 hours 0 mins 17 secs
   Error occurred at: 04/19/16, 17:40:21
   Error description: Error BASE/1081  Operation not supported: TIPCLIENTHTTP:new()
   Args:
     [   1] = O   TIPCLIENTHTTP
     [   2] = C   https

Stack Calls
===========
   Called from: client.prg => TIPCLIENT:NEW( 225 )
   Called from: httpcli.prg => TIPCLIENTHTTP:NEW( 96 )
   Called from: C:\Projects\MLS2015\Source\UtilCarFax.prg => EXCHLICVIN( 0 )
   Called from: C:\Projects\MLS2015\Source\VINDCD.PRG => CHECKVIN( 0 )
   Called from: C:\Projects\MLS2015\Source\mCustomer.prg => (b)TCLIENTSERVICE_FULLEDIT( 0 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 650 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 884 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1766 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3278 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 293 )
   Called from: C:\Projects\MLS2015\Source\mCustomer.prg => TCLIENTSERVICE:FULLEDIT( 0 )
   Called from: C:\Projects\MLS2015\Source\asw2016.prg => (b)MAIN( 0 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 650 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 884 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1723 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1766 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3278 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1041 )
   Called from: C:\Projects\MLS2015\Source\asw2016.prg => MAIN( 0 )

System
======
   CPU type: Intel(R) Core(TM) i5-4460  CPU @ 3.20GHz -2147483648 Mhz
   Hardware memory: 12240 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 5
      1 ,                                                                                                    
      2 , C:\ASW10c\asw2016.exe                                                                              
      3 , C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.10586.0_none_d3c2e4e96
      4 DDE Server Window, C:\WINDOWS\SYSTEM32\ole32.dll                                                                      
      5 GDI+ Window, C:\WINDOWS\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.10586.20_none_22adb5eaa762c7fa

 

[Antonio Linares]

Tim,

Please post the code that you have here:

client.prg => TIPCLIENT:NEW( 225 )

[TimStone]

Antonio,

I do not have that code. It must be in one of the harbour libraries ( hbtip.lib, hbtipssl.lib or hbtipssl.lib ).

I do not have the sources for those but you do. You used them to build the .libs with msvc 32 and 64 bit

Tim

[TimStone]

Antonio,

I'm wondering if you used the correct source when building those libraries.

I downloaded what appears to be the most recent source and the line numbers do not match up.

Also, I'm wondering if I am linking the right libs. We have options:

hbtip.lib
hbtipssl.lib
hbssl.lib

I linked hbtipssl.lib and hbssl.lib. However, in the contribs it appears to be using just hbtip.lib.

Tim

[Antonio Linares]

Tim,

Here it is the source code:
https://github.com/harbour/core/blob/master/contrib/hbtip/client.prg

https://github.com/harbour/core/blob/master/contrib/hbtip/httpcli.prg

Please post your code from:

Called from: client.prg => TIPCLIENT:NEW( 225 )
Called from: httpcli.prg => TIPCLIENTHTTP:NEW( 96 )
Called from: C:\Projects\MLS2015\Source\UtilCarFax.prg => EXCHLICVIN( 0 ) <== here

[TimStone]

If you look at what I posted originally it is all there. I call TipClientHttp. It is a subclass of the client program used in the same library. The source shows a new method for tipclienthttp but the error system reports it doesnt exist. Thats where I am confused. Look at the top of the function I posted. The code has worked fine previously but with the newer libs we have the problem. It still works fine with xharbour.

This is the line that has the error in my code, but only when using Harbour / MSVC:

Local oHttp:=TIpClientHttp():new("https://www.testsource.com/1", .F. )

If you look at the code, if super:new() references the client.prg file, why does the error system return that super:new( ) does not exist ? I still wonder if the builds you did for hbtipssl.lib and hbtip.lib are correct. I asked for help on the Harbour forum and they say we must link hbtipssl.lib first, then hbtip.lib. I've done that, and still get the error I posted in the original message.

This is an extremely critical capability, not only for me, but anyone who interacts with a website to exchange data. I don't know of another way to do this. So far, with all of my testing and construction, using 16.03 with the latest MS build of Harbour that you provided, and MSVC++ 2015, I've got no other problems in this extremely large application.

So, I really appreciate getting a handle on this.

Tim

Sent from my iPhone using Tapatalk

[Antonio Linares]

Tim,

The error comes from here:

METHOD New( oUrl, xTrace, oCredentials ) CLASS TIPClient

LOCAL oErr
LOCAL oLog
LOCAL lSSL

IF HB_ISSTRING( xTrace ) .OR. hb_defaultValue( xTrace, .F. )
oLog := TIPLog():New( iif( HB_ISSTRING( xTrace ), xTrace, NIL ) )
::bTrace := {| cMsg | iif( PCount() > 0, oLog:Add( cMsg ), oLog:Close() ) }
ELSEIF HB_ISEVALITEM( xTrace )
::bTrace := xTrace
ENDIF

IF HB_ISSTRING( oUrl )
oUrl := TUrl():New( oUrl )
ENDIF

SWITCH oURL:cProto
CASE "ftp"
CASE "http"
CASE "pop"
CASE "smtp"
lSSL := .F.
EXIT
CASE "ftps"
CASE "https"
CASE "pop3s"
CASE "pops"
CASE "smtps"
IF ::lHasSSL
lSSL := .T.
EXIT
ENDIF
OTHERWISE
oErr := ErrorNew()
oErr:Args := { Self, oURL:cProto }
oErr:CanDefault := .F.
oErr:CanRetry := .F.
oErr:CanSubstitute := .T.
oErr:Description := "unsupported protocol"
oErr:GenCode := EG_UNSUPPORTED
oErr:Operation := ::className() + ":new()"
oErr:Severity := ES_ERROR
oErr:SubCode := 1081
oErr:SubSystem := "BASE"
Eval( ErrorBlock(), oErr )
ENDSWITCH

You have to compile client.prg and link it with your PRGs and trace it and check what you get at oURL:cProto

[TimStone]

Antonio,

Actually the error comes from here:

Code: Select all  Expand view

  LOCAL aProtoAccepted := { "ftp", "http", "pop", "smtp" }
#if defined( HB_HAS_OPENSSL )
   LOCAL aProtoAcceptedSSL := { "ftps", "https", "pop3s", "pop3", "smtps" }
#else
   LOCAL aProtoAcceptedSSL := {}
#endif

   IF ISCHARACTER( oUrl )
      oUrl := tUrl():New( oUrl )
   ENDIF

   IF AScan( aProtoAccepted   , {| tmp | tmp == oURL:cProto } ) == 0 .AND. ;
      AScan( aProtoAcceptedSSL, {| tmp | tmp == oURL:cProto } ) == 0

      oErr := ErrorNew()
      oErr:Args          := { Self, oURL:cProto }
      oErr:CanDefault    := .F.
      oErr:CanRetry      := .F.
      oErr:CanSubstitute := .T.
      oErr:Description   := "unsupported protocol"
      oErr:GenCode       := EG_UNSUPPORTED
      oErr:Operation     := ::className() + ":new()"
      oErr:Severity      := ES_ERROR
      oErr:SubCode       := 1081
      oErr:SubSystem     := "BASE"
      Eval( ErrorBlock(), oErr )
   ENDIF
 

The error log shows:

Error description: Error BASE/1081 Operation not supported: TIPCLIENTHTTP:new()
Args:
[ 1] = O TIPCLIENTHTTP
[ 2] = C https

Stack Calls
===========
Called from: client.prg => TIPCLIENT:NEW( 212 )
Called from: httpcli.prg => TIPCLIENTHTTP:NEW( 103 )

The referenced line ( 212 ) is the EVAL of the errorblock.
When doing an ASCAN it does not see the https argument.

Didn't we have an ASCAN implementation issue with newer versions of Harbour ?

Tim

[Antonio Linares]

My guess is that you need to check oURL:cProto

[Antonio Linares]

Are you using OpenSSL ?

#if defined( HB_HAS_OPENSSL )

[TimStone]

Or, here is a different angle:

Can you recheck your build of the hbtipssl ? One of the Harbour posters said I have to link that in first, which I am doing. I have a feeling that is where HB_HAS_OPENSSL is determined. If you look at the code, https is only seen if HB_HAS_OPENSSL is .t.

You built the hbtipssl.lib after the other builds. Perhaps it was incomplete ?

Tim

[Antonio Linares]

Tim,

This is the batch file that I am using to build it. I have added the define -DHB_HAS_OPENSSL when compiling the PRGs too.

You can download the files from https://github.com/harbour/core/blob/master/contrib/hbtip and build it yourself.

Alternatively you can download it from here:
https://bitbucket.org/fivetech/harbour-xharbour-builds/downloads/harbour_hbtip_32bits_vsc2015_20160422.zip

go.bat

Code: Select all  Expand view

@set oldpath=%path%
@set oldinclude=%include%
@set oldlib=%lib%
@set oldlibpath=%libpath%
if exist "%ProgramFiles%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" call "%ProgramFiles%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat"
if exist "%ProgramFiles(x86)%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" call "%ProgramFiles(x86)%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat"
rem if exist "%ProgramFiles%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" call "%ProgramFiles%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" x86_amd64
rem if exist "%ProgramFiles(x86)%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" call "%ProgramFiles(x86)%\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" x86_amd64

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL cgi.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ cgi.c -DHB_HAS_OPENSSL

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL client.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ client.c -DHB_HAS_OPENSSL

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL credent.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ credent.c -DHB_HAS_OPENSSL

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL encb64.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ encb64.c -DHB_HAS_OPENSSL

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL encoder.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ encoder.c -DHB_HAS_OPENSSL

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL encqp.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ encqp.c -DHB_HAS_OPENSSL

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL encurl.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ encurl.c -DHB_HAS_OPENSSL

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL ftpcli.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ ftpcli.c -DHB_HAS_OPENSSL

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL httpcli.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ httpcli.c -DHB_HAS_OPENSSL

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL log.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ log.c -DHB_HAS_OPENSSL

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL mail.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ mail.c -DHB_HAS_OPENSSL

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL popcli.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ popcli.c -DHB_HAS_OPENSSL

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL sendmail.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ sendmail.c -DHB_HAS_OPENSSL

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL sessid.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ sessid.c -DHB_HAS_OPENSSL

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL smtpcli.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ smtpcli.c -DHB_HAS_OPENSSL

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL thtml.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ thtml.c -DHB_HAS_OPENSSL

c:\harbour\bin\harbour -n -Ic:\harbour\include -DHB_HAS_OPENSSL url.prg
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ url.c -DHB_HAS_OPENSSL

cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ encurlc.c -DHB_HAS_OPENSSL
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ mime.c -DHB_HAS_OPENSSL
cl -TC -W3 -O2 -c -Ic:\harbour\include -Ic:\ misc.c -DHB_HAS_OPENSSL

Lib /DEF:hbtipssl.def /OUT:hbtipssl.lib /MACHINE:x86
rem Lib /DEF:hbtipssl.def /OUT:hbtipssl.lib /MACHINE:x64

Lib hbtipssl.lib /OUT:hbtipssl.lib encurlc.obj mime.obj misc.obj cgi.obj client.obj credent.obj encb64.obj encoder.obj encqp.obj encurl.obj ftpcli.obj httpcli.obj log.obj mail.obj popcli.obj sendmail.obj sessid.obj smtpcli.obj thtml.obj url.obj

@set path=%oldpath%
@set include=%oldinclude%
@set lib=%oldlib%
@set libpath=%oldlibpath%
@set oldpath=""
@set oldinclude=""
@set oldlib=
@set oldlibpath=

[TimStone]

Antonio,

I don't have the setup for building Harbour libs ... always relied on what you supplied. So I'm certainly no expert on this.

However, it appears to me you are missing a key component in hbtipssl.lib. Please look at the build files for it in the Contrib folder:

hbtipssl.hbp
#
# $Id: hbtipssl.hbp 15168 2010-07-23 11:08:33Z vszakats $
#
hbtip.hbm
../hbssl/hbssl.hbc
-DHB_HAS_OPENSSL

and hbtipssl.hbc
#
# $Id: hbtipssl.hbc 16259 2011-02-09 15:58:45Z vszakats $
#
incpaths=.
libs=${_HB_DYNPREF}${hb_name}${_HB_DYNSUFF}
libs=../hbssl/hbssl.hbc

From the Go.bat you sent, it would appear you are missing the link to hbssl.hbc and it's related elements. That would explain why this lib doesn't work ...

I just don't know how to modify the go.bat to make it right ...

Tim