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

[Оля2394]

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

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

[Serge_Bliznykov]

как экспортировать её в html

а никак!
В общем случае картинок внутри HTML нет и быть не может.
Сохраняете картинку просто в виде обычного графического файла (формата BMP, JPG, PNG и т.д.), а внутри HTML делаете ссылочку на файл (см. тэг <img> )

[uberchel]

Можно прямо внутри html, для этого вам надо код картинки закодировать в base_64 после чего в теле html вызывать:
<img src="data:image/png;base64,тут код картинки">
в зависимости от типа картинки менять png|jpg|jpeg|gif|bmp

[Оля2394]

подскажите пожалуйста, как это сделать?

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

[Человек_Борща]

а никак!
В общем случае картинок внутри HTML нет и быть не может.

SVG формат с вами не согласен.

[Serge_Bliznykov]

Человек_Борща, ну, во-первых, мы уже уяснили, что я был не прав, в пост #3 uberchel показал конструкцию <img src="data:image...

а во-вторых, на мой взгляд, SVG это не картинка, это команды для построения рисунка, что, в общем случае, совсем даже не одно и то же, что картинка.
Ну, например, если Вас не затруднит, покажите, пожалуйста, код на Delphi, который может картинку из form1.Image1.Picture сохранить в формате SVG.