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

ТабДокумент = новый ТабличныйДокумент;    
    Макет = ПолучитьОбщийМакет("ПФ_MXL_ОтвесСФОТО");    
    ОбластьПодвал                       = Макет.ПолучитьОбласть("ОбластьПодвал");
    Connection = Новый COMОбъект("ADODB.Connection");
    Stream     = Новый COMОбъект("ADODB.Stream");
    Recordset  = Новый COMОбъект("ADODB.Recordset");
    Connection.ConnectionString = "Driver=Firebird/InterBase(r) driver;" +
    "Dbname=SASHKA/3050:C:\Program Files\VesySoft\Server\DataBase\VESYEVENT.GDB;" +  // Исправьте на свой IP, порт и путь к базе данных !
    "UID=SYSDBA;" +                                     // Исправьте на свое имя пользователя !
    "PWD=masterkey;" +                                  // Исправьте на правильный пароль !
    "CHARSET=WIN1251;" +                                // Исправьте на свою кодировку подключения !!!
    "client=C:\Program Files\Firebird\Firebird_2_5\bin\fbclient.dll";
    Connection.ConnectionTimeOut = 60;
    Connection.CommandTimeout = 60;
    Connection.CursorLocation = 3;    
    Попытка
        Connection.Open();
    Исключение
        Сообщить("Подключение к БД <Супер окна> не установлено. Проверьте настройки подключения");
        Connection = Неопределено;
    КонецПопытки;
    Recordset.ActiveConnection = Connection;
    RecordsetТекст = "SELECT VW_SP_REG.DATETIME_UPDATE,VW_SP_REG.CODE,VW_SP_REG.MASSA,VW_SP_REG.PHOTO1, VW_SP_REG.PHOTO2, VW_SP_REG.EVENS_REG
    |FROM VW_SP_REG VW_SP_REG
    | WHERE (VW_SP_REG.EVENS_REG='Незафиксированный проезд транспорта'
    | AND (VW_SP_REG.DATETIME_UPDATE Between {ts '"+Строка(Формат(Отчет.НачалоПериода,"ДФ=yyyy-MM-dd")+" "+Формат(НачалоДня(Отчет.НачалоПериода),"ДЛФ=T"))+".000'} And {ts '"+Строка(Формат(Отчет.КонецПериода,"ДФ=yyyy-MM-dd")+" "+Формат(КонецДня(Отчет.КонецПериода),"ДЛФ=T"))+".000'}))";
    Recordset.Open(RecordsetТекст);
    Stream.Type = 1;
    Stream.Open();
    Пока Recordset.EOF() = 0 Цикл
        Stream.Write(RecordSet.Fields("PHOTO2").Value);
        ИмяФайла = RecordSet.fields("CODE").Value;
        фрис = КаталогВременныхФайлов() + ИмяФайла + ".png";
        Stream.SaveToFile(фрис);
        Stream.Close();
        Файл = Новый ДвоичныеДанные(фрис);
        УдалитьФайлы(фрис);
        ОбластьПодвал.Рисунки.Фото11.Картинка = Новый Картинка(Файл);
        ТабДокумент.Вывести(ОбластьПодвал);
    КонецЦикла;

что не так???

а ничего что Stream.Open() один раз, а Stream.SaveToFile(фрис); Stream.Close(); много раз в цикле?

(3) Поменял, пишет после первого прохо "Произошла исключительная ситуация (ADODB.Stream): Не удается записать файл.

Пока Recordset.EOF() = 0 Цикл
        Stream.Open();
        Stream.Write(RecordSet.Fields("PHOTO2").Value);
        ИмяФайла = RecordSet.fields("CODE").Value;
        фрис = КаталогВременныхФайлов() + ИмяФайла + ".gif";
        Stream.SaveToFile(фрис);
        Файл = Новый ДвоичныеДанные(фрис);
        ЗапуститьПриложение(фрис);
        УдалитьФайлы(фрис);
        ОбластьПодвал.Рисунки.Фото11.Картинка = Новый Картинка(Файл);
        ТабДокумент.Вывести(ОбластьПодвал);
        Stream.Close();
    КонецЦикла;

Up

( ну что не так делаю

удалять файло надо в конце

для начала

(8)      Файл = Новый ДвоичныеДанные(фрис);
        УдалитьФайлы(фрис);

ТабДокумент = новый ТабличныйДокумент;    
    Макет = ПолучитьОбщийМакет("ПФ_MXL_ОтвесСФОТО");    
    ОбластьПодвал                       = Макет.ПолучитьОбласть("ОбластьПодвал");
    Connection = Новый COMОбъект("ADODB.Connection");
    Recordset  = Новый COMОбъект("ADODB.Recordset");
    Connection.ConnectionString = "Driver=Firebird/InterBase(r) driver;" +
    "Dbname=SASHKA/3050:C:\Program Files\VesySoft\Server\DataBase\VESYEVENT.GDB;" +  // Исправьте на свой IP, порт и путь к базе данных !
    "UID=SYSDBA;" +                                     // Исправьте на свое имя пользователя !
    "PWD=masterkey;" +                                  // Исправьте на правильный пароль !
    "CHARSET=WIN1251;" +                                // Исправьте на свою кодировку подключения !!!
    "client=C:\Program Files\Firebird\Firebird_2_5\bin\fbclient.dll";
    Connection.ConnectionTimeOut = 60;
    Connection.CommandTimeout = 60;
    Connection.CursorLocation = 3;    
    Попытка
        Connection.Open();
    Исключение
        Сообщить("Проверьте настройки подключения");
        Connection = Неопределено;
    КонецПопытки;
    Recordset.ActiveConnection = Connection;
    RecordsetТекст = "SELECT VW_SP_REG.DATETIME_UPDATE,VW_SP_REG.CODE,VW_SP_REG.MASSA,VW_SP_REG.PHOTO1, VW_SP_REG.PHOTO2, VW_SP_REG.EVENS_REG
    |FROM VW_SP_REG VW_SP_REG
    | WHERE (VW_SP_REG.EVENS_REG='Незафиксированный проезд транспорта'
    | AND (VW_SP_REG.DATETIME_UPDATE Between {ts '"+Строка(Формат(Отчет.НачалоПериода,"ДФ=yyyy-MM-dd")+" "+Формат(НачалоДня(Отчет.НачалоПериода),"ДЛФ=T"))+".000'} And {ts '"+Строка(Формат(Отчет.КонецПериода,"ДФ=yyyy-MM-dd")+" "+Формат(КонецДня(Отчет.КонецПериода),"ДЛФ=T"))+".000'}))";
    Recordset.Open(RecordsetТекст);
    Stream     = Новый COMОбъект("ADODB.Stream");
    Stream.Type = 1;
    Stream.Open();
    Н = 0;
    Пока Recordset.EOF() = 0 Цикл
        Н = Н +1;
        ИмяФайла = Строка(RecordSet.Fields("PHOTO1").Value)+Н;
        Stream.Write(RecordSet.Fields("PHOTO1").Value);
        фрис = КаталогВременныхФайлов() + ИмяФайла + ".gif";
        Stream.SaveToFile(фрис);
        Файл = Новый ДвоичныеДанные(фрис);
        Попытка
            Картинка = Новый Картинка(Файл,Ложь);
        Исключение
        КонецПопытки;    
        УдалитьФайлы(фрис);
        ОбластьПодвал.Рисунки.Фото11.Картинка = Картинка;
        ТабДокумент.Вывести(ОбластьПодвал);
    КонецЦикла;                                    
    Recordset.Close();
    Stream.Close();
    Возврат ТабДокумент

да ё.. после закрытия стрима удаляй временной файло, для начала

ну или хотя бы после вывода в область

Н = Н +1;
        ИмяФайла = Строка(RecordSet.Fields("PHOTO1").Value)+Н;
        Stream.Write(RecordSet.Fields("PHOTO1").Value);
        фрис = КаталогВременныхФайлов() + ИмяФайла + ".gif";
        Stream.SaveToFile(фрис);
        Файл = Новый ДвоичныеДанные(фрис);
        Попытка
            Картинка = Новый Картинка(Файл,Ложь);
        Исключение
        КонецПопытки;    
        ОбластьПодвал.Рисунки.Фото11.Картинка = Картинка;
        ТабДокумент.Вывести(ОбластьПодвал);
        УдалитьФайлы(фрис)

(14) и ? не работает ?

сама картинка то хоть создалась ?

(16) Картинка создалась когда, много проходов делает то ошибку выдает

какую ?

Произошла исключительная ситуация (ADODB.Stream): Не удается записать файл.

Н = 0;
    Пока Recordset.EOF() = 0 Цикл
        Н = Н +1;
        ИмяФайла = Строка(RecordSet.Fields("PHOTO1").Value)+Н;
        Stream.Write(RecordSet.Fields("PHOTO1").Value);
        фрис = КаталогВременныхФайлов() + ИмяФайла + ".gif";
        Stream.SaveToFile(фрис);
        Файл = Новый ДвоичныеДанные(фрис);
        Попытка
            Картинка = Новый Картинка(Файл,Ложь);
        Исключение
        КонецПопытки;    
        ОбластьПодвал.Рисунки.Фото11.Картинка = Картинка;
        ТабДокумент.Вывести(ОбластьПодвал);
        УдалитьФайлы(фрис);

Вроде удаляю а темп забивается

Воткни в попытку- исключение - смотри на имя файла. Мот там мусор в имени - и записать такое файло не может (слэш там, например)

(22) Получается что в цикле 17 записей по дате а цикл как будто бесконечный, хотя запрос пишу в Microsoft Query

:)

RecordSet.MoveNext(); есть в цикле хоть ?
:)

чето на сам код я и не посмотрел, вообще..

а так то конечно - бесконечный цикл ..по первой записи

:)

(26)  Так че адо вставить RecordSet.MoveNext(); и все?

Пока Recordset.EOF() = 0 Цикл
        RecordSet.MoveNext();
        Н = Н +1;
        ИмяФайла = Строка("PHOTO1")+"_"+Строка(Н);
        Stream.Write(RecordSet.Fields("PHOTO1").Value);
        фрис = КаталогВременныхФайлов() + ИмяФайла + ".png";
        Stream.SaveToFile(фрис);
        Файл = Новый ДвоичныеДанные(фрис);
        Попытка
            Картинка = Новый Картинка(Файл,Ложь);
        Исключение
        КонецПопытки;    
        ОбластьПодвал.Рисунки.Фото11.Картинка = Картинка;
        ТабДокумент.Вывести(ОбластьПодвал);
        УдалитьФайлы(фрис);
    КонецЦикла;

(28) да, только не в начало а в конец цикла - а то первую запись пропустишь

Произошла исключительная ситуация (ADODB.Field): BOF или EOF имеет значение True, либо текущая запись удалена. Для выполняемой операции требуется текущая запись.

(30) РАБОТАЕТ!!!!!!!!!!!!!!!!!

RecordSet.MoveFirst();
Пока RecordSet.EOF() = 0 Цикл
    //тут твой хлам

    RecordSet.MoveNext();  
КонецЦикла;

(30) Ты есть на инфостарте кину мани))

(33) Спасибо!!!

(34) есть, забанен я там.
:)

да и ..переводы там  были закрыты, можно только через платный вопрос перевести

(37) Печалька