Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.01.23;
Скачать: CL | DM;

Вниз

Сохранение Chart в Jpeg   Найти похожие ветки 

 
goga   (2004-01-11 08:37) [0]

Как это сделать по-человечески? У него метод есть SaveToBitmapFile и я делаю через ж., то есть сохраняю в битмап в temp директории винды(кстати интересно : ее я получаю через GetWindowsDirectory + "\Temp", но ведь в 2000/XP Temp у каждлого пользователя свой), потом загружаю из этого файла в TBitmap, затем JpegImage.Assisgn и только потом сохраняю в jpeg"е


 
Думкин ©   (2004-01-11 08:52) [1]

Из переменных окружения брать путь можно,например.

Совсем необязательно в файл, можно работать с канвой и сохранять во временный БМП в памяти, а потом в ЖПЕГ.


 
goga   (2004-01-11 18:05) [2]

Вопрос именно в том, как сохранять используя только память? У TChart есть еще CopyToClipboardFormat().А как из Clipboard засунуть в TBitmap или сразу в JPEG? И в догонку : как работать с переменными окружения? Ничего такого не знаю и не умею


 
Думкин ©   (2004-01-11 18:41) [3]

GetEnvironmentStrings
GetEnvironmentVariable

var T : TBitMap;
TT : TJpegImage;
begin
T :=TBitMap.Create;
TT := TJpegImage.Create;
try
T.Width := Chart1.Width;
T.Height := Chart1.Height;
BitBlt(T.Canvas.Handle,0,0,Chart1.Width,Chart1.Height,Chart1.Canvas.Handle,0,0,SRCCOPY);
TT.Assign(T);
TT.SaveToFile("e:\1.jpg")
finally
TT.Free;
T.Free
end
end;


Например так.


 
YuRock ©   (2004-01-11 18:46) [4]

> ее я получаю через GetWindowsDirectory + "\Temp"

Получать темп-директорию надо так:

var
pPath: Array[0..MAX_PATH] of Char;
begin
...
GetTempPath(MAX_PATH, @pPath);
// Теперь String(pPath) - и есть путь к директории Temp.
...
end;



Страницы: 1 вся ветка

Текущий архив: 2004.01.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
6-72851
Yakudza
2003-11-20 16:42
2004.01.23
SMTP


1-72703
Danilas
2004-01-12 03:15
2004.01.23
Подскажите пожалуйста!!! Как сохранить в файл содержимое....


1-72817
Cerber
2004-01-12 12:23
2004.01.23
Memo1


1-72801
qwert
2004-01-12 20:41
2004.01.23
Добавить строку перед всем


3-72675
Шурик Ш
2003-12-25 13:17
2004.01.23
Создание таблицы в TADOQuery