VPF::как из двух jpeg сделать один большой ?

tar79

Дата 31.3.2006, 09:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.3.2006

Репутация: нет
Всего: нет

Здравствуйте.
У меня например есть два файла jpeg которые нужно склеить в один большой. Может кто нибудь подскажет как это сделать средствами дельфи, а еще лучше чтоб можно было не только два но и больше. Заранее благодарен.

Alexeis

Дата 31.3.2006, 10:24 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

tar79, как нужно размещать изображения слева направо или сверху вниз

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Albinos_x

Дата 31.3.2006, 10:42 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 1
Всего: 108

где-то так:

Код


uses  Graphics , Jpeg,...
...    
var     
    Jpeg: TJpegImage;     
    Bi1, Bi2 , Bip: TBitmap;  
    r,r1:TRect;
    X:Integer;    
begin     
    Bi1:= TBitmap.Create; 
    Bi2:= TBitmap.Create;    
   try
    Jpeg:= TJpegImage.Create; 
    try    
       Jpeg.LoadFromFile(sFileName1);     
       Bi1.Assign(Jpeg);  
       Jpeg.LoadFromFile(sFileName2);
       Bi2.Assign(Jpeg);    
      finally
       Jpeg.Free;
       end;
    Bip    := TBitmap.Create;
    bip.Width:=bi1.Width+bi2.Width;
    bip.Height:=max(bi1.Height,bi2.Height);
    r:=bi1.Canvas.ClipRect;
    bip.Canvas.CopyRect(r,bi1.Canvas,r);
    x:=r.Right;
    r:=bi2.Canvas.ClipRect;
    r1:=r;
    r1.Left:=r1.Left+x;
    r.Right:=r.Right+x;
    bip.Canvas.CopyRect(r1,bi2.Canvas,r); 
   finally
    bi1.free;
    bi2.free; 
    end; 
...    
// используем склеенную картинку
...     
   bip.free;     
   end;    
...

не проверял... по идее должно работать...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

tar79

Дата 31.3.2006, 13:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 29.3.2006

Репутация: нет
Всего: нет

Albinos_x, спаибо то что нужно. ток чуть подкорректирую.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »