Примеры VBScript

VBScript сценарии предназначены для демонстрации использования Doctype Document Services из VBScript окружения с использованием Microsoft SOAP Toolkit или Microsoft XML Core Services (MSXML).
Приёмы, использованные в VBScript сценариях, могут быть использованы в приложениях, написанных на JScript, VBScript и других средствах разработки, поддерживающих работу с ActiveX компонентами.
Пакет Microsoft SOAP Toolkit является составной частью операционных систем Windows 2000, Windows 98, Windows ME, Windows Server 2003, Windows XP.
Пакет Microsoft XML Core Services (MSXML) является составной частью операционных систем семейства Windows, включая последние версии Windows Vista, Windows 7 и Windows 8.
Также для доступа к методам служб Doctype Document Services из VBScript или аналогичного окружения могут использоваться другие технологии, например .NET Remoting.
Данные примеры не являются законченными приложениями в части обработки ошибок, исключительных ситуаций и т.д., а являются лишь демонстраторами конкретных технологических решений.

Фрагмент вызова метода AddImageToPDF

'Подключиться к сервису
Set SoapClient = CreateObject("MSSOAP.SoapClient30")
SoapClient.MSSoapInit(WSDLFileName)
SoapClient.ConnectorProperty("Timeout") = ExecutionTimeout
 
'Загрузить входной PDF файл
Dim PdfFile
With CreateObject("ADODB.Stream")
    .Type = ADO_BINARY_TYPE
    .Open
    .LoadFromFile(PdfFileName)
    PdfFile = .Read(ADO_READ_ALL)
    .Close
End With
 
'Загрузить входной файл изображения
Dim ImageFile
With CreateObject("ADODB.Stream")
    .Type = ADO_BINARY_TYPE
    .Open
    .LoadFromFile(ImageFileName)
    ImageFile = .Read(ADO_READ_ALL)
    .Close
End With
 
'Вызвать метод
Dim Result
Result = SoapClient.AddImageToPDF(PdfFile, ImageFile, "1", 50, "rt", 150, 150, 0, "up")
 
'Сохранить результат выполнения метода в файловую систему
With CreateObject("ADODB.Stream")
    .Type = ADO_BINARY_TYPE
    .Open
    .Write(Result)
    .SaveToFile OutputFileName, ADO_SAVE_CREATE_OVERWRITE
    .Close
End With
 
Set SoapClient = Nothing
'Подключиться к сервису
Set SoapClient = CreateObject("MSSOAP.SoapClient30")
SoapClient.MSSoapInit(WSDLFileName)
SoapClient.ConnectorProperty("Timeout") = ExecutionTimeout

'Загрузить входной PDF файл
Dim PdfFile
With CreateObject("ADODB.Stream")
    .Type = ADO_BINARY_TYPE
    .Open
    .LoadFromFile(PdfFileName)
    PdfFile = .Read(ADO_READ_ALL)
    .Close
End With

'Загрузить входной файл изображения
Dim ImageFile
With CreateObject("ADODB.Stream")
    .Type = ADO_BINARY_TYPE
    .Open
    .LoadFromFile(ImageFileName)
    ImageFile = .Read(ADO_READ_ALL)
    .Close
End With

'Вызвать метод
Dim Result
Result = SoapClient.AddImageToPDF(PdfFile, ImageFile, "1", 50, "rt", 150, 150, 0, "up")

'Сохранить результат выполнения метода в файловую систему
With CreateObject("ADODB.Stream")
    .Type = ADO_BINARY_TYPE
    .Open
    .Write(Result)
    .SaveToFile OutputFileName, ADO_SAVE_CREATE_OVERWRITE
    .Close
End With

Set SoapClient = Nothing