Webservice unter bestimmen User ansprechen

[sisa2002]

Hallo,

ich versuche von einem WinXP Rechner einen auf einem Win Server 2008 R2 laufenden Webservice anzusprechen. Hierzu möchte ich einen bestimmten User der auf dem Server 2008 angelegt ist verwenden. Leider funktioniert das nicht. Ich füge euch mal meinen Code mit ein und hoffe das einer von euch dazu eine Lösung hat.

Delphi-Quellcode:

function GetMxfAnalyserWebServicePortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): MxfAnalyserWebServicePortType;
const
  defWSDL = 'http://172.30.168.22:8080/IRT-MxfAnalyserWebService/services/MxfAnalyserWebService?wsdl';
  defURL  = 'http://172.30.168.22:8080/IRT-MxfAnalyserWebService/services/MxfAnalyserWebService/';
  defSvc  = 'MxfAnalyserWebService';
  defPrt  = 'MxfAnalyserWebService';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
    begin
      Addr := defWSDL
    end
    else
      begin
      Addr := defURL;
      end;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as MxfAnalyserWebServicePortType);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
      RIO.HTTPWebNode.UserName:='User';
      RIO.HTTPWebNode.Password:='passwort';
    end else
      begin
      RIO.URL := Addr;
      RIO.HTTPWebNode.UserName:='User';
      RIO.HTTPWebNode.Password:='passwort';
      end;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;

Danke im vorraus !

[Bernhard Geyer]

Wirklich D5 wie im Profil hinterlegt?
Glaubt nicht das das diese Version schon (fehlerfrei) unterstützt.

[sisa2002]

Nein, ich mach das unter Delphi 2010. Sorry ich muss mein Profil mal anpassen.

[mjustin]

Zitat von sisa2002:

Hallo,

ich versuche von einem WinXP Rechner einen auf einem Win Server 2008 R2 laufenden Webservice anzusprechen. Hierzu möchte ich einen bestimmten User der auf dem Server 2008 angelegt ist verwenden. Leider funktioniert das nicht.

Welche Authentifizierungsmethoden sind denn auf dem Server eingerichtet? Welche Fehlermeldung gibt es?

Testweise kann man einen Browser verwenden und die Webservice- oder WSDL Adresse angeben.

Bei Http Basic würde dann ein Passwortdialog geöffnet, damit ist ein Test interaktiv möglich.

Falls NTLM Authentifizierung verwendet werden soll, kann man den Domänennamen vor dem Benutzernamen, getrennt durch ein \, angeben:

RIO.HTTPWebNode.UserName := 'domäne\username'; Auch ein NTLM Login kann man in einem normalen Webbrowser testen (es wird ein Logindialog geöffnet). Wenn es im Webbrowser nicht funktioniert, wird es im Delphi Client ebenfalls nicht gehen.