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

Вниз

JPEG + разбиение рисунка   Найти похожие ветки 

 
Ozone ©   (2004-05-11 13:05) [0]

Есть JPEG-картинка размера 704х258. Мне необходимо разбить ее на две размерами 352x258 и "засунуть" в разные Image.

Подскажите это можно реализовать как можно быстрее?


 
Ozone ©   (2004-05-11 13:29) [1]

Сделал так

var
  jp: TJPEGImage;
  bmp: TBitmap;
begin
     bmp := TBitMap.Create;
     jp := TJPEGImage.Create;

     jp.LoadFromFile("...");
     bmp.Assign(jp);

     Image1.Canvas.CopyRect(Rect(0,0,352,258),bmp.Canvas,Rect(0,0,352,258));
     Image2.Canvas.CopyRect(Rect(0,0,352,258),bmp.Canvas,Rect(352,0,704,258));

     bmp.Free;
     jp.Free;
end;


Есть более быстрые алгоритмы?


 
Mihey ©   (2004-05-11 15:02) [2]

2 Ozone:

Алгоритмов более быстрыз думаю не придумать, а реализацию - вполне можно. Только у тебя ошибочка есть:

Image1.Canvas.CopyRect(Rect(0,0,352,258),bmp.Canvas,Rect(0,0,352,258));

====>

Image1.Picture.Bitmap.Canvas.CopyRect(Rect(0,0,352,258),bmp.Canvas,Rect(0,0,352,258));

Иначе не сохранить будет (т.е. ты не засунул в TImage). Естесссно, TImage.Picture надо бы ещё и создать,и размеры выставить. А копировнаие можно через BitBlt:

BitBlt(Image1.Picture.Bitmap.Canvas.Handle, 0, 0, 352, 258,
 bmp.Canvas.Handle, 0, 0, SrcCopy);
BitBlt(Image2.Picture.Bitmap.Canvas.Handle, 0, 0, 352, 258,
 bmp.Canvas.Handle, 352, 0, SrcCopy);



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

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

Наверх




Память: 0.44 MB
Время: 0.041 c
14-1089257648
Aldor_
2004-07-08 07:34
2004.07.25
Установка ХР


3-1088586235
maximus_
2004-06-30 13:03
2004.07.25
Не получается с запросом IBDataSet


14-1088686545
WondeRu
2004-07-01 16:55
2004.07.25
Годовщина!


14-1088762912
ArMellon
2004-07-02 14:08
2004.07.25
Нужен русификатор 3ds max 5.1 кто знает киньте


14-1089215993
rOOse
2004-07-07 19:59
2004.07.25
Компонент TEdit





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский