1,593
社区成员




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;
begin
Result := nil;
if (Addr = '') then
begin
if UseWSDL then
Addr := defWSDL
else
Addr := defURL;
end;
if HTTPRIO = nil then
RIO := THTTPRIO.Create(nil)
else
RIO := HTTPRIO;
try
Result := (RIO as sxthd_dmz);
if UseWSDL then
begin
RIO.WSDLLocation := Addr;
RIO.Service := defSvc;
RIO.Port := defPrt;
end else
RIO.URL := Addr;
finally
if (Result = nil) and (HTTPRIO = nil) then
RIO.Free;
end;
end;
mz1:=eDownload.Getmz(True,'',HTTPRIO1);
_echoResponse:=mz1.echo(_echoRequest);
<env:Envelope xmlns:env="http://schemas.xmlsoap.org/soap/envelope/"><env:Header/><env:Body><env:Fault xmlns:ns0="http://schemas.xmlsoap.org/soap/envelope/"><faultcode>ns0:Server</faultcode><faultstring xml:lang="en">Premature end of file.</faultstring></env:Fault></env:Body></env:Envelope>
mz1:=eDownload.Getmz;
_echoResponse:=mz1.echo(_echoRequest);