Экспорт трех DBChart в Exel

@virus_r · Регистрация: 16.11.2010

Студворк — интернет-сервис помощи студентам

Короче проблема такая. Есть DBGrid. При клике на строке рисуется сложный график в DBChart. Необходимо кликнуть на трех разных строках DBGrid и полученные 3 графика экспортировать в Exel.
Как это можно реализовать?

Добавлено через 23 часа 58 минут
И ни одного ответа ((( Люди помогите очень нужно для работы...

@SAMZ · 29.03.2011, 15:57

Ни одного ответа потому, что вопрос сформулирован несколько расплывчато. Проблема у Вас где? В выборе трех строк или в экспорте графиков.

@virus_r · 30.03.2011, 03:47 **[ТС]**

Попробую расписать подробнее... Есть база. Там в одной из таблиц в каждой строке есть ячейка blob. В этом blob лежит массив точек заархивированный zlib-ом. На форме сделал DBGrid в который закинул эту таблицу. При нажатии на строку DBGrid рисуется график по данным взятым из ячейки blob. Так вот проблема в том, что нужно как то запомнить на какие строки DBGrid нажал пользователь, взять из соответствующих полей массивы точек, построить графики (причем можно их даже на форме не отображать) и перекинуть в отчет Exel.

@SAMZ · 30.03.2011, 06:01

Сообщение от virus_r

что нужно как то запомнить на какие строки DBGrid

Это легко делается используя возможности объекта TDBGrid. Ниже пример, как по двйному щелчку пометить строку

Delphi
1
2
3
4
procedure TfmStart.RxDBGrid1DblClick(Sender: TObject);
begin
  RxDBGrid1.SelectedRows.CurrentRowSelected  := not RxDBGrid1.SelectedRows.CurrentRowSelected;
end;

Здесь, правда Rx - компонента, но это в данном случае неважно.
Далее, помеченную строку надо выделить

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TfmStart.RxDBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin with TRxDBGrid(Sender).Canvas do begin
  if RxDBGrid1.SelectedRows.CurrentRowSelected then begin
   Font.Style := [fsBold];
   Font.Color := clWhite;
   Brush.Color := clGreen;  ;
  end;
  FillRect(Rect);
  TextOut(Rect.left, Rect.top, Column.Field.text);
end end;

Ну, и, когда надо, цикл по выделенным строкам

Delphi
1
2
3
4
for i := 0 to RxDBGrid1.SelectedRows.Count-1 do begin
    RxDBGrid1.DataSource.DataSet.GotoBookmark(pointer(RxDBGrid1.SelectedRows.Items[i]));
  //здесь тело цикла
end;

взять из соответствующих полей массивы

Надо прочитать блоб и, если знать, как (по какому фориату) их (точки) туда загнали, распарсить эту информацию и передеть в ексель. Тут проблем не вижу. Но, если бы с в целом решал такую задачу, то в блобах такую инфу бы не хранил, а если бы и хранил, то, скорее всего в формате xml

@virus_r · 30.03.2011, 17:05 **[ТС]**

С вытаскиванием данных блоба проблем нет. База не моя (я с ней просто работаю) поэтому выбрать альтернативу блоба не получится хотя блоб помоему хороший вариант потому что там от 20 до 40 тысяч координат точек на каждый график. Ну и плюс защита информации.
В целом огромное спасибо SAMZ +100.

Добавлено через 2 часа 52 минуты
Если покажешь как закинуть DBChart в Exel, то вобще буду благодарен )))

Добавлено через 10 минут
Пока не на работе не могу проверить твои коды, но помоему во втором коде лишняя ) и ;
Специально наверно поставил )))

@SAMZ · 30.03.2011, 17:16

Сообщение от virus_r

Если покажешь как закинуть DBChart в Exel,

Ее богу, понятия не имею. Да, и зачем! Есть координаты точек. Зкинул из в ексел, а ексел по точкам сам построит график

Сообщение от virus_r

но помоему во втором коде лишняя )

Не понял о каком втором коде речь?

@virus_r · 31.03.2011, 10:28 **[ТС]**

Код, где помеченную строку надо выделить:
в 8 строке ; лишняя
а в 3 думал скобка лишняя но потом увидел что нет ))

Добавлено через 7 часов 39 минут
Проблему с экспортом DBChart решил с помощью буфера.
DBChart1.CopyToClipboardBitmap;
Потом сделал вставку в активную ячейку Excel.

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

@virus_r 1 / 1 / 0 Регистрация: 16.11.2010 Сообщений: 9

	Экспорт трех DBChart в Exel 29.03.2011, 14:36. Показов 1971. Ответов 6 Метки нет (Все метки) Короче проблема такая. Есть DBGrid. При клике на строке рисуется сложный график в DBChart. Необходимо кликнуть на трех разных строках DBGrid и полученные 3 графика экспортировать в Exel. Как это можно реализовать? Добавлено через 23 часа 58 минут И ни одного ответа ((( Люди помогите очень нужно для работы... 0

@SAMZ 1263 / 706 / 62 Регистрация: 21.12.2009 Сообщений: 2,256
	29.03.2011, 15:57
	Ни одного ответа потому, что вопрос сформулирован несколько расплывчато. Проблема у Вас где? В выборе трех строк или в экспорте графиков. 0

@virus_r 1 / 1 / 0 Регистрация: 16.11.2010 Сообщений: 9
	30.03.2011, 03:47 [ТС]
	Попробую расписать подробнее... Есть база. Там в одной из таблиц в каждой строке есть ячейка blob. В этом blob лежит массив точек заархивированный zlib-ом. На форме сделал DBGrid в который закинул эту таблицу. При нажатии на строку DBGrid рисуется график по данным взятым из ячейки blob. Так вот проблема в том, что нужно как то запомнить на какие строки DBGrid нажал пользователь, взять из соответствующих полей массивы точек, построить графики (причем можно их даже на форме не отображать) и перекинуть в отчет Exel. 0

@virus_r 1 / 1 / 0 Регистрация: 16.11.2010 Сообщений: 9
	30.03.2011, 17:05 [ТС]
	С вытаскиванием данных блоба проблем нет. База не моя (я с ней просто работаю) поэтому выбрать альтернативу блоба не получится хотя блоб помоему хороший вариант потому что там от 20 до 40 тысяч координат точек на каждый график. Ну и плюс защита информации. В целом огромное спасибо SAMZ +100. Добавлено через 2 часа 52 минуты Если покажешь как закинуть DBChart в Exel, то вобще буду благодарен ))) Добавлено через 10 минут Пока не на работе не могу проверить твои коды, но помоему во втором коде лишняя ) и ; Специально наверно поставил ))) 0

@virus_r 1 / 1 / 0 Регистрация: 16.11.2010 Сообщений: 9
	31.03.2011, 10:28 [ТС]
	Код, где помеченную строку надо выделить: в 8 строке ; лишняя а в 3 думал скобка лишняя но потом увидел что нет )) Добавлено через 7 часов 39 минут Проблему с экспортом DBChart решил с помощью буфера. DBChart1.CopyToClipboardBitmap; Потом сделал вставку в активную ячейку Excel. 1