Добрый день.
SQL
В 1С храню строку: сСтр=63,0,63,0,63,0,3,0,73,63,63,63,63,63,63,63,63,63,63,63,63,63,63.... (строка порядка 20 тысяч символов)
это так сказать байты, ну или их предстваление
Как их превратить в двоичные данные в jscript?

Или как хранить двоичные данные непосредственно в базе? но тогда как их вытаскивать именно как двоичные данные?
Хотя строкой меня устраивает, таких записей не будет более 200

jscript:

	ТекстСкрипта="
	|function StartScan()
	|{
	|	var stream = new ActiveXObject('ADODB.Stream');
	|	var bufferTemplate1 = String.fromCharCode("+сСтр+"); //получили строку из символов
//но помоему тут не правильно, надо как-то конвертнуть строку из байтов в сами байты
	|	stream.Type=1;
	|	stream.Open();
	|	stream.Write( bufferTemplate1 );
	|	stream.SaveToFile('c:\\str2.txt',2);
	|	stream.Close();
	|}
	|"; 

как теперь строку символов првратить в байты?

Есть какие предложения на эти темы?
Обработка maljaev'а с хранением двоичных в псевдоBMP супер - но как эти BMP теперь засунуть в 1С
в общем жду любых предложений

Не пробовал прикручивать binarydata? Пример тут: http://www.1cpp.ru/forum/YaBB.pl?num=1280497111/7

chessman писал(а) 19. Января 2011 :: 06:45:

а можно ли с binarydata не из файла читать а из потока?

концептуально как-то так

	scriptCtrl =  СоздатьОбъект("MSScriptControl.ScriptControl");
	data=СоздатьОбъект("BinaryData");
	сСтр = Сотр.Темплате;
	scriptCtrl.Language="jscript";
	ТекстСкрипта="
	|function start()
	|{
	|	var data = String.fromCharCode("+сСтр+");
	|}
	|";

    Попытка
	scriptCtrl.AddCode(ТекстСкрипта);
	scriptCtrl.AddObject("data",data);
    Исключение
        Сообщить("Текст ошибки: "+scriptCtrl.Error.Text);
        Сообщить("Строка ошибки: "+scriptCtrl.Error.Line);
    КонецПопытки;

	scriptCtrl.Run("start"); 

chessman писал(а) 19. Января 2011 :: 07:54:


Пока склоняюсь к отдельно таблице.

	рс=СоздатьОбъект("ODBCRecordset");
	ТекстЗапроса = "
	|Set nocount on;
	|
	|IF NOT EXISTS (SELECT name FROM dbo.sysobjects where name = '__templatefinger' and xtype = 'U ')
	|CREATE TABLE __templatefinger
	|(
	|id			int IDENTITY(1,1)		,
	|sotrudnik	varchar(10)			,
	|finger		varchar(2)			,
	|template	varbinary(max)		,
	|)
	|";

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

	рс.Подготовить("
	|insert into '__templatefinger'
	|(sotrudnik,finger,template) values("+Сотр.Код+","+Сотр.П+",?)
	|");
	рс.ДобПараметр(1,19,0,0);
	Данные=СоздатьОбъект("BinaryData");
	Данные.ЗагрузитьИзФайла(Файл);
	рс.УстПараметр(1,Данные);
	рс.ВыполнитьИнструкцию(); 

chessman писал(а) 19. Января 2011 :: 08:14:

угу

chessman писал(а) 19. Января 2011 :: 08:27:

Процедура Сформировать()
    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);
	|	WScript.Popup('Ок');
	|	WScript.Popup('Пальчег');
	|   var image2 = ScanImage(scanner);
	|	WScript.Popup('Ок');
	|	WScript.Popup('Пальчег');
	|	var image3 = ScanImage(scanner);
	|	WScript.Popup('Ок');
	|
	|	var imageSet = factory.CreateimageSet();
	|	imageSet.AddImage(image1, 0);
	|	imageSet.AddImage(image2, 0);
	|	imageSet.AddImage(image3, 0);
	|	var imgPrc = factory.CreateImageProcessor();
	|	var temp1 = imgPrc.CreateTemplate(imageSet);  
	|	var bufferTemplate1 = temp1.ToArray();
	|
	|	var stream = new ActiveXObject('ADODB.Stream');
	|	stream.Type=1;
	|	stream.Open();
	|	stream.Write( bufferTemplate1 );
	|	stream.SaveToFile('c:\\str2.txt',2);
	|	stream.Close();
	|
	|	license.Dispose();
	|   delete factory;
	|
	|	return 'str2.txt';
	|}";
    Попытка
	scriptCtrl.AddCode(ТекстСкрипта);
	scriptCtrl.AddObject("WScript",WScript);
    Исключение
	  Сообщить("Текст ошибки: "+scriptCtrl.Error.Text);
	  Сообщить("Строка ошибки: "+scriptCtrl.Error.Line);
    КонецПопытки;
    
	ТемплатеФайл = scriptCtrl.Run("StartScan");

КонецПроцедуры // Сформировать 

chessman писал(а) 19. Января 2011 :: 09:31:


я так и делаю, и в принципе скорость особенно не требуется и с файликами успею.

на мисте предлагают поток байтов с ascii 7/8 и хранить в длинной строке.

т.е. есть 2 варианта
1) отсканировать, в файл из файла в базу. Расшифровка из базы в файл, файл в поток и далее.
2) отсканировать, конвертируем в ascii 7/8, потом в неограниченную строку в базу. Расшифровка из базы в строку, строку в скрипт, конвертируем из ascii 7/8 в byte и далее.

Вариант 1 почти дописан.
Вариант 2 вроде как более рационален?

JohnyDeath писал(а) 19. Января 2011 :: 09:49:


Сейчас массив записан в файл и этот файл собираюсь хранить в sql таблице базы 1С
Вот так привязываю к ФИО человека

	рс=СоздатьОбъект("ODBCRecordset");
	ТекстЗапроса = "
	|Set nocount on;
	|
	|IF NOT EXISTS (SELECT name FROM dbo.sysobjects where name = '__templatefinger' and xtype = 'U ')
	|CREATE TABLE __templatefinger
	|(
	|id			int IDENTITY(1,1)	,
	|sotrudnik	varchar(10)			,
	|finger		varchar(2)			,
	|template	varbinary(max)		,
	|)
	|";

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

	рс.Подготовить("
	|IF EXISTS
	|	(SELECT * FROM [__templatefinger]
	|		WHERE sotrudnik='"+Сотр.ФИО+"'
	|	)
	|   UPDATE [__templatefinger]
	|			SET  
	|					finger='0',
	|					template=?
	|			WHERE sotrudnik='"+Сотр.ФИО+"'
	|ELSE
	|	INSERT INTO [__templatefinger]
	|					([sotrudnik],[finger],[template]) VALUES ('"+Сотр.ФИО+"','0',?)
	|");

	рс.Отладка(1);
	рс.ДобПараметр(1,19,0,0);
	рс.ДобПараметр(1,19,0,0);
	Данные=СоздатьОбъект("BinaryData");
	Данные.ЗагрузитьИзФайла("c:\str2.txt");
	рс.УстПараметр(1,Данные);
	рс.УстПараметр(2,Данные);
	рс.ВыполнитьИнструкцию(); 

так вывожу в ФормеСписка, есть или нет скан

Функция ПроверитьТемплате()
	ТекстЗапроса = "
	|SELECT count([id])
	|	FROM [__templatefinger] (nolock)
	|	WHERE sotrudnik='"+ФИО+"'
	|";

	Возврат(рс.ВыполнитьСкалярный(ТекстЗапроса));
КонецФункции // ПроверитьТемплате 

а когда надо сверить, выгружаю в файл
и

Процедура Проверка()
    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:\\str3.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");

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

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

это пока еще разработка, поэтому не исключений ни причесываний нет

trad писал(а) 19. Января 2011 :: 12:43:

сканирует отпечаток и возвращает image

artbear писал(а) 19. Января 2011 :: 13:58:

Конечно к ид справочника будет - это сейчас в тесте у меня так.

мне кажется тут можно обойтись без скриптконтрола и без промежуточного файла на диске

MaxPiter писал(а) 19. Января 2011 :: 14:43:

это только содержание

Сверка отпечатка с хранящимся в базе

Процедура Проверка()
	рс=СоздатьОбъект("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");

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

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

Если это получится, то проверку тоже можно попробовать.
В обратном порядке.
Из таблицы двоичные данные в объект BinaryData.
Далее в массив.
Можно ли из массива получить Template - нужно читать документацию.

И никаких монстров в виде ActiveX на t-sql

trad писал(а) 19. Января 2011 :: 15:23:


Сначало я так и написал, но когда дошел до temp1.ToArray(); то тут все померло.
Пыталсся его и в BinaryData присвоить и в поток закинуть, и передать в JScript но 1С наотрез отказалась что ли бос ним делать. Причем выполняя в коде temp1.ToArray(); 1С проходила нормально, но как только пытался его присвоить хоть чему, вылетал.

Вариант на 1С который был №1

//======================================================================
Функция 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()); 

отработать, то было бы гораздо интереснее.

MaxPiter писал(а) 20. Января 2011 :: 09:24:


Это не имеет значения, можешь хоть 10 подключений сделать. В данном случае у тебя это не взлетит только в монопольном режиме.
Можно посмотреть, как ODBCDataBase цепляет 1С-е подключение, но стоит ли это делать, ради 20 отпечатков?
Может вообще стоит остановиться на передаче через файл.

MaxPiter писал(а) 20. Января 2011 :: 09:14:

ну я же говорю
Цитата:

to trad:

можете chm файлик скинуть по OleExSup ? а то 2 уже скачал, а все только структура без описания.

trad писал(а) 20. Января 2011 :: 13:42:


точно. заработало