Код

Процедура Проверка()
	рс=СоздатьОбъект("ODBCRecordset");

	ТекстЗапроса = "
	|DECLARE
	|	@Stream integer,
	|	@Buffer varbinary(max),
	|	@Size integer,
	|	@Pos integer,
	|	@BufSize integer,
	|	@FileNameLocal varchar(1024),
	|	@HR integer,
	|	@FIO varchar(1024)
	|
	|	set @FIO = '"+ФИО+"'
	|	set @FileNameLocal = 'c:\otstr.txt'
	|	SET @BufSize = 4096
	|	EXEC @HR = sp_OACreate 'ADODB.Stream',@Stream OUT
	|	if @HR<>0
	|	begin
	|	--обработка ошибки создания объекта
	|	EXEC [dbo].[sp_displayoaerrorinfo] @Stream ,@HR
	|	end
	|	EXEC @HR = sp_OASetProperty @Stream,'Type',1 -- binary
	|	EXEC @HR = sp_OASetProperty @Stream,'Mode',3 -- write|read
	|	EXEC @HR = sp_OAMethod @Stream,'Open'
	|
	|	select
	|	@Size = DATALENGTH(template)
	|	FROM __templatefinger WHERE sotrudnik=''+@FIO+''
	|	Set @Pos=0
	|
	|	WHILE @Pos < @Size BEGIN
	|	SET @BufSize = CASE WHEN @Size - @Pos < 4096 THEN @Size - @Pos ELSE 4096 END
	|
	|	select @Buffer = substring(template ,@Pos+1, @BufSize)
	|	from __templatefinger where sotrudnik=''+@FIO+''
	|
	|	EXEC @HR = sp_OAMethod @Stream, 'Write', NULL, @Buffer
	|
	|	SET @Pos = @Pos + @BufSize
	|	END
	|
	|	EXEC @HR = sp_OAMethod @Stream,'SaveToFile',null, @FileNameLocal,2
	|	EXEC @HR = sp_OAMethod @Stream,'Close'
	|	EXEC @HR = sp_OADestroy @Stream
	|";

	рс.ВыполнитьИнструкцию(ТекстЗапроса);

    scriptCtrl =  СоздатьОбъект("MSScriptControl.ScriptControl");
	Wscript = СоздатьОбъект("WScript.Shell");
	scriptCtrl.Language="jscript";
	ТекстСкрипта=ТекстФункцияСканирование+"
	|
    |function StartScan()
	|{
	|	var factory = new ActiveXObject('Biolink.Biometrics2.Factory');
	|	var license = factory.CreateLicense();
	|	var deviceList = factory.CreateDeviceList();
	|
	|	if (deviceList.Size == 0) throw new Error(0,'Scanner was not found');
	|
	|	var deviceDescriptor = deviceList.DeviceDescriptor(0);
	|	var scanner = factory.CreateScanner(deviceDescriptor);
	|	WScript.Popup('Пальчег');
	|	var image1 = ScanImage(scanner);
	|	var bmp = image1.Bitmap();
	|	bmp.Save('c:\\strOk.bmp');
	|
	|	WScript.Popup('Ок');
	|	var imageSet = factory.CreateimageSet();
	|	imageSet.AddImage(image1, 0);
	|	var imgPrc = factory.CreateImageProcessor();
	|	var templateScan = imgPrc.CreateTemplate(imageSet);
	|	imageSet.Clear();
	|
	|	var stream = new ActiveXObject('ADODB.Stream');
	|	stream.Type = 1;
	|	stream.Open();
	|	stream.LoadFromFile( 'c:\\otstr.txt' );
	|	stream.Position = 0;
	|	var templateFile = stream.Read(-1);
	|	stream.Close();
	|
	|	var templateOk = factory.CreateTemplate();
	|	templateOk.Load(templateFile);
	|
	|	var matcher = factory.CreateMatcher();
	|	var score = matcher.Compare(templateScan, templateOk);
	|
	|	license.Dispose();
	|   delete factory;
	|
	|	return score;
	|}
	|";
    Попытка
	scriptCtrl.AddCode(ТекстСкрипта);
	scriptCtrl.AddObject("WScript",WScript);
    Исключение
	  Сообщить("Текст ошибки: "+scriptCtrl.Error.Text);
	  Сообщить("Строка ошибки: "+scriptCtrl.Error.Line);
	КонецПопытки;

	Скоре = scriptCtrl.Run("StartScan");

	Картинки=СоздатьОбъект("GFLAx.GFLAx");

	Картинки.LoadBitmap("c:\strOk.bmp");
	Картинки.SaveFormat=4;
	Картинки.SaveBitmap("c:\strOk.bmp");
	Пикт.РежимРисования(3);
	Пикт.Загрузить("c:\strOk.bmp");

	Сообщить(Скоре);

КонецПроцедуры // Проверка 

Код

//======================================================================
Функция ScanImage(scanner)
	image = factory.CreateImage();
	Пока (image.expressQuality < 20) Цикл
		Если (ПустоеЗначение(image)=0) Тогда
			image.Dispose();
			image = scanner.AcquireImage();
			expressQuality = image.ExpressQuality();
		КонецЕсли;
	КонецЦикла;
	Возврат image;
КонецФункции // ScanImage

//======================================================================
Процедура Сформировать()
	factory = СоздатьОбъект("Biolink.Biometrics2.Factory");
	license = factory.CreateLicense();
	deviceList = factory.CreateDeviceList();
	Если (deviceList.Size = 0) Тогда
		Сообщить("Сканер не подключен","!!!");
		Возврат;
	КонецЕсли;
	Сообщить("Сканер подключен.");
	deviceDescriptor = deviceList.DeviceDescriptor(0);
	scanner = factory.CreateScanner(deviceDescriptor);
	Предупреждение("Поднесите палец");
	image1 = ScanImage(scanner);
	Предупреждение("Отсканировали");

	//bmp1 = image1.Bitmap();
	//bmp1.Save("c:\finger.bmp");
	//
	//Пикт.загрузить("c:\finger.bmp");

    imageSet = factory.CreateImageSet();
    imageSet.AddImage(image1, 1);

    Сообщить("Creation template from scaned image");

    imgPrc = factory.CreateImageProcessor();
    templ = imgPrc.CreateTemplate(imageSet);

	Бин = СоздатьОбъект("BinaryData");
	Бин = templ.ToArray();

	//ttt=Строка(templ.toArray());

	//Size = templ.Size();
	//templ.Save(templ.toArray(),0,size);

	Бин.СохранитьВФайл("c:\bin1.sav",0);


	//Сотр = СоздатьОбъект("Справочник.Сотрудник");
	//Сотр.Новый();
	//Сотр.ФИО = "Тест 1";
	//Сотр.Темплате = Данные;
	//Сотр.Записать();

	license.Dispose();
	factory=0
КонецПроцедуры // Сформировать 

Код

	Бин = СоздатьОбъект("BinaryData");
	Бин.Получить(templ.ToArray());