Delphi XE + SOAP + SSL

У меня есть программа, написанная на Delphi 2009. Он использует SOAP через HTTP через SSL. Итак, запрос SOAP запускает HTTP-запрос, который обрабатывается Microsoft Internet Explorer через DLL. Затем MSIE создаст всплывающее окно с запросом на вход.

Но теперь мне нужно скомпилировать его в Delphi XE, и у меня возникла проблема. программа не хочет входить в систему по SSL. Никакого всплывающего окна. Итак, похоже, что триггер не хочет работать.

Ошибка появляется во второй строке этого кода:

mantis:=GetMantisConnectPortType(false, mantisurl);
mi := mantis.mc_issue_get(username,password,MantisIssue);

Ошибка:

Project IssueReporter.exe raised exception class ESOAPHTTPException with message 'Authorization Required (401) - 'https://***/mantis/api/soap/mantisconnect.php''.

Листинг процедуры подключения:

function GetMantisConnectPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): MantisConnectPortType;
const
  defWSDL = 'https://***/mantis/api/soap/mantisconnect.php?wsdl';
  defURL  = 'https://***/mantis/api/soap/mantisconnect.php';
  defSvc  = 'MantisConnect';
  defPrt  = 'MantisConnectPort';
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 MantisConnectPortType);
    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;

mc_issue_get является частью

MantisConnectPortType = interface(IInvokable)

an имеет объявление:

function  mc_issue_get(const username: string; const password: string; const issue_id: Int64): IssueData; stdcall;

В браузере и в старом exe, скомпилированном в 2009 году, все работает нормально. Помогите пожалуйста решить эту проблему.

Но теперь мне нужно скомпилировать его в Delphi XE, и у меня возникла проблема. программа не хочет входить в систему по SSL. Никакого всплывающего окна. Итак, похоже, что триггер не хочет работать.

Ошибка появляется во второй строке этого кода:

mantis:=GetMantisConnectPortType(false, mantisurl);
mi := mantis.mc_issue_get(username,password,MantisIssue);

Ошибка:

Project IssueReporter.exe raised exception class ESOAPHTTPException with message 'Authorization Required (401) - 'https://***/mantis/api/soap/mantisconnect.php''.

Листинг процедуры подключения:

function GetMantisConnectPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): MantisConnectPortType;
const
  defWSDL = 'https://***/mantis/api/soap/mantisconnect.php?wsdl';
  defURL  = 'https://***/mantis/api/soap/mantisconnect.php';
  defSvc  = 'MantisConnect';
  defPrt  = 'MantisConnectPort';
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 MantisConnectPortType);
    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;

mc_issue_get является частью

MantisConnectPortType = interface(IInvokable)

an имеет объявление:

function  mc_issue_get(const username: string; const password: string; const issue_id: Int64): IssueData; stdcall;

В браузере и в старом exe, скомпилированном в 2009 году, все работает нормально. Помогите пожалуйста решить эту проблему.

Но теперь мне нужно скомпилировать его в Delphi XE, и у меня возникла проблема. программа не хочет входить в систему по SSL. Никакого всплывающего окна. Итак, похоже, что триггер не хочет работать.

Ошибка появляется во второй строке этого кода:

mantis:=GetMantisConnectPortType(false, mantisurl);
mi := mantis.mc_issue_get(username,password,MantisIssue);

Ошибка:

Project IssueReporter.exe raised exception class ESOAPHTTPException with message 'Authorization Required (401) - 'https://***/mantis/api/soap/mantisconnect.php''.

Листинг процедуры подключения:

function GetMantisConnectPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): MantisConnectPortType;
const
  defWSDL = 'https://***/mantis/api/soap/mantisconnect.php?wsdl';
  defURL  = 'https://***/mantis/api/soap/mantisconnect.php';
  defSvc  = 'MantisConnect';
  defPrt  = 'MantisConnectPort';
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 MantisConnectPortType);
    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;

mc_issue_get является частью

MantisConnectPortType = interface(IInvokable)

an имеет объявление:

function  mc_issue_get(const username: string; const password: string; const issue_id: Int64): IssueData; stdcall;

В браузере и в старом exe, скомпилированном в 2009 году, все работает нормально. Помогите пожалуйста решить эту проблему.

function  mc_issue_get(const username: string; const password: string; const issue_id: Int64): IssueData; stdcall;

В браузере и в старом exe скомпилированном в 2009 году все работает нормально. Помогите пожалуйста решить эту проблему.

function  mc_issue_get(const username: string; const password: string; const issue_id: Int64): IssueData; stdcall;

В браузере и в старом exe скомпилированном в 2009 году все работает нормально. Помогите пожалуйста решить эту проблему. Тарас, Киев