Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.05.2014, 14:19   #1
Ky3Heu,
Пользователь
 
Регистрация: 01.04.2009
Сообщений: 94
Смущение Вывод картинки в Excel

Доброго времени суток. Столкнулся с проблемой вставки картинки в Excel из буфера обмена.
Код:
  //загружаем картинку из БД. Secur - TADOQuery
Blob:=TADOBlobStream.Create(TBlobField(DMF.Secur.FieldByName('podp')),bmRead);
bmp.LoadFromStream(Blob);
//дальше коннект к Екселю через TExcelApplication
//впихиваю картинку в буфер обмена
ClipBoard.Assign(bmp);
//Вариант 1
xl.Range['F47',EmptyParam].PasteSpecial(xlPasteAll,xlPasteSpecialOperationNone,  True, False); //ошибку выдает
//вариант 2
xSheet.Range['F47',EmptyParam].PasteSpecial(xlPasteAll,xlPasteSpecialOperationNone, True, False); //та же ошибка
//вариант 3
xSheet.Paste('F47','F47', LCID);
//вариант 4
xl.Range['F47',EmptyParam].Insert(xlPasteAll,xlPasteSpecialOperationNone) ;
//ну и вариант 5
xl.Range['F47',EmptyParam] .Select;
xl.ActiveCell.PasteSpecial(xlPasteAll,xlPasteSpecialOperationNone, True, False);
Все варианты выдают ошибку. Как сделать уже не знаю даже(((( Через Ctrl+v вставляется, значит картинка в буфер прилетает, а вот программно не хочет.
Да и, кстати: xSheet :_Worksheet;
По ракетам и хоккею - Россияне всех сильней!
Ky3Heu, вне форума Ответить с цитированием
Старый 23.05.2014, 09:44   #2
Ky3Heu,
Пользователь
 
Регистрация: 01.04.2009
Сообщений: 94
По умолчанию

Проблему решил!!!)))))))). Спасибо всем, кто хотел помочь.
Код:
xSheet.PasteSpecial('Рисунок',False,false, EmptyParam,EmptyParam,EmptyParam, True, LCID);
Втыкает картинку в верхний левый угол файла.
По ракетам и хоккею - Россияне всех сильней!
Ky3Heu, вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вывод картинки cocacola Qt и кроссплатформенное программирование С/С++ 11 11.01.2013 15:30
Вывод картинки Axrik Общие вопросы C/C++ 2 06.02.2012 16:46
Вывод картинки попиксельно SmilingBull Мультимедиа в Delphi 6 11.01.2011 02:01
Вывод картинки с рамкой Syltan PHP 6 10.03.2010 02:18
вывод картинки на экран Olejik Общие вопросы C/C++ 6 15.09.2009 20:43