Page 1 of 1

CreateObject problem

PostPosted: Sun Aug 12, 2018 2:59 pm
by richard-service
Hi
How to fix this problem?

Error description: Error TOleAuto/65535 : TOLEAUTO:NEW
Args:
[ 1] = C MSSOAP.SoapClient30

Stack Calls
===========
Called from: => THROW( 0 )
Called from: source\rtl\win32ole.prg => TOLEAUTO:NEW( 0 )
Called from: source\rtl\win32ole.prg => CREATEOBJECT( 0 )

Code: Select all  Expand view

FUNCTION testurl()

LOCAL cJson:='{"sHospID":"1536151042","sHcaID":"D101460924","sPatID":"B120506881","sub":[{"sType":"0","sub":[{"sOrder":"C09DX03"},{"sOrder":"G04CA03"}]}]}'
local cUrl:="ttps://medcloudws.nhi.gov.tw:7008/imie0000/NHIIMI01.asmx"
      oSoapClient:=CreateObject( "MSSOAP.SoapClient30" )
      oSoapclient:MsSoapInit(cUrl)
      oSoapclient:GetMedPrtData(cjson)
RETURN Nil

 

Re: CreateObject problem

PostPosted: Sun Aug 12, 2018 4:50 pm
by cnavarro
Dear Richard, this url is correct?

local cUrl:="ttps://medcloudws.nhi.gov.tw:7008/imie0000/NHIIMI01.asmx"

Re: CreateObject problem

PostPosted: Mon Aug 13, 2018 3:04 am
by richard-service
cnavarro wrote:Dear Richard, this url is correct?

local cUrl:="ttps://medcloudws.nhi.gov.tw:7008/imie0000/NHIIMI01.asmx"



Dear Cnavarro,

I fix it and got error message below:


Code: Select all  Expand view

LOCAL cJson:='{"sHospID":"1536151042","sHcaID":"D101460924","sPatID":"B120506881","sub":[{"sType":"0","sub":[{"sOrder":"C09DX03"},{"sOrder":"G04CA03"}]}]}'
local cUrl:="https://medcloudws.nhi.gov.tw:7008/imie0000/NHIIMI01.asmx"
      oSoapClient:=CreateObject( "MSSOAP.SoapClient30" )
      oSoapclient:MsSoapInit(cUrl)
      oSoapclient:GetMedPrtData(cjson)
RETURN Nil
 

Re: CreateObject problem

PostPosted: Mon Aug 13, 2018 3:34 pm
by karinha

Re: CreateObject problem

PostPosted: Wed Aug 15, 2018 3:16 am
by richard-service
Hi
Today, I use Harbour to compile it and got error message below:

    Compiler version: Harbour 3.2.0dev (r1801051438)
    FiveWin version: FWH 18.05
    C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
    Windows version: 6.1, Build 7601 Service Pack 1

    Error occurred at: 08/15/18, 11:10:31
    Error description: (DOS Error -2147352567) WINOLE/1007 WSDLReader:XML Parser failed at linenumber 61, lineposition 19, reason is: The name in the end tag of the element must match the element type in the start tag.
    HRESULT=0x1: 功能錯誤。
    - WSDLReader:Loading of the WSDL file failed HRESULT=0x80070057: 參數錯誤。
    - Client:One of the parameters supplied is invalid. HRESULT=0x80070057: 參數錯誤。
    (0x80020009): WSDLReader
    Args:
    [ 1] = C https://medcloudws.nhi.gov.tw:7008/imie ... IMI01.asmx

    Stack Calls
    ===========
    Called from: => TOLEAUTO:MSSOAPINIT( 0 )
    Called from: TEST1.prg => MAIN( 5 )

Any good solution for welcome.