Имя: Пароль:
1C
 
Не могу разобраться с программным заполнением картинок на форме
0 vozgar2
 
03.09.15
16:14
Необходимо разместить 6 картинок загруженных из интернета, вот код:

Для А=1 По 5 Цикл
        
        Попытка
            УРЛ = "";
            ПоискНаСервере(УРЛ, СчетчикУдачных);
            Номер = 1;
            ФайлНаДиске = ПолучитьИмяВременногоФайла("jpg");
            КопироватьФайл(УРЛ,ФайлНаДиске);
            ФайлНаДиске = Новый Файл(ФайлНаДиске);            
            ДвоичныеДанные = Новый ДвоичныеДанные(ФайлНаДиске.ПолноеИмя);
            ЭтаФорма["АдресКартинки"+А]=           ПоместитьВоВременноеХранилище(ДвоичныеДанные);
            Элементы["АдресКартинки"+А].РазмерКартинки = РазмерКартинки.Пропорционально;
            Номер = Номер+1;
            СчетчикУдачных = СчетчикУдачных + 1;
        Исключение
            СчетчикУдачных = СчетчикУдачных + 1;
        КонецПопытки;
    КонецЦикла;
    
    //Попытка
    //    УРЛ = "";
    //    ПоискНаСервере(УРЛ, СчетчикУдачных);
    //    Номер = 1;
    //    ФайлНаДиске = ПолучитьИмяВременногоФайла("jpg");
    //    КопироватьФайл(УРЛ,ФайлНаДиске);
    //    ФайлНаДиске = Новый Файл(ФайлНаДиске);            
    //    ДвоичныеДанные = Новый ДвоичныеДанные(ФайлНаДиске.ПолноеИмя);
    //    ЭтаФорма["АдресКартинки"+6]=           ПоместитьВоВременноеХранилище(ДвоичныеДанные);
    //    Элементы["АдресКартинки"+6].РазмерКартинки = РазмерКартинки.Пропорционально;
    //    Номер = Номер+1;
    //    СчетчикУдачных = СчетчикУдачных + 1;
    //Исключение
    //    СчетчикУдачных = СчетчикУдачных + 1;
    //КонецПопытки;
Но заполняется только пятый элемент формы, а если раскомментировать последний кусок кода, то заполняется только шестой.
Где я туплю?
1 vozgar2
 
03.09.15
16:27
up
2 Kiks
 
03.09.15
17:10
Номер = 1 попробуй за пределы цикла вывести, если он где-то используется.