L by WSD address to import the generated

 function Getmz (UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO) : mz; 
Const 
DefWSDL='https://yydcccf.cn/mz/eDownload.wsdl'. 
DefURL='http://yydcccf.cn:80/mz/eDownload'. 
DefSvc='Service'; 
DefPrt='Soap11'; 
Var 
RIO: THTTPRIO; 
The begin 
Result:=nil; 
If (Addr=' ') then 
The begin 
If UseWSDL then 
Addr:=defWSDL 
The else 
Addr:=defURL; 
end; 
If HTTPRIO=nil then 
RIO:=THTTPRIO. Create (nil) 
The else 
RIO:=HTTPRIO; 
Try 
Result:=(RIO as sxthd_dmz); 
If UseWSDL then 
The begin 
RIO. WSDLLocation:=Addr; 
RIO. Service:=defSvc; 
RIO. Port:=defPrt; 
End the else 
LTD URL:=Addr; 
The finally 
If (Result=nil) and (HTTPRIO=nil) then 
RIO. Free; 
end; 
end; 

 
Mz1:=eDownload Getmz (True, "', HTTPRIO1); 
_echoResponse:=mz1. Echo (_echoRequest); 

The program prompts the error


Prompt document end ahead of time, this is how to return a responsibility? Beginners don't spray
the master

In addition this address is HTTPS, certificate of THTTPRIO if not set, the is the problem,
How do other THTTPRIO set to visit HTTPS web service interface?