Экспорт картинки в html

@Оля94 · Регистрация: 20.12.2013

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

Всем привет!
создаю диаграмму и экспортирую в виде картинки из Еxcel'я, как экспортировать её в html? саму картинку достаю из буфера.

Delphi
1
2
3
4
5
6
7
8
9
exSh := exBook.Worksheets[1];
  exChart := exSh.ChartObjects(1).Chart;
  exChart.CopyPicture(Format:=xlBitmap);
  //Забираем изображение диаграммы из буфера обмена Windows.
  if Clipboard.HasFormat(CF_ENHMETAFILE) then
  begin
    form1.Image1.Picture.Metafile.Assign(Clipboard);
    form1.Image1.Stretch := True;
  end

@krapotkin · 28.04.2015, 10:18

странный вопрос - в HTML все картинки имеют источник
запрос на источник должен отдавать файл с картинкой
самый простой случай - картинка лежит в готовом файле и сервер ее отдает
сложный - когда сервер формирует ее на лету, и в реальности картинка не существует

о чем вопрос-то?
остальной html уже есть?

@Оля94 · 02.05.2015, 10:12 **[ТС]**

надеюсь, у меня "самый простой случай"

картинку у меня есть, точнее она создается, я копирую диаграмму из excel'я, достаю из буфера и сохраняю как изображение:

Delphi
1
2
3
4
5
6
7
exChart := exSh.ChartObjects(1).Chart;
  exChart.CopyPicture(Format:=xlBitmap);
 if Clipboard.HasFormat(CF_ENHMETAFILE) then
  begin
  form1.Image1.Picture.Metafile.Assign(Clipboard);
  form1.Image1.Picture.SaveToFile(ExtractFilePath(Application.ExeName) + ('q1.bmp'));
end;

потом пытаюсь разместить:

Delphi
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
procedure TDBGridEhExportAsHTML.WritePrefix;
var s: String;
  CellPaddingInc: String;
begin
  PutL('<html>');
  PutL('<head>');
  PutL('<title>');
  PutL(DBGridEh.Name);
  PutL('</title>');
{$IFDEF EH_LIB_12}
  PutL('<meta http-equiv="Content-Type" content="text/html; charset=utf-8">'); 
{$ENDIF}
  PutL('</head>');
 
  PutL('<body>');
 
  s := '<table ';
  if DBGridEh.Flat then CellPaddingInc := '1' else CellPaddingInc := '2';
  if DBGridEh.Options * [dgColLines, dgRowLines] <> [] then
    if DBGridEh.Ctl3D then s := s + 'BORDER=1 CELLSPACING=0 CELLPADDING=' + CellPaddingInc
    else s := s + 'BORDER=0 CELLSPACING=1 CELLPADDING=' + CellPaddingInc
  else
    s := s + 'BORDER=0 CELLSPACING=0 CELLPADDING=' + CellPaddingInc;
  s := s + ' BGCOLOR=#' + GetColor(DBGridEh.FixedColor) + '>' + #13#10;
  PutL(s);
  PutL ('<img src="q1.bmp" >')   //<<<-----------------вставляю картинку-
end;

но изображение не открывается

Добавлено через 3 минуты
Картинка получается размером, чуть свыше 7мб, "более легкие картинки"(вставленные для проверки) он открывает

@krapotkin · 02.05.2015, 11:22

сохраняй картинку в jpg и все будет норм

@Оля94 · 02.05.2015, 14:10 **[ТС]**

никакой разницы

@krapotkin · 02.05.2015, 14:20

тогда давай и картинку и html что получился

@Оля94 · 02.05.2015, 14:38 **[ТС]**

Desktop.rar

@Оля94 · 02.05.2015, 14:45 **[ТС]**

всё в Desktop'e

@krapotkin · 02.05.2015, 16:29

???
а где картинка-то?

Добавлено через 2 минуты
и еще хотелось бы узнать как по-вашему содержимое формата CF_ENHMETAFILE из clipboad сохраняется в формате bmp ??

@Оля94 · 02.05.2015, 17:00 **[ТС]**

всё в Desktop'e

и еще хотелось бы узнать как по-вашему содержимое формата CF_ENHMETAFILE из clipboad сохраняется в формате bmp ??

если бы я в этом так круто разбиралась, то вряд ли бы просила помощи

пробовала сохранить в jpg, та же история.
Сейчас высветилось: qq.jpg: Этот файл не является изображением.

@krapotkin · 02.05.2015, 19:39

девонька, я не знаю, подозреваешь ли ты, что у нас с тобой разные десктопы?
и на моем твоего файла отродясь не водилось

@Оля94 · 03.05.2015, 06:08 **[ТС]**

html&image.rar

@krapotkin · 03.05.2015, 06:49

гипотеза подтвердилась ))
ты в курсе, что у файлов бывают разные форматы?
и если ты переименуешь файл, от этого его содержимое не изменится
твой файл записан в формате emf и он не станет jpg пока его не сохранить именно как jpeg
Сохранение картинки из Image

И еще, если ты не перестанешь писать в файл полный путь к графическому файлу, то никто кроме тебя, не сможет увидеть его в составе твоего html. Используй относительные пути.

@Оля94 · 05.05.2015, 10:00 **[ТС]**

Дяденька Крапоткин

вы меня возненавидите, но у меня не получается

Delphi
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
31
32
33
34
35
36
37
procedure TForm2.Button2Click(Sender: TObject );
const
  //Группа констант XlCopyPictureFormat.
  xlBitmap = 2;
  xlPicture = -4147; msoPicture = 13;
var
  exApp, exBook, exSh, exChart : OleVariant;
  Od : TOpenDialog;            Graphic: TGraphic;
  Bmp: TBitmap;  Bitmap: TBitmap;   jpg:tjpegimage;
begin
  //Запуск экземпляра Excel и получение ссылки на интерфейс корневого объекта (Excel.Application).
  exApp := CreateOleObject('Excel.Application');
  //Открываем раб. книгу и получаем ссылку на её интерфейс.
  exBook := exApp.Workbooks.Open(ExtractFilePath(Application.ExeName) + ('XK/')+(form1.edit1.text));
  //Ссылка на интерфейс первого листа рабочей книги.
  exSh := exBook.Worksheets[1];
exChart := exSh.ChartObjects(1).Chart;
 exChart.CopyPicture(Format:=xlPicture);  form1.label2.Caption:='1';
  //Забираем изображение диаграммы из буфера обмена Windows.
 
 form1.Image1.Picture.Assign(Clipboard);
  form1.Image1.Stretch := True;
  exBook.Close; //Закрываем рабочую книгу.
end;
 
procedure TForm2.Button3Click(Sender: TObject);
var
  jpg: TJpegImage;
begin
  jpg := TJpegImage.Create;
  {присваиваем ему изображение}
  jpg.Assign(form1.image1.picture.graphic);
  jpg.Compress;
  jpg.SaveToFile(ExtractFilePath(Application.ExeName) + ('OutputHTML/')+(form1.edit1.text) + ('.jpg'));
 
  jpg.free;
end

выходит ошибка:cannot assign a tmetafile a tjpegimage, помогите пожалуйста!!!

@krapotkin · 05.05.2015, 14:02

Сообщение от Оля94

вы меня возненавидит

с чего бы?
просто изначально именно этого вопроса я ожидал)))
все упирается в конвертирование wmf -- bmp

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  MetaFile : TMetafile;
  Bitmap : TBitmap;
begin
  Metafile := TMetaFile.Create;
  Bitmap := TBitmap.Create;
try
  MetaFile.LoadFromFile(WMFFileName) ;
  with Bitmap do
  begin
    Height := Metafile.Height;
    Width := Metafile.Width;
    Canvas.Draw(0, 0, MetaFile) ;
    SaveToFile(BMPFileName) ;
  end;
finally
  Bitmap.Free;
  MetaFile.Free;
end;
end;

этот кусок для примера
общая идея. нужно нарисовать EMF на BMP
я не уверен, дает ли рисовать на себе JPEGImage.Canvas
если да, то тут заменяем TBitmap на TGpegImage
если нет, то сначала делаем как тут, потом как у вас было, делаем Assign из bmp в jpeg

@Оля94 · 05.05.2015, 16:01 **[ТС]**

Всё работает! спасибо, дяденька Крапоткин

Новые блоги и статьи Все статьи Все блоги /
Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	1С: Контроль уникальности заводского номера Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере документа выдачи шин для спецтехники с табличной частью. Данные берутся из регистра сведений, по которому настроено. . .	Хочу заставить корпорации вкладываться в здоровье сотрудников: делаю мат модель здравосохранения anaschu 22.03.2026 e7EYtONaj8Y Z4Tv2zpXVVo https:/ / github. com/ shumilovas/ med2. git
1С: Программный отбор элементов справочника по группе Maks 22.03.2026 Установка программного отбора элементов справочника "Номенклатура" из модуля формы документа. В качестве фильтра для отбора справочника служит группа номенклатуры. Отбор по наименованию группы. . .	Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	1С: Программный отбор элементов справочника по значению перечисления Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит значение перечислений. / / Событие "НачалоВыбора" реквизита на форме. . .

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	28.04.2015, 10:18
	странный вопрос - в HTML все картинки имеют источник запрос на источник должен отдавать файл с картинкой самый простой случай - картинка лежит в готовом файле и сервер ее отдает сложный - когда сервер формирует ее на лету, и в реальности картинка не существует о чем вопрос-то? остальной html уже есть? 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	02.05.2015, 11:22
	сохраняй картинку в jpg и все будет норм 0

@Оля94 1 / 1 / 1 Регистрация: 20.12.2013 Сообщений: 37
	02.05.2015, 14:10 [ТС]
	никакой разницы 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	02.05.2015, 14:20
	тогда давай и картинку и html что получился 0

@Оля94 1 / 1 / 1 Регистрация: 20.12.2013 Сообщений: 37
	02.05.2015, 14:45 [ТС]
	всё в Desktop'e 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	02.05.2015, 16:29
	??? а где картинка-то? Добавлено через 2 минуты и еще хотелось бы узнать как по-вашему содержимое формата CF_ENHMETAFILE из clipboad сохраняется в формате bmp ?? 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	02.05.2015, 19:39
	девонька, я не знаю, подозреваешь ли ты, что у нас с тобой разные десктопы? и на моем твоего файла отродясь не водилось 0

@Оля94 1 / 1 / 1 Регистрация: 20.12.2013 Сообщений: 37
	03.05.2015, 06:08 [ТС]
	html&image.rar 0

@krapotkin 6849 / 4676 / 1464 Регистрация: 14.04.2014 Сообщений: 20,671 Записей в блоге: 21
	03.05.2015, 06:49
	гипотеза подтвердилась )) ты в курсе, что у файлов бывают разные форматы? и если ты переименуешь файл, от этого его содержимое не изменится твой файл записан в формате emf и он не станет jpg пока его не сохранить именно как jpeg Сохранение картинки из Image И еще, если ты не перестанешь писать в файл полный путь к графическому файлу, то никто кроме тебя, не сможет увидеть его в составе твоего html. Используй относительные пути. 1

@Оля94 1 / 1 / 1 Регистрация: 20.12.2013 Сообщений: 37
	05.05.2015, 16:01 [ТС]
	Всё работает! спасибо, дяденька Крапоткин 0