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

Вниз

ClipBoard->JPEGImage   Найти похожие ветки 

 
Val ©   (2001-12-27 10:48) [0]

Подскажите пожалуйста-можно ли .bmp из клипборда записать прямо в JPEGImage?


 
Romkin ©   (2001-12-27 15:15) [1]

TJPEGImage.LoadFromClipboardFormat...


 
Val ©   (2001-12-28 11:01) [2]

>MJH
меня интересует возможность именно прямой записи, поскольку бьюсь как раз над возможностью удаления промежуточных звеньев
>Romkin © (27.12.01 15:15)
Спасибо, я пробовал этот метод, но не разобрался с ним, поскольку после этих строк получаю AV :(
Chart1.CopyToClipboardBitmap;
jp.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);


 
Romkin ©   (2001-12-28 12:29) [3]

Clipboard.Assign(Image2.Picture);
jp := TJPEGIMAGE.Create;
Image1.Picture.Graphic := jp;
Image1.Picture.Assign(Clipboard);


 
Val ©   (2001-12-28 13:14) [4]

Вот, по сути, цель: Фотография графика в файл
jp := TJpegImage.Create;
Chart1.CopyToClipboardBitmap;
jp.LoadFromClipBoardFormat(cf_BitMap,ClipBoard.GetAsHandle(cf_Bitmap),0);
jp.SaveToFile(ParamStr(3)+"_to_"+ParamStr(4)+".jpg");

Но так сделать не получается из-за AV при попытке скачать изображение из клипборда в jpeg(почему-ума не приложу :(). Сейчас это решается так: ClipBoard->Bmp->JPEG, но я решил, раз есть метод получения изображения из клипборда в JPEG, то можно убрать звено с bmp, но - не выходит :(


 
ValeraVV ©   (2001-12-28 16:12) [5]

Раз уж убираешь промежуточные звенья, то убери ClipBoard -попробуй TChart.SetInternalCanvas, вот только не знаю, можно ли рисовать на canvas"е TJpegImage, но то что можно рисовать на TBitMap, это точно.


 
Val ©   (2001-12-28 18:07) [6]

>ValeraVV © (28.12.01 16:12)
спасибо за мысль, но, наверное, я переработал слегка - не выходит :(, запутался с TCanvas<->TCanvas3D :(
да..ни из клипборда не могу, ни из чарта в битмап - пора все закидывать и тихо ждать Нового года...



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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
3-88358
Ura
2002-04-29 14:50
2002.05.27
Сообщение


3-88350
Ura
2002-04-30 10:45
2002.05.27
Немогу создать уникальный индекс в IB


1-88485
Faustus
2002-05-15 14:41
2002.05.27
Класс


1-88398
Agent2000
2002-05-16 20:57
2002.05.27
Деревья!!


4-88682
Yaro
2002-03-27 23:56
2002.05.27
EnumProps | SetProp | GetProp