Форум: "Начинающим";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];
ВнизНаложение картинки на картинку Найти похожие ветки
← →
funky (2006-10-31 01:52) [0]Привет. У меня есть ~10000 .jpg файлов, все одинакового размера, нужно в каждом вставить др. .jpg фаил в одинаковое место (аля копирайт).
Тоесть представляю себе это примерно так:
1. Image1.Picture.LoadFromFile("X:\1.jpg");
2. <вставляем поверх др. фаил>;
3. Image1.Picture.SaveToFile("X:\1_edit.jpg");
Вопрос, как реализовать 2-ой пункт? %)
Извените за такой вопрос, просто я даже преблезительно не представляю себе, как это выполнить. %)
← →
Германн © (2006-10-31 02:27) [1]А что значит "аля копирайт"? Можно поподробнее? Испортить любой файл - это как "два пальца об асфальт"! А смысл?
← →
funky (2006-10-31 02:34) [2]Германн © (31.10.06 02:27) [1]
Ну смотри, перед тем, как выложить эти файлы в сеть, нужно на них в нижнем углу добавить логотип, что-то вроде, сдела-но тем-то, мэил такой-то. На всякий случай, для связи.
Знаешь как 2е картинки объеденить?
Можно конечно и просто текст добавить:
Image1.Canvas.TextOut(1,1,"E-mail: ---");
Но, всё же желательно картинку.
← →
Германн © (2006-10-31 02:40) [3]Время уже весьма позднее для меня, так что извини. Но не поможет ли тебе CopyRect?
← →
Джо © (2006-10-31 03:08) [4]> Вопрос, как реализовать 2-ой пункт? %)
Bmp: TBitmap;
...
Bmp.LoadFromFile (файл с логотипом).
Image1.Picture.Bitmap.Canvas.CopyRect(Bmp.Canvas,...);
← →
funky (2006-11-01 00:09) [5]Джо © (31.10.06 03:08) [4]
bmp := TBitMap.Create;
bmp.LoadFromFile("X:\2.bmp");
Image1.Picture.LoadFromFile("X:\1.bmp");
Image1.Picture.Bitmap.Canvas.CopyRect(bmp.Canvas.ClipRect,bmp.Canvas,bmp.Canvas. ClipRect);
Правельно? А как указывать координаты?
← →
funky (2006-11-01 00:22) [6]Image1.Picture.Bitmap.Canvas.CopyRect(rect(10, 10, bmp.Width, bmp.Height),bmp.Canvas,rect(10,10, bmp.Width, bmp.Height));
Врубился %)
← →
Джо © (2006-11-01 14:10) [7]А можно и Image1.Picture.Bitmap.Canvas.Draw (X,Y,Bmp);
← →
funky (2006-11-01 23:51) [8]Извените если достал уже, но подскажите как сделать у накладываемой картинки прозрачный фон? Её наверно сначало нужно в гиф конвертнуть, потом Transparent := true; сделать, а потом накладывать? как в jpg конвертнуть - знаю. а в гиф? =/
← →
Pavia © (2006-11-02 00:10) [9]Нет в гиф не нужно.
У стандартного TBitmap есть три свойства
Transparent := True;
TransParentColor := Color;
или автаматически(bottom-leftmost pixel) определить цвет.
TransparentMode := tmAuto;
рисовать такой битмап через
Canvas.Draw(50,50,BitMap);
Еще раз алгоритм: открыть JPEG файл получить Bitmap нарисовать картинку сохранить обратно в JPEG.
← →
funky (2006-11-02 00:13) [10]Pavia © (02.11.06 00:10) [9]
Класс =) Спасиб.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.11.19;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.035 c