VPF::соединить два изображения - Форум программистов

IGR

Дата 17.8.2007, 15:07 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 17.8.2007
Где: Made in Ukraine & #33;!

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

Допустим есть 2 загруженых изоброжения.
Как их обьединить в одно изоброжение?
подскажите пожалуйста.

Snowy

Дата 17.8.2007, 16:36 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Что значит "объеденить"?
Поставить одно слева, другое справа?
Или наложить одно на другое с прозрачностью?
Или какие-то другие хитрые типы наложения, типа лайтен, крин и т.п.?
Опиши подробнее исходные данные и желаемый результат.

Добавлено через 1 минуту и 12 секунд
Это подойдёт?
http://forum.vingrad.ru/index.php?showtopi...st&p=701698

IGR

Дата 22.8.2007, 14:44 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 17.8.2007
Где: Made in Ukraine & #33;!

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

Цитата

Поставить одно слева, другое справа?

Да.
но потом сохранить его как одно изображение.
помогите пожалуйста. очень нужно.

IGR

Дата 3.9.2007, 14:14 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 17.8.2007
Где: Made in Ukraine & #33;!

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

нужно открыть 2 картинки ,
поместить их на форму рядом,
потом сохранить ети 2 картинки в один jpg файл.
подскажите пожалуйста.

Snowy

Дата 3.9.2007, 14:36 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Код


uses jpeg;

function CombinePics(f1, f2, fr: string): boolean;
var
  p: TPicture;
  b1, b2, b3: TBitmap;
  jpg: TJpegImage;
begin
  p := TPicture.Create;
  b1 :=TBitmap.Create;
  b2 :=TBitmap.Create;
  b3 :=TBitmap.Create;
  result := True;
  try
    p.LoadFromFile(f1);
    b1.Assign(p.Graphic);
  except
    result := False;
  end;
  try
    p.LoadFromFile(f2);
    b2.Assign(p.Graphic);
  except
    result := False;
  end;
  b3.Width := b1.Width + b2.Width;
  if b1.Height > b2.Height then b3.Height := b1.Height
  else b3.Height := b2.Height;
  b3.Canvas.Draw(0, 0, b1);
  b3.Canvas.Draw(b1.Width, 0, b2);
  jpg := TJpegImage.Create;
  jpg.CompressionQuality := 80; // качество 80%
  jpg.Assign(b3);
  try
    jpg.SaveToFile(fr);
  except
    result := false;
  end;
  jpg.Free; b1.Free; b2.Free; b3.Free; p.Free;
end;

На вход имя первого файла, второго файла и имя файла-результата.
Пример:

Код

CombinePics('C:\1.jpg', 'C:\2.bmp', 'C:\3.jpg');

IGR

Дата 13.9.2007, 10:31 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 17.8.2007
Где: Made in Ukraine & #33;!

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

Snowy, спасибо большое !!
как хорошо что ты понял что я хочу. smile

Alexeis

Дата 13.9.2007, 10:41 (ссылка)

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

Загрузка ...

Амеба

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

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

Если вопрос решен, то его нужно пометить галочкой "Вопрос решен" (справа вверху возле опций темы)

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

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

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

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

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