THTTPRIO 验证问题

[越敲越菜]

我使用C# 填写了提供的 用户名密码和域 能请求成功

string userName = "123";
            string paw = "123";

            WST ws = new WST();
      
            ws.Credentials = new NetworkCredential(userName, paw, "aaa");

            string resp =ws.WSTEST("321");

使用delphi 调用时 只有设置用户名密码的地方

function GetWST_Port(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): WST_Port;
const
    defWSDL = '';
    defURL = '';
    defSvc = 'WST';
    defPrt = 'WST_Port';
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 WST_Port);
        if UseWSDL then
        begin
            RIO.WSDLLocation := Addr;
            RIO.Service := defSvc;
            RIO.Port := defPrt;
            RIO.HTTPWebNode.UserName := '123';
            RIO.HTTPWebNode.Password := '123';
         
        end
        else
            RIO.URL := Addr;
    finally
        if (Result = nil) and (HTTPRIO = nil) then
            RIO.Free;
    end;
end;

还有一个域的 参数怎么设置啊？

[天行归来]

用delphi向导，指定wsdl，就可以自动生成。向导生成的如下： 注：代码是调用公开天气服务WebService生成 http://www.webxml.com.cn/WebServices/WeatherWebService.asmx?wsdl url你可以调用的时候传入，也可以不传，在函数内部指定。

function GetWeatherWebServiceSoap(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): WeatherWebServiceSoap;
const
  defWSDL = 'http://www.webxml.com.cn/WebServices/WeatherWebService.asmx?wsdl';
  defURL  = 'http://www.webxml.com.cn/WebServices/WeatherWebService.asmx';
  defSvc  = 'WeatherWebService';
  defPrt  = 'WeatherWebServiceSoap';
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 WeatherWebServiceSoap);
    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;


initialization
  InvRegistry.RegisterInterface(TypeInfo(WeatherWebServiceSoap), 'http://WebXml.com.cn/', 'utf-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(WeatherWebServiceSoap), 'http://WebXml.com.cn/%operationName%');
  RemClassRegistry.RegisterXSInfo(TypeInfo(ArrayOfString), 'http://WebXml.com.cn/', 'ArrayOfString');
  RemClassRegistry.RegisterXSClass(getSupportDataSetResult, 'http://WebXml.com.cn/', 'getSupportDataSetResult');

[越敲越菜]

有大佬指点下吗？

[日立奔腾浪潮微软松下联想]

WST是啥？Windows Security Token？你要先搞清楚他的代码用了哪些库

[天行归来]

给你个通杀的解决办法，装个http抓包工具抓下可以正常请求的程序，然后看下报文，最后用 Idhttp 模拟就可以。

[日立奔腾浪潮微软松下联想]

如果他的环境是局域网内用windows域控制器管理用户权限的话，没有获得授权的用户就不能访问对应服务

[越敲越菜]

服务方取消了域的验证，delphi现在请求通了！！！！！对于这个域的验证还需要摸索下

[越敲越菜]

这个我知道，只是服务那边设置了用户名密码和域的验证，我只找到了设置用户名密码的设置，没有找到域的设置。用C#可以设置域能请求成功，用delphi就不行，缺少一个域的验证，一致提示401.

[大肚肥肥]

试试找Windows api 中的 域操作登录呢？

[越敲越菜]

            RIO.WSDLLocation := Addr;
            RIO.Service := defSvc;
            RIO.Port := defPrt;
            RIO.HTTPWebNode.UserName := '123';
            RIO.HTTPWebNode.Password := '123';
            RIO.HTTPWebNode.域 :='***';             //所有的验证都应该挂载在这个对象里吧？ 

不明白你说的去 Windows api 中什么对象和请求有关联

引用 4 楼 大肚肥肥 的回复:

试试找Windows api 中的 域操作登录呢？

[大肚肥肥]

https://www.javaroad.cn/questions/37882 这个有帮助没

[越敲越菜]

引用 6 楼 大肚肥肥 的回复:

https://www.javaroad.cn/questions/37882 这个有帮助没

看起来像是 RIO.HTTPWebNode.UserName := '域名\用户名'; 来设置，没有单独的域名设置。