unit DataExchange1C;
//обмен данными с 1С
interface
uses InvokeRegistry, Rio, SOAPHTTPClient;
type  //не называть интерфейс очень длинно, идут ошибки при регистрации интерфейса
IDataExchange1cBuh = interface(IInvokable)
  ['{98B22E8D-6CE7-4E29-BB56-35107A1DA11B}']
    function LoadDataFrom1cBuh(const OperationID: integer; const PartNo: integer; const PartCount: integer;
      const InputData: string; out ResultData: string): string; stdcall;
  end;
  function GetServiceWebDataExchange1cBuh(const sUserName: string; const sPassword: string;
    const sHttpAddr: string; hRIO: THTTPRIO = nil): IDataExchange1cBuh;
implementation

function GetServiceWebDataExchange1cBuh(const sUserName: string; const sPassword: string;
  const sHttpAddr: string; hRIO: THTTPRIO): IDataExchange1cBuh;
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if hRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := hRIO;
  try
    Result := (RIO as IDataExchange1cBuh);
    RIO.HTTPWebNode.UserName := UTF8Encode(WideString(sUserName));
    RIO.HTTPWebNode.Password := UTF8Encode(WideString(sPassword));
    RIO.URL := sHttpAddr;
  finally
    if (Result = nil) and (hRIO = nil) then
    begin
      RIO.Free;
    end;
  end;
end;

initialization
  //все эти данные прописаны в конфигурации Web-сервиса 1С и являются константами
  InvRegistry.RegisterInterface(TypeInfo(IDataExchange1cBuh), 'urn:web:dataexchange1cbuh', 'UTF-8');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(IDataExchange1cBuh), 'urn:web:dataexchange1cbuh#WebDataExchange1cBuh:LoadDataFrom1cBuh');
  InvRegistry.RegisterInvokeOptions(TypeInfo(IDataExchange1cBuh), ioDocument);
end.

var
  aRIO1c: THTTPRIO;
  aIn: IDataExchange1cBuh;
  sStatus: string;
  sTmpData: sting;
begin
  aRIO1c := nil;
  aIn := GetServiceWebDataExchange1cBuh('LoadWeb', '1111', 'http://server/buh1C/ws/WebDataExchange1cBuh', aRIO1c);
  if Assigned(aIn) then
    sStatus := aIn.LoadDataFrom1cBuh(1, 1, 1, '', sTmpData); //тут ошибка
  ...