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

← →
Малой (2003-08-06 14:51) [0]

Мастаки, вот такой код:
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.
Помогите.

← →
clickmaker © (2003-08-06 14:54) [1]

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

← →
Малой (2003-08-06 14:58) [2]

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

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

← →
clickmaker © (2003-08-06 15:24) [3]

А если так

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

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

нет - AV :(

← →
pasha676_* (2003-08-06 16:28) [5]

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

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

← →
Малой (2003-08-06 16:54) [6]

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

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

← →
pasha676_* (2003-08-07 17:23) [7]

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

как из буфура сохранить jpeg? Найти похожие ветки