Сервис преобразования в многостраничный TIFF-файл
Пример работы с сервисом
Для работы с сервисом можно использовать сценарий, который будет формировать SOAP-пакет из исходных файлов, вызывать сервис, передавать ему пакет и получать результат работы. Сценарию передаются параметры:
· InputFilesList – имя текстового файла, который содержит список файлов для группировки в многостраничный TIFF;
· OutputFileName – имя итогового TIFF-файла.
Код сценария на ISBL:
// Объявление констант.
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()
См. также:
© 2009, Компания DIRECTUM
|
Отправить комментарий к этому разделу на
support@directum.ru
|