Добрый день.
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");

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

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

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