Пример работы с сервисом

// Объявление констант.

ADO_BINARY_TYPE           = 1

ADO_READ_ALL              = -1

ADO_SAVE_CREATE_OVERWRITE = 2

// Получить параметры сценария.

Params = Object.Params

InputFilesList = Params.ValueByName('InputFilesList')

OutputFileName = Params.ValueByName('OutputFileName')

DctsConvertToTIFFWSDL = GetAssignedConst("DctsConvertToTIFFWSDL")

// Получить исходные файлы.

InputFiles = ФайлСчитать(InputFilesList)

Count = SubStringCount(InputFiles; CR)

Count = IfThen(Count < 1; 1; Count)

InputFilesArrray = CreateArray(1; Count)

I = 1

foreach FileName in CSubString(InputFiles; CR)

  ADOStream = CreateObject("ADODB.Stream")

  ADOStream.Type = ADO_BINARY_TYPE

  ADOStream.Open()

  ADOStream.LoadFromFile(FileName)

  InputFilesArrray[I] = ADOStream.Read(ADO_READ_ALL)

  ADOStream.Close()

  I = I + 1

endforeach

// Инициализировать подключение к сервису.

SoapClient = CreateObject("MSSOAP.SoapClient30")

SoapClient.MSSoapInit(DctsConvertToTIFFWSDL)

// Установить тайм-аут выполнения запроса.

ExecutionTimeout = КонстЗнач("DctsExecutionTimeout")

SoapClient.ConnectorProperty("Timeout") = ExecutionTimeout

// Выполнить преобразование в TIFF.

ConvertResult = SoapClient.ConvertImages(InputFilesArrray)

// Сохранить преобразованный файл.

ADOStream = CreateObject("ADODB.Stream")

ADOStream.Type = ADO_BINARY_TYPE

ADOStream.Open()

ADOStream.Write(ConvertResult)

ADOStream.SaveToFile(OutputFileName; ADO_SAVE_CREATE_OVERWRITE)

ADOStream.Close()