VPF::повернуть изображение и сохранить полученное в фай

gvozdkoff

Дата 10.7.2011, 09:34 (ссылка)

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

Загрузка ...

Новичок

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

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

всем привет.
Возникла у меня заминка.
Загружаю изображение, затем поворачиваю его на произвольный угол.
После этого , нужно сохранить полученное повернутое изображение, при сохранении получаю файл с исходным изображением которое загрузил до начала вращения.

Вот код, который использую.
Подскажите , пожалуйста , в чем моя ошибка ?

Среда D7, Win XP

Код


//создаю слой, загружаю в битмап картинку

procedure TForm1.Button1Click(Sender: TObject);
begin
RL:= TRotLayer.Create(ImgView.Layers);
 RL.Bitmap := TBitmap32.Create;
  RL.Bitmap.LoadFromFile('1.bmp');

with RL.Bitmap do
 begin
 BeginUpdate;
    TLinearResampler.Create(RL.Bitmap);
    TCustomResampler(RL.Bitmap.Resampler).PixelAccessMode := pamTransparentEdge;
   RL.BitmapCenter := FloatPoint(Width / 2, Height / 2);
   MasterAlpha := 200;
    FrameRectS(BoundsRect, $FFFFFFFF);
    DrawMode := dmBlend;
    EndUpdate;
    Changed;

 end;
  RL.Scaled := True;
  RL.Position :=FloatPoint(ImgView.ClientWidth / 2, ImgView.ClientHeight / 2);
 end;

// вращаю изображение
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
RL.Angle:=Scrollbar1.Position;
end;

//Сохраняю изображение повернутое под некоторый угол
procedure TForm1.Button2Click(Sender: TObject);
begin
RL.Bitmap.SaveToFile('2.bmp');
end;

gvozdkoff

Дата 10.7.2011, 20:36 (ссылка)

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

Загрузка ...

Новичок

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

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

сейчас попробовал повернуть на 90 градусов

Код


RL.Bitmap.Rotate90;

далее сохраняю в файл

Код


RL.Bitmap.SaveToFile('image\temp\1.bmp');

и что самое интересное , при повороте на 90, 180 и 270 градусов, изображение сохраняется корректно, то есть повернутое на 90, 180 и 270.
Загадка

Это сообщение отредактировал(а) gvozdkoff - 10.7.2011, 20:37

gvozdkoff

Дата 11.7.2011, 07:42 (ссылка)

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

Загрузка ...

Новичок

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

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

на всякий случай прикрепляю проект. Может найдется время посмотреть.
решение все еще не нашел smile

Присоединённый файл ( Кол-во скачиваний: 12 )

example1.rar 452,23 Kb

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