09.06.2021 - ЖЗГ

Android studio: диалоговые окна с кнопкой Да и Нет

09.06.2021 Павел Грибов Android

За построение диалоговых окон в Android отвечает класс AlertDialog. С помощью него довольно легко построить конструкцию, чтото типа:

 AlertDialog.Builder builder = new AlertDialog.Builder(cntcur);
                builder.setTitle("Вопрос!");
                builder.setMessage("Будем удалять фото?");
                builder.setCancelable(true);
                builder.setPositiveButton("ДА", new DialogInterface.OnClickListener() { // Кнопка Да
                    @Override
                    public void onClick(DialogInterface dialog, int which) {
                        dialog.dismiss(); // Отпускает диалоговое окно
                        map=arrayList.get(position);
                        Log.i("Info","--выбрали удалить");
                    }
                });
                builder.setNegativeButton("Конечно нет", new DialogInterface.OnClickListener() { // Кнопка Нет
                    @Override
                    public void onClick(DialogInterface dialog, int which) {
                        dialog.dismiss(); // Отпускает диалоговое окно
                    }
                });
                AlertDialog dialog = builder.create();
                dialog.show();

AlertDialog.Builder builder = new AlertDialog.Builder(cntcur);

builder.setTitle("Вопрос!");

builder.setMessage("Будем удалять фото?");

builder.setCancelable(true);

builder.setPositiveButton("ДА", new DialogInterface.OnClickListener() { // Кнопка Да

@Override

public void onClick(DialogInterface dialog, int which) {

dialog.dismiss(); // Отпускает диалоговое окно

map=arrayList.get(position);

Log.i("Info","--выбрали удалить");

}

});

builder.setNegativeButton("Конечно нет", new DialogInterface.OnClickListener() { // Кнопка Нет

@Override

public void onClick(DialogInterface dialog, int which) {

dialog.dismiss(); // Отпускает диалоговое окно

}

});

AlertDialog dialog = builder.create();

dialog.show();

Оставить комментарий android studio, java, диалоговое окно

Android Studio: ListView c фотографией и текстом

09.06.2021 Павел Грибов Android

Задача: разместить в виджете ListView картинку из файла + текст. Результат должен выглядеть как то так:

Решение: будем писать свой «адаптер», на входе которого будет массив из id и photo_name (имя файла картинки)

Экран list_photos.xml:

<?xml version="1.0" encoding="utf-8"?>
<LinearLayout xmlns:android="http://schemas.android.com/apk/res/android"
    xmlns:app="http://schemas.android.com/apk/res-auto"
    xmlns:tools="http://schemas.android.com/tools"
    android:layout_width="match_parent"
    android:layout_height="match_parent">

    <ImageView
        android:id="@+id/imgv"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_weight="1"
        tools:srcCompat="@tools:sample/avatars" />

    <TextView
        android:id="@+id/photo_id"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_weight="1"
        android:text="photo_id" />

    <TextView
        android:id="@+id/photo_name"
        android:layout_width="wrap_content"
        android:layout_height="wrap_content"
        android:layout_weight="1"
        android:text="photo_name" />
</LinearLayout>

<?xml version="1.0" encoding="utf-8"?>

<LinearLayout xmlns:android="http://schemas.android.com/apk/res/android"

xmlns:app="http://schemas.android.com/apk/res-auto"

xmlns:tools="http://schemas.android.com/tools"

android:layout_width="match_parent"

android:layout_height="match_parent">

<ImageView

android:id="@+id/imgv"

android:layout_width="wrap_content"

android:layout_height="wrap_content"

android:layout_weight="1"

tools:srcCompat="@tools:sample/avatars" />

<TextView

android:id="@+id/photo_id"

android:layout_width="wrap_content"

android:layout_height="wrap_content"

android:layout_weight="1"

android:text="photo_id" />

<TextView

android:id="@+id/photo_name"

android:layout_width="wrap_content"

android:layout_height="wrap_content"

android:layout_weight="1"

android:text="photo_name" />

</LinearLayout>

Код адаптера:


        ListView listView = findViewById(R.id.ListPhotos);
        // используем адаптер данных
        adapter=new PhotosAdapter(this,R.layout.list_photos, arrayList);
        listView.setAdapter(adapter);


    }
    // Пишем свой класс-адаптер
    private class PhotosAdapter extends ArrayAdapter<String> {
        PhotosAdapter(Context context, int textViewResourceId, ArrayList objects) {
            super(context, textViewResourceId, objects);
        }
        @NonNull
        @Override
        public View getView(int position, @Nullable View convertView, @NonNull ViewGroup parent) {
            LayoutInflater inflater = getLayoutInflater();
            View row = inflater.inflate(R.layout.list_photos, parent, false);
            map=arrayList.get(position);
            TextView pid = (TextView) row.findViewById(R.id.photo_id);
            TextView pname = (TextView) row.findViewById(R.id.photo_name);
            File imgFile = new  File(map.get("photo_name"));
            pid.setText(map.get("photo_id"));
            Bitmap myBitmap = BitmapFactory.decodeFile(imgFile.getAbsolutePath());
            ImageView iconImageView = (ImageView) row.findViewById(R.id.imgv);
            iconImageView.setImageBitmap(myBitmap);
            return row;
        }
    }

ListView listView = findViewById(R.id.ListPhotos);

// используем адаптер данных

adapter=new PhotosAdapter(this,R.layout.list_photos, arrayList);

listView.setAdapter(adapter);

}

// Пишем свой класс-адаптер

private class PhotosAdapter extends ArrayAdapter<String> {

PhotosAdapter(Context context, int textViewResourceId, ArrayList objects) {

super(context, textViewResourceId, objects);

}

@NonNull

@Override

public View getView(int position, @Nullable View convertView, @NonNull ViewGroup parent) {

LayoutInflater inflater = getLayoutInflater();

View row = inflater.inflate(R.layout.list_photos, parent, false);

map=arrayList.get(position);

TextView pid = (TextView) row.findViewById(R.id.photo_id);

TextView pname = (TextView) row.findViewById(R.id.photo_name);

File imgFile = new File(map.get("photo_name"));

pid.setText(map.get("photo_id"));

Bitmap myBitmap = BitmapFactory.decodeFile(imgFile.getAbsolutePath());

ImageView iconImageView = (ImageView) row.findViewById(R.id.imgv);

iconImageView.setImageBitmap(myBitmap);

return row;

}

Оставить комментарий image, java, listView, фото

Загрузка и обработка большого файла EXCEL в 1С с прогрессбаром

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

Задача: «фоново» загрузить файл эксель большого размера, с показом прогресса загрузки.

Решение:

В ходе выполнения задачи столкнулся с глюком платформы 1С, что при запуске фонового задания с параметром адреса временного хранилища файла, он приходит на сервер пустым. Потому пришлось делать «финт ушами», а именно перед запуском фонового задания, файл загрузить на сервер, получить его временное имя и уже затем передать его как параметр при запуске фонового задания.

Кроме того выплыла проблема с не рабочим способом передачи данных о загрузке при помощи хранения данных во «ВременныхХранилиах», описанным тут. Потому для получения прогресса воспользуемся возможностью зная идентификатор фонового процесса периодически получить с сервера данные выводимые при помощи «Сообщить()».

В общих модулях разместим следующий код фонового процесса:

&НаСервере
Функция ЗагрузкаФайлаПредварительная(АдресВременногоХранилищаФайла) Экспорт			
	ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВременногоХранилищаФайла);
	ИмяВременногоФайлаСпр = ПолучитьИмяВременногоФайла("xlsx");
	ДвоичныеДанные.Записать(ИмяВременногоФайлаСпр);     
	возврат ИмяВременногоФайлаСпр;	
конецфункции	

Процедура ЗагрузкаФайлаДлительная(ИмяВременногоФайлаСпр) Экспорт			
		
    ТабличныйДокументСпр = Новый ТабличныйДокумент;
    ТабличныйДокументСпр.Прочитать(ИмяВременногоФайлаСпр,СпособЧтенияЗначенийТабличногоДокумента.Значение);
	
	//читаем все листы файла СправочникСМС
	Для Каждого ОбластьТД ИЗ ТабличныйДокументСпр.Области Цикл         		     
            ОбластьФайла = ТабличныйДокументСпр.ПолучитьОбласть(ОбластьТД.Имя);
            КолВоСтрокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоВертикали();
            КолВоКолонокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоГоризонтали();
            Сообщить("Строк:"+КолВоСтрокФайла);
            Сообщить("Колонок:"+КолВоКолонокФайла);         
            имялиста=ОбластьТД.Имя;
            Сообщить("Лист:"+имялиста);         
                    МассивИменКолонок=Новый Массив();
                    // читаем шапку листа
                    Для ит=1 ПО КолВоКолонокФайла Цикл
                        нКолонка = СтрЗаменить(ит, Символы.НПП, "");
                        ИмяКолонки=ОбластьФайла.ПолучитьОбласть("R3" + "C"+нКолонка).ТекущаяОбласть.Текст;                        
                        МассивИменКолонок.Добавить(ИмяКолонки);
					конеццикла; 					
					НачСтрока=3;КонСтрока=0;
                    НачСтрока = ?(НачСтрока = 0, 2, НачСтрока);
                    КонСтрока = ?(КонСтрока = 0, КолвоСтрокФайла, КонСтрока);
                    //перебираем все строки без первой строки  
					Индикатор=0;
                    Для нСтрокаТФ = НачСтрока+1 ПО КонСтрока Цикл
                        нСтрока = СтрЗаменить(нСтрокаТФ, Символы.НПП, "");                        
			если Окр(нСтрокаТФ*100/КонСтрока)<>Индикатор тогда
				Индикатор = Окр(нСтрокаТФ*100/КонСтрока);
				Сообщение = Новый СообщениеПользователю;
				Сообщение.Текст = "Выполнено %"+Индикатор;
				Сообщение.Сообщить();
			конецесли;
			Для нКолонкаТФ = 1 ПО КолВоКолонокФайла Цикл
                            нКолонка = СтрЗаменить(нКолонкаТФ, Символы.НПП, "");
                            Область = ОбластьФайла.ПолучитьОбласть("R"+нСтрока+"C"+нКолонка);
                            ТекущаяОбласть = Область.ТекущаяОбласть;
                            ЗначениеЯчейки = СокрЛП(ТекущаяОбласть.Текст);
			    ...
				обрабатываем файл
			    ...	
                        конеццикла;                         		
	конеццикла;
	Сообщение = Новый СообщениеПользователю;
	Сообщение.Текст = "Загрузка завершена.";
	Сообщение.Сообщить();

&НаСервере

Функция ЗагрузкаФайлаПредварительная(АдресВременногоХранилищаФайла) Экспорт

ДвоичныеДанные = ПолучитьИзВременногоХранилища(АдресВременногоХранилищаФайла);

ИмяВременногоФайлаСпр = ПолучитьИмяВременногоФайла("xlsx");

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

возврат ИмяВременногоФайлаСпр;

конецфункции

Процедура ЗагрузкаФайлаДлительная(ИмяВременногоФайлаСпр) Экспорт

ТабличныйДокументСпр = Новый ТабличныйДокумент;

ТабличныйДокументСпр.Прочитать(ИмяВременногоФайлаСпр,СпособЧтенияЗначенийТабличногоДокумента.Значение);

//читаем все листы файла СправочникСМС

Для Каждого ОбластьТД ИЗ ТабличныйДокументСпр.Области Цикл

ОбластьФайла = ТабличныйДокументСпр.ПолучитьОбласть(ОбластьТД.Имя);

КолВоСтрокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоВертикали();

КолВоКолонокФайла = ОбластьФайла.ПолучитьРазмерОбластиДанныхПоГоризонтали();

Сообщить("Строк:"+КолВоСтрокФайла);

Сообщить("Колонок:"+КолВоКолонокФайла);

имялиста=ОбластьТД.Имя;

Сообщить("Лист:"+имялиста);

МассивИменКолонок=Новый Массив();

// читаем шапку листа

Для ит=1 ПО КолВоКолонокФайла Цикл

нКолонка = СтрЗаменить(ит, Символы.НПП, "");

ИмяКолонки=ОбластьФайла.ПолучитьОбласть("R3" + "C"+нКолонка).ТекущаяОбласть.Текст;

МассивИменКолонок.Добавить(ИмяКолонки);

конеццикла;

НачСтрока=3;КонСтрока=0;

НачСтрока = ?(НачСтрока = 0, 2, НачСтрока);

КонСтрока = ?(КонСтрока = 0, КолвоСтрокФайла, КонСтрока);

//перебираем все строки без первой строки

Индикатор=0;

Для нСтрокаТФ = НачСтрока+1 ПО КонСтрока Цикл

нСтрока = СтрЗаменить(нСтрокаТФ, Символы.НПП, "");

если Окр(нСтрокаТФ*100/КонСтрока)<>Индикатор тогда

Индикатор = Окр(нСтрокаТФ*100/КонСтрока);

Сообщение = Новый СообщениеПользователю;

Сообщение.Текст = "Выполнено %"+Индикатор;

Сообщение.Сообщить();

конецесли;

Для нКолонкаТФ = 1 ПО КолВоКолонокФайла Цикл

нКолонка = СтрЗаменить(нКолонкаТФ, Символы.НПП, "");

Область = ОбластьФайла.ПолучитьОбласть("R"+нСтрока+"C"+нКолонка);

ТекущаяОбласть = Область.ТекущаяОбласть;

ЗначениеЯчейки = СокрЛП(ТекущаяОбласть.Текст);

...

обрабатываем файл

...

конеццикла;

Сообщение = Новый СообщениеПользователю;

Сообщение.Текст = "Загрузка завершена.";

Сообщение.Сообщить();

Клиентская часть в управляемых формах:

&НаКлиенте
Процедура Жмяк(Команда)
Режим = РежимДиалогаВыбораФайла.Открытие;
    ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);
    ДиалогОткрытияФайла.ПолноеИмяФайла = "";
    Фильтр = НСтр("ru = 'Текст'; en = 'Text'")+ "(*.xls)|*.xlsx";
    ДиалогОткрытияФайла.Фильтр = Фильтр;
    ДиалогОткрытияФайла.МножественныйВыбор = ложь;
    ДиалогОткрытияФайла.Заголовок = "Выберите файлы";
    Если ДиалогОткрытияФайла.Выбрать() Тогда
        МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;
		ФайлСМС="";
		Для Каждого ИмяФайла Из МассивФайлов Цикл
			ФайлСМС=ИмяФайла;
		конеццикла;
		если ФайлСМС<>"" тогда 			
					АдресХранилищаФайла = "";			
					Состояние("Перемещаю файл на сервер");
		            ПоместитьФайл(АдресХранилищаФайла, ФайлСМС, , Ложь, ЭтаФорма.УникальныйИдентификатор);   					
					Состояние("Обрабатывается файл "+ФайлСМС);							
					ЗапускФоновойЗагрузкиСправочника(АдресХранилищаФайла);					
					Состояние("Запущена фоновая обработка файла");
					ПодключитьОбработчикОжидания("ИндикаторВыполненияЗагрузки",1,ложь);	
		иначе
			сообщить("Файл не выбран");
		конецесли;	
	конецесли;	        

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


&НаСервере
Процедура ЗапускФоновойЗагрузкиСправочника(АдресХранилищаФайла)	
	ИмяВременногоФайлаСпр=СК_Регламентные.ЗагрузкаФайлаПредварительная(АдресХранилищаФайла);	
	МассивПараметров = Новый Массив;
	МассивПараметров.Добавить(ИмяВременногоФайлаСпр);		
	Сообщить("Адрес файла (1):"+АдресХранилищаФайла);									
	ФЗ = ФоновыеЗадания.Выполнить("СК_Регламентные.ЗагрузкаФайлаДлительная",МассивПараметров);	
	ЭтаФорма.ФоновоеИдентификатор = ФЗ.УникальныйИдентификатор;
	
							
КонецПроцедуры
&НаСервере
Функция ПолучитьСообщенияФЗ(ФЗ, Состояние = Неопределено, УдалятьСообщения = Ложь) Экспорт
	Если Состояние = Неопределено Тогда
		Состояние = ФЗ.Состояние;
	КонецЕсли;
	МассивСообщений = Новый Массив;
	Сообщения = ФЗ.ПолучитьСообщенияПользователю(УдалятьСообщения);
	Если Сообщения <> Неопределено Тогда
		Для Каждого Сообщение Из Сообщения Цикл
			МассивСообщений.Добавить(Сообщение.Текст);
		КонецЦикла;
	КонецЕсли;
	Возврат МассивСообщений;
КонецФункции

&НаСервере
Функция ОпроситьФоновые()
	прог=неопределено;
	ФЗ = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(ЭтаФорма.ФоновоеИдентификатор);
	ФСообщения=ПолучитьСообщенияФЗ(ФЗ,,истина);
	Если ФСообщения.Количество() > 0 Тогда
		Для Каждого Сообщение Из ФСообщения Цикл
			Сообщить(Сообщение);
			если найти(Сообщение,"%")>0 тогда
				Этаформа.Прогресс=СтрЗаменить(Сообщение,"Выполнено %","");			
				прог=Этаформа.Прогресс;
			конецесли;
		КонецЦикла;
	КонецЕсли;
	возврат прог;
КонецФункции
&НаКлиенте
Процедура ИндикаторВыполненияЗагрузки() Экспорт
	пр=ОпроситьФоновые();
	если пр<>неопределено тогда
		Состояние("Выполнено "+пр);
	конецесли;
КонецПроцедуры

&НаКлиенте

Процедура Жмяк(Команда)

Режим = РежимДиалогаВыбораФайла.Открытие;

ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим);

ДиалогОткрытияФайла.ПолноеИмяФайла = "";

Фильтр = НСтр("ru = 'Текст'; en = 'Text'")+ "(*.xls)|*.xlsx";

ДиалогОткрытияФайла.Фильтр = Фильтр;

ДиалогОткрытияФайла.МножественныйВыбор = ложь;

ДиалогОткрытияФайла.Заголовок = "Выберите файлы";

Если ДиалогОткрытияФайла.Выбрать() Тогда

МассивФайлов = ДиалогОткрытияФайла.ВыбранныеФайлы;

ФайлСМС="";

Для Каждого ИмяФайла Из МассивФайлов Цикл

ФайлСМС=ИмяФайла;

конеццикла;

если ФайлСМС<>"" тогда

АдресХранилищаФайла = "";

Состояние("Перемещаю файл на сервер");

ПоместитьФайл(АдресХранилищаФайла, ФайлСМС, , Ложь, ЭтаФорма.УникальныйИдентификатор);

Состояние("Обрабатывается файл "+ФайлСМС);

ЗапускФоновойЗагрузкиСправочника(АдресХранилищаФайла);

Состояние("Запущена фоновая обработка файла");

ПодключитьОбработчикОжидания("ИндикаторВыполненияЗагрузки",1,ложь);

иначе

сообщить("Файл не выбран");

конецесли;

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

&НаСервере

Процедура ЗапускФоновойЗагрузкиСправочника(АдресХранилищаФайла)

ИмяВременногоФайлаСпр=СК_Регламентные.ЗагрузкаФайлаПредварительная(АдресХранилищаФайла);

МассивПараметров = Новый Массив;

МассивПараметров.Добавить(ИмяВременногоФайлаСпр);

Сообщить("Адрес файла (1):"+АдресХранилищаФайла);

ФЗ = ФоновыеЗадания.Выполнить("СК_Регламентные.ЗагрузкаФайлаДлительная",МассивПараметров);

ЭтаФорма.ФоновоеИдентификатор = ФЗ.УникальныйИдентификатор;

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

&НаСервере

Функция ПолучитьСообщенияФЗ(ФЗ, Состояние = Неопределено, УдалятьСообщения = Ложь) Экспорт

Если Состояние = Неопределено Тогда

Состояние = ФЗ.Состояние;

КонецЕсли;

МассивСообщений = Новый Массив;

Сообщения = ФЗ.ПолучитьСообщенияПользователю(УдалятьСообщения);

Если Сообщения <> Неопределено Тогда

Для Каждого Сообщение Из Сообщения Цикл

МассивСообщений.Добавить(Сообщение.Текст);

КонецЦикла;

КонецЕсли;

Возврат МассивСообщений;

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

&НаСервере

Функция ОпроситьФоновые()

прог=неопределено;

ФЗ = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(ЭтаФорма.ФоновоеИдентификатор);

ФСообщения=ПолучитьСообщенияФЗ(ФЗ,,истина);

Если ФСообщения.Количество() > 0 Тогда

Для Каждого Сообщение Из ФСообщения Цикл

Сообщить(Сообщение);

если найти(Сообщение,"%")>0 тогда

Этаформа.Прогресс=СтрЗаменить(Сообщение,"Выполнено %","");

прог=Этаформа.Прогресс;

конецесли;

КонецЦикла;

КонецЕсли;

возврат прог;

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

&НаКлиенте

Процедура ИндикаторВыполненияЗагрузки() Экспорт

пр=ОпроситьФоновые();

если пр<>неопределено тогда

Состояние("Выполнено "+пр);

конецесли;

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

Оставить комментарий большой файл, загрузка excel, на сервере, прогресс, прогрессбар, фоновая работа

Пн	Вт	Ср	Чт	Пт	Сб	Вс
	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