Привет, ребята.
Мне нужно сохранить график., построенный на Chart, в графический файл, чтобы потом вставлять в ворд и т.д.

Если тебя bmp формат устроит то можешь делать так:

Код

Chart1.SaveToBitmapFile('C:\1.bmp');

Сам так делал когда требовалось презентации показывать где сети небыло

Помимо этого ты можешь конвертнуть полученный bmp в jpg
но как ет сделать смогу сказать во вторник дома примера нету

спасибо.
но только bmp многовато весить будет. нельзя ли сохранить (или конвертить) в pcx? или jpeg лучше? особо хорошее качество не нужно, а объем желательно сэкономить.

Ну чтобы в жпег конфертить есть такая процедура:

Код

Procedure convertToJpeg(FileName:string); var bitmap:TBitmap; Jpeg:TJpegImage; begin bitmap:=TBitmap.Create; Jpeg:=TjpegImage.Create; bitmap.LoadFromFile(FileName+'.bmp'); Jpeg.Assign(Bitmap); jpeg.SaveToFile(FileName+'.jpg'); bitmap.Free; jpeg.Free; DeleteFile(FileName+'.bmp'); end;

а вот так это выглядит в моем проекте по нажатию на кнопку сохранить график:

Код

procedure TForm1.Button1Click(Sender: TObject); begin if SaveDialog1.Execute then begin Form1.Chart1.SaveToBitmapFile(SaveDialog1.FileName+'.bmp'); end; ConvertToJpeg(SaveDialog1.FileName); end;

спасибо. все понял. ты сделал свой вклад в российскую науку

Да ладно, просто когда мне такое нада было мне никто не помог, ну а если не я буду помогать то ктоже?

если я тебя не достал, Satana, то скажи, пожалуйста, нельзя ли как-то уменьшить разрешение получившегося файл? хочется сэкономить еще место а как изменить размер, постараюсь сам разботать

Guest Вот с разрешением чесно скажу не разбирался, можно наверное какнить сделать как совет - поищи функцию которая конвертит файл jpeg в jpeg с заданными параметрами да и делов то.

И еще можешь попробовать SaveToMetaFile('C:\1.wmf');
это у тебя получится видовс мета файл не знаю как с какчеством картинки но то что размер у нее будет маленький ет точна

ЗЫ тогда если не впадлу будет напиши про вмф нормальное какчество там получается или нет?
Добавлено @ 08:26
Так вот ща попробовал получился файл размером в 39 кб, но как я понял размер зависит от градиентов "за графиком" если в общем стенки без заливки то получается на много меньше порядка 5-6 кб.

Можешь так же попробовать SaveToMetaFileEnh('c:\1.wmf') тут файлик чуть поменьше получается

Если надо уменьшить разрешение, то делай так:

Код

Procedure convertToJpeg(const FileName:string; w, h : integer); // w и h - ширина и высота выходного файла var bitmap, bmp:TBitmap; Jpeg:TJpegImage; begin bitmap:=TBitmap.Create; Jpeg:=TjpegImage.Create; bitmap.LoadFromFile(FileName+'.bmp'); bmp := TBitmap.Create; bmp.Width := w; bmp.Height := h; bmp.Canvas.StretchDraw (Rect(0, 0, w, h), bitmap); Jpeg.Assign(bmp); jpeg.SaveToFile(FileName+'.jpg'); bitmap.Free; jpeg.Free; bmp.free; DeleteFile(FileName+'.bmp'); end;

Я попробовал различные сохранения одного и того же графика, вот что получил:
bmp - 1349 kb
jpg - 93 kb
wmf - 81 kb
wmf(Enh) - 50 kb
причем bmp и jpg размыты, а wmf четкий (после вставки в ворд), это то, что мне надо!