Главная страница
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.011 c
6-72864
Novenkij
2003-11-20 21:29
2004.01.23
Пересылка файлов


1-72753
Anton.
2004-01-13 16:43
2004.01.23
TGetExtentsFunc = function(Index: Longint): Integer of object;


14-72925
Knight
2004-01-01 02:42
2004.01.23
Нужен приличный пример на Win API...


1-72714
timer
2004-01-12 00:52
2004.01.23
перебор файлов


1-72797
user
2004-01-13 08:33
2004.01.23
Как программно разбить в excel клетку попалам по диагонали ???