Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как из буфура сохранить jpeg?

Малой © (2003-08-06 14:51:00)
Мастаки, вот такой код:
procedure TForm1.Button1Click(Sender: TObject);
var
jp: TJPEGImage;
begin
jp := TJPEGImage.Create;
try
with jp do
begin
DBChart1.CopyToClipboardBitmap;
LoadFromClipboardFormat(cf_???,ClipBoard.GetAsHandle(cf_???),0);
( "1.jpg")
Мастаки, вот такой код:
procedure TForm1.Button1Click(Sender: TObject);
var
jp: TJPEGImage;
begin
jp := TJPEGImage.Create;
try
with jp do
begin
DBChart1.CopyToClipboardBitmap;
LoadFromClipboardFormat(cf_???,ClipBoard.GetAsHandle(cf_???),0);
SaveToFile("1.jpg")
end;
finally
jp.Free;
end;
end;

что писать вместо cf_???. Перері все что знал, нашел только для BitMap и MetaFile.
Помогите.

pasha676_* (2003-08-07 17:23:00) [1]

Я БД чарт не вертел. Ну надо попробывать содрать с него картинку из канваса например в TBitmap ну а оттэдова в Jpeg. Напрямую с Jpeg никому работать не рекомендую. Хотя можно попробывать и сразу в Jpeg ассигнуть.

Малой (2003-08-06 16:54:00) [2]

> Как насчет асснгнуть в TBitmap, а потом ассингнуть в TJPegImage?
>

а как из DBChart это можно сделать?

pasha676_* (2003-08-06 16:28:00) [3]

Как у вас тут все сложно.

Как насчет асснгнуть в TBitmap, а потом ассингнуть в TJPegImage? Помоему это проще. Не знаю почему, но у меня что то в этом духе написано. Наверное сразу в jpeg пихнуть не получилось тоже. Давно писал, подробностей не помню.

Малой (2003-08-06 15:28:00) [4]

нет - AV :(

clickmaker (2003-08-06 15:24:00) [5]

А если так

LoadFromClipboardFormat(cf_bitmap, ClipBoard.GetAsHandle(cf_bitmap), ClipBoard.GetAsHandle(cf_palette));

Малой (2003-08-06 14:58:00) [6]

> LoadFromClipboardFormat(cf_???,ClipBoard.GetAsHandle(cf_???),0);

после этой строчки выскакивает Access Violation. блин, чего ему надо?

clickmaker (2003-08-06 14:54:00) [7]

В хелпе по LoadFromClipboardFormat написано "LoadFromClipboardFormat can also recognize, and supports, a bitmap format on the Clipboard". Так что CF_BITMAP

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »