CreateObject problem

[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  RUN

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

 

[cnavarro]

Dear Richard, this url is correct?

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

[richard-service]

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:

Error description: Error MSSOAP.SoapClient30/3 DISP_E_MEMBERNOTFOUND: MSSOAPINIT
Args:
[ 1] = C https://medcloudws.nhi.gov.tw:7008/imie ... IMI01.asmx
Stack Calls
===========
Called from: => TOLEAUTO:MSSOAPINIT( 0 )
Called from: D:\FWH1805\SAMPLES\TEST1.prg => MAIN( 5 )

Code: Select all  Expand view  RUN

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
 

[karinha]

https://www.nhi.gov.tw/english/Content_List.aspx

[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.