Архивы файл

1С: передать файл с сервера на клиент

14.05.2024 Павел Грибов 1C

Задача: Открыть файл прикрепленный к справочнику на клиенте приложением по умолчанию (передать файл с сервера на клиент)

Решение: любой файл который «прикреплен» к справочнику, если используется БСП , на самом деле находится в справочнике Файлы. Это для старых версий БСП. В новых версиях имя справочника носит шаблонное имя [ИмяСправочника]ПрисоединенныеФайлы. В обоих вариантах у этик справочников есть реквизит «Владелец файла». Вот по нему и получим самый первый прикрепленный файл.

&НаСервере
Функция ОткрытьФайлНаСервере()    		    
			фф="";
			Запрос = Новый Запрос;
			Запрос.Текст = 
				"ВЫБРАТЬ ПЕРВЫЕ 1
				|	Файлы.Ссылка КАК Ссылка,
				|	Файлы.ПолноеНаименование КАК ПолноеНаименование,
				|	Файлы.ТекущаяВерсияПутьКФайлу КАК ТекущаяВерсияПутьКФайлу,
				|	Файлы.ТекущаяВерсияТом.ПолныйПутьWindows КАК ТекущаяВерсияТомПолныйПутьWindows,
				|	Файлы.ГлавныйФайл КАК ГлавныйФайл,
				|	Файлы.ТекущаяВерсияРасширение КАК ТекущаяВерсияРасширение,
				|	Файлы.Наименование КАК Наименование
				|ИЗ
				|	Справочник.Файлы КАК Файлы
				|ГДЕ
				|	Файлы.ВладелецФайла = &ВладелецФайла
				|	И Файлы.ПометкаУдаления = ЛОЖЬ";	
			Запрос.УстановитьПараметр("ВладелецФайла", объект.ДокОб);	
			РезультатЗапроса = Запрос.Выполнить();	
			ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();	
			Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
                сообщить(ВыборкаДетальныеЗаписи.Ссылка);
				фф=ВыборкаДетальныеЗаписи.ТекущаяВерсияТомПолныйПутьWindows+ВыборкаДетальныеЗаписи.ТекущаяВерсияПутьКФайлу;
			КонецЦикла;		

			если фф<>"" тогда
				Двоичное=Новый ДвоичныеДанные(фф);
				Адрес=ПоместитьВоВременноеХранилище(Двоичное,ЭтаФорма.УникальныйИдентификатор);
				Возврат Новый Структура("error,address,filename",false,Адрес,ВыборкаДетальныеЗаписи.Наименование+"."+ВыборкаДетальныеЗаписи.ТекущаяВерсияРасширение);	
			иначе
				Возврат Новый Структура("error,address,filename",true);
			конецесли			
КонецФункции

&НаСервере

Функция ОткрытьФайлНаСервере()

фф="";

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ ПЕРВЫЕ 1

| Файлы.Ссылка КАК Ссылка,

| Файлы.ПолноеНаименование КАК ПолноеНаименование,

| Файлы.ТекущаяВерсияПутьКФайлу КАК ТекущаяВерсияПутьКФайлу,

| Файлы.ТекущаяВерсияТом.ПолныйПутьWindows КАК ТекущаяВерсияТомПолныйПутьWindows,

| Файлы.ГлавныйФайл КАК ГлавныйФайл,

| Файлы.ТекущаяВерсияРасширение КАК ТекущаяВерсияРасширение,

| Файлы.Наименование КАК Наименование

|ИЗ

| Справочник.Файлы КАК Файлы

|ГДЕ

| Файлы.ВладелецФайла = &ВладелецФайла

| И Файлы.ПометкаУдаления = ЛОЖЬ";

Запрос.УстановитьПараметр("ВладелецФайла", объект.ДокОб);

РезультатЗапроса = Запрос.Выполнить();

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

сообщить(ВыборкаДетальныеЗаписи.Ссылка);

фф=ВыборкаДетальныеЗаписи.ТекущаяВерсияТомПолныйПутьWindows+ВыборкаДетальныеЗаписи.ТекущаяВерсияПутьКФайлу;

КонецЦикла;

если фф<>"" тогда

Двоичное=Новый ДвоичныеДанные(фф);

Адрес=ПоместитьВоВременноеХранилище(Двоичное,ЭтаФорма.УникальныйИдентификатор);

Возврат Новый Структура("error,address,filename",false,Адрес,ВыборкаДетальныеЗаписи.Наименование+"."+ВыборкаДетальныеЗаписи.ТекущаяВерсияРасширение);

иначе

Возврат Новый Структура("error,address,filename",true);

конецесли

КонецФункции

На клиенте таким образом мы получим имя файла и адрес во временном хранилище. Остаётся сохранить файл во временный каталог и открыть его приложением по умолчанию:

&НаКлиенте
Процедура ОткрытьФайл(Команда)
	рез=ОткрытьФайлНаСервере();
	если рез.error=false тогда
		Двоичное=ПолучитьИзВременногоХранилища(рез.address);			
		ИмяФайла = КаталогВременныхФайлов() + рез.filename;		
		Двоичное.Записать(ИмяФайла);
		ЗапуститьПриложение(ИмяФайла);
	конецесли;

КонецПроцедуры

&НаКлиенте

Процедура ОткрытьФайл(Команда)

рез=ОткрытьФайлНаСервере();

если рез.error=false тогда

Двоичное=ПолучитьИзВременногоХранилища(рез.address);

ИмяФайла = КаталогВременныхФайлов() + рез.filename;

Двоичное.Записать(ИмяФайла);

ЗапуститьПриложение(ИмяФайла);

конецесли;

КонецПроцедуры

Другие мои статьи по теме 1С тут

Оставить комментарий 1с, с сервера на клиент, файл

UBUNTU — переносим swap с раздела в файл

21.05.2019 Павел Грибов Linux

1) Отключаем текущий swap файл

#sudo swapoff -a

1	#sudo swapoff -a

2) Создаем новый swap файл (например 1 гиг)

#sudo dd if=/dev/zero of=/swapfile bs=1M count=8000

1	#sudo dd if=/dev/zero of=/swapfile bs=1M count=8000

3) Права доступа 600

#sudo chmod -c 600 /swapfile

1	#sudo chmod -c 600 /swapfile

4) Форматируем, получаем в консоль его UID:

#sudo mkswap /swapfile
Setting up swapspace version 1, size = 12 GiB (12911738880 bytes)
без метки, UUID=882f43bf-fd53-426e-bfff-0691a89b1917

#sudo mkswap /swapfile

Setting up swapspace version 1, size = 12 GiB (12911738880 bytes)

без метки, UUID=882f43bf-fd53-426e-bfff-0691a89b1917

5) Включаем swap

#sudo swapon /swapfile

1	#sudo swapon /swapfile

6) Добавляем в /etc/fstab

UUID=882f43bf-fd53-426e-bfff-0691a89b1917 none swap sw 0 0

1	UUID=882f43bf-fd53-426e-bfff-0691a89b1917 none swap sw 0 0

Оставить комментарий swap, ubuntu, раздел, файл

Сохранение/чтение содержимого массива в файл

28.04.2015 Павел Грибов PHP

#записать в файл
function object2file($value, $filename){
    $str_value = serialize($value);    
    $f = fopen($filename, 'a');
    fwrite($f, $str_value);
    fclose($f);
}
#прочитать из файла
function object_from_file($filename){
    $file = file_get_contents($filename);
    $value = unserialize($file);
    return $value;
}

#записать в файл

function object2file($value, $filename){

$str_value = serialize($value);

$f = fopen($filename, 'a');

fwrite($f, $str_value);

fclose($f);

}

#прочитать из файла

function object_from_file($filename){

$file = file_get_contents($filename);

$value = unserialize($file);

return $value;

}

Оставить комментарий php, массив, файл

Пн	Вт	Ср	Чт	Пт	Сб	Вс
				1	2	3
4	5	6	7	8	9	10
11	12	13	14	15	16	17
18	19	20	21	22	23	24
25	26	27	28	29	30